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1 SYS Listing 
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IDENTIFICATION 


AB-2045B-SC 
PRODUCT CODE DEC-11-LPTBA-B-LA 
PRODUCT NAME LISTING OF BASIC/PTS 
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MAINTAINER DEVELOPMENT 
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2 090804 SNOSTRE1 
3 +C0T 


BASICL MACX12 VOQL 22eMAR®73 16105 PAGE Led 


4 


BASIC MACX212 VOZL 22eMARW73 16195 PAGE 2 


5 b BASIC/PTS PARTIeBASICL 

’ H DECatieLpyBAsAelal 

4 ' COPYRIGHT 1973 

i | ouctray cquinNeNr.cogeanas on 
413 
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14 sTUTLE BASIC VOGLA EDIT 461 (REF) O3721/73 
SOURTE FILE #1 


» 
w 


16 008000 ,ASECT 


BASIC CONSISTS OF THREE MoOULES! 
4] BASICL © INTERPRETER WITH SYSTEM 170 
2) FPMPe1i @ MATH PACKAGF CONDITIONALIZE0 FOR USF IN BASIC 
3] BASICH © USER AREA AND ONTERSONLY COVE 


ORIGINAL PAPER TApE VERSION AYt LEN ELEKMAN 
MODIFICATION AND COMMENTS RY) POY FOLK 


COMPLETION AND FURTNER 
COMMENTS AY) ANN STANKARD 


nN 
~“ 


BASICL 


39 
40 
44 
42 
43 
“4 
45 
46 
4? 
48 
49 
58 
54 
52 
53 
54 
55 
56 
57 
58 
59 
68 
64 
62 


BASICL 


84 
85 
86 
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Jeeenoeneoeee 


peavevereoees 
Jeeeenenosees 
Jeeeceenvenes 


BL oBALs! ASSY, PARAMS, 5 
DESCRIPTIONS LOW CORES seveneevecen 


GENERAL TABLES, eeseveneons 
CONSTANTS, STORAGE eboveeeenote 
erevesecoese 


JRSESSOOSHFOSESEEEHOSHSOHEEESOGEHSEGHHE SE HEES OSES HD 


GLoBALS 
eoFPMPeit 


1GLQ8L 
+GLOBL 
164084 
1GL08L 
GLOBE 
1GLOBL 
+GL08L 


U 
} esBASIC2 
4 


1GLoBL 
1GLOBL 
1G. 08L 
GLOBL 
+GL08L 
GOB. 
GLOBL, 
+6084, 
GLOBL, 
+GLOBL 
1GhOBL 
+GLOBL 
»GLOBL 
1GLOBL, 
1GLOB8L 
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SPOLSH 

SIR 

SMLR 

sOvR 

SAOR, SSBR 

SIN, COS,SURT,ALOG, ATAN, EXP 
SERVES 


TPB, TKS 

START 

USRAREA 

FILLCO 

LIMIT, POL, ARRAYS, POSIZE 
ERRPOL, ERRMIX, FRRSYN, ERRARG 
TABLES, TBLSEN 

EVAL, GETVAR, STAVAR, MSG 
COLUMN, FACd, FAC2, ,RPAK, {UPAR 
IN¥, MAKEST, OPRATO, SOPRAT 
sCOMMA, T1, T2, 73, ,E9L 
NUMOUT, NUMSGN, ARGH, STPRO 
SAVCHAR, VAL, NORM 

RNOL, RNOZ 

SSTKSZ, ERAFPU 


' 
1 ASSEMBLY PARAMS, 
1 


SS?KS2 
’ 
SPRORG 
' 
SPPBS2 
J 
SPRBS2 
U 
SLPBS2 


VUPNOF 
8200 
,ENOC 


vlFNOF 
2408 
ENOC 


TPNOF 
3a 
+ENDE 


vTFNOF 
a30 
sENOC 


 JFNOF 
848 
sENOC 


SNopTp © No 
PAPER TAPE 


SNoLPT © No 
SLONGER © LONG ERROR MESSAGES: PEFINE TO GET LONG, 


SSYKS¢ §StzE oF STACK 


sayTes 


SPRORG JPROG, ORIGIN AFTER VECTOR SPACE 


SPPGS¢ IPP AUFF, SIZE 


SPRBS¢ JPAPERe TAPE PEADER BUFF, SIZE 


SLPBSE ILINE@PRINTED RUFF, SIZE 


PAPER TAPE] OEFINF To ELIMINATE CODE FoR WIGH SpEEO 


LINE pRINTERS DEFINE To ELIMINATE LINE pRINvER Code 


EXPLANATORY ERROR MESSAGES, 


SNOSTR ® No STRINGS! DEFINE Ta ELIMINATE STRING VARIAPLE CQ0E 
SNoPOW # No POWER FAILI DEFINE 79 ASSEMBLE wITHaYT 


POWER FAIL/RESTART ROUTINE, 
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123 ’ 

124 } WOT POOP! 

425 1 

126 + weUSER AREA MAp 

427 , 

426 } WIGH ADORESSES#enececccesececes 

129 1 1 GOSYS POINTERS! <eeLIMIY(R9) NEEDED 
138 ’ 1 26 FN POINTERS! 

asa ’ 1 REAQ POINTER | Ca=PALCRD) NEEDED 
132 i] eescctcce 

433 f t pus : 

334 ' 1 DOWN ! - PASIZECRS) NEEDED © 
135 ' $ Gist { (POL CRS) @ARRAYS(R5)I/29STACK (INTERRUPT) 
436 1 becewseceqacwsces 

i37 ' H tf €eeaRRAYS(R5) NEEDED 
438 1 t ARRAYS oo! ! 

139 1 1 to 

148 ' ' \o} 

144 1 ' vo! 

142 i] bacwcccccgsccpeee 

145 ' $ STRINGS ' 

444 1 bewecccocesoreses 

145 ' Hy A ¢ 

146 ’ t ain} 

aa7 ' H rot 

248 i) to syMdoLs  ! : 

149 1 beccocsecascevecs 

430 1 1 aot 

453 ’ ! ; ayo 

152 f { INverp, $$ 

455 ' 1 COOE tf €eeCODE (RS) NEEDED 
as4 | be qowecccqcecavce 

455 i 1 user : 

456 ' 1 LINE ! 

157 ' 1  BYFFER t <meLINE(RS) NEEDED 
158 i beccoqencqconsces 

a59 f t us€x 3/9 BuFF,! 

468 ' { ANO BUFF’, HOR,! 

164 ' 1 SPACE ¢(T¥Y) =! 

162 ni be cweewcencnceces 

163 ’ 1 ySER AREA : 

164 ’ { STORAGE CELLS ! 

165 ERS POINTSe=> | : 

166 1 be rccnoucescceces 

16? 1 

168 
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169 } 

178 Jee 

a7. f] 

172 ’ cgde AREA CONTAINS STRING oF CnOE 8YTES WHICH CoMpalse 

173 } THE COMPILED CODE 10 BE INTERPETED, THE SYNTAX SCAN OF THESE 
474 1 CODE BYTES {S FACI,ITATED BY THF JUDICIOUS PLACEMENT 

175 ) OF CERTAIN OF THESE CODE AYTES TO BE CALLED 'TOKENS?, 

176 1 IF YHE WIGH BIT OF A TOKEN IS ON 

377 } IT IS A SYSTEM SYMBOL (S,SYM), (SFE TABLE, BELOW,) 

178 } HIGH O[T OFF SIGNALS TOKEN AS THE HIGH ORDER BYTE OF A WORD 
479 ) (LOW ORDER BYTE FOLLOWS TOKEN) USFO AS AN ADDRESS OFFSET INTO 
180 } THE USER SYMBOL, TABLE (USPTR), 

184 ' 

ise 1 e*SYMBol TABLE ENTRIES 

18 5 

184 $ ARE MADE FoR LINE NUMBERS, SCALARS, NUMERIC ARRAYS, ANT 

185 } STRINGS, AS SHOWN (IN ORDERDI 

186 J 

187 ’ LINENQ 477779 177776 477777 

188 f ADORESS VALUE ADDRESS ADDKESS 

189 ' VALUE MAXSS2 “AXSSY 

190 ’ a MAXSS2 MAXSS2 

194 ' VARNAME VARNAME STRI'IGNAME 

192 ’ 

195 } weGENERAL REGISTER YSAGE 

1 ' 

195 bat tg BASIC EXECUTION PC 

196 J R4 1S THE EXECUTION STACK DEPTH 

197 } RS 1S THE POINTER TY THE USER AREA 


198 


BASICL 


199 
200 
202 
202 
2935 
204 
205 
206 
207 
208 
209 
210 
212 
212 
213 
214 
215 
216 
217 
2168 
219 
220 
224 
222 
225 
224 
225 
226 
227 
228 
229 
238 
234 
232 


233 
234 
235 
236 
237 
238 
239 
240 
244 
242 
243 
244 
245 
246 
247 
248 
249 
258 
2514 


BASICL 


252 
253 
254 
255 
256 
257 
258 
259 
268 
264 
262 
263 


MACX12 


080000 
390804 
ooneie 
280814 
389828 


300024 


899030 
800834 


0800490 
808042 
308050 
300056 


980068 


380864 


368078 
380874 


099200 


MACX44 


800248 
300244 


ve2u 


080020 
980167 
139004 
480006 
080018 
200012 
OOR14 
800816 
309028 
407742 


390924 


887330 


TTR) 
890B32 
800034 
880036 


280040 

801 
990026 
308008 
200008 


280068 
006479 
BOSB64 
686642 
490876 


687104 


BBG074 
Berane 


060258 
997256 


VoeL 


280249 
980242 
290244 


22rMARe73 = 16185 


eee 


881830 
200008 
800808 
3eaRee 
28600R 


101 
080000 980009 
C80008 302000 


080280 
390200 


9ee20e 
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3898086 B80000 


280400 
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INrERYyPy VECyORS AND LOWESy CODE 


LT) 
JMP 
a4 
* 
e108 
o 
aye 
e 
22a 


a34 
o 


START 
42,8 
142, 
142,08 


B0MB,o8 


SNOPOW 
POWDWN,@ 


SNoPOW 


sREstARyY Ar LOC, #3 
HTIME QUT, Buss ERROR 
PRESERVED INSTRUCTION 
sOEUNG, TRAP VvEC, 


s107 TRAP VEC, 


JPOWER FALL/RESTART 


192,28 HALT ON POWFR FALL 


102,28 
1#2,8 


wl SYSTEM! AREA 


548 


ERNUMt ,BYTE 
. 


oo4,tA 


Bp8,8,O,5,0,8 


eeINrErupT VECTORS 


960 

e 
264 

e 

878 
vUFNOF 
.2 

274 

* 
,ENDC 
LIFOF 


e 
sENOC 
3228 

a TFNOF 
e 


PAGE 801 


+ENOC 
a} FOrF 
+ 


,ENOC 
8240 
oJ 
8244 
* 


SSPRORG 


KBINTS PRS 
TPINT@ PRE 


SNOPTP 
PTRINT,PR4 


PPINT PRS 
SNOPTP 
848,048 


SNOLPY 
LPINT PRE 


SNOLPT 
aoe 


12,0 


ERRFPY So 


VEMT TRAP 


bepRAP! TRAP 


SVERSTON NUMBER 


HKEYBOARD 
HTELFPRINTER * 


sHSP, PT, REAOER 


HHSP, PT, PUNCH 


yPIR9 
FLOATING POINT TRAP 


HSTAPT QF CODE (MAY HAVE To CHANGE, 
} DEPENDING UPON ATTACHED DFVS,) 


BASICL 


206 
265 
269 
207 
268 
269 
2720 
274 
272 
273 
274 
275 
276 
277 
278 
279 
280 
283 


BASICL 


307 
308 
309 
318 
31a 
312 
313 
314 
315 
316 
347 
3148 
319 
328 
32a 
322 
328 
324 
325 
326 
327 
328 
329 
330 
334 
332 
333 
334 
335 
336 
337 
338 
339 
340 
344 
342 
343 
344 
345 
346 
347 
348 
349 
358 
354 
352 
353 
354 
355 
356 
357 
358 
359 
360 
364 


MACXL2 


MACX12 


ves 


80e0e8 
080003 
880802 
800085 
380804 
820005 
BBG826 
880007 


177560 
177562 
177564 
177566 
177558 
177532 
177534 
177556 
177534 
177546 


MBOR1s 
800R12 
900024 
2800025 
200040 
177776 
380148 
900280 
800340 
177775 
177776 
477777 


voes 


980008 
200082 
2eggR4 
980886 
200040 
900012 
380014 
300016 
200020 
egag22 
200024 
880026 
200930 
280032 
800034 
288036 
828840 
o9ags2 
500044 
380046 
209050 
380052 
290054 
280056 
300860 
280062 
BB8R64 
808066 
000078 
880972 
280074 


289076 
380077 
300120 
200182 
980104 
200186 
880197 
200118 
880112 
980112 
980123 


580820 
300802 
290084 
290026 
780818 
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j 
} GENERAL ASSIGNMENTS, VARIABLES, SynBdLS, ETC, 
| 


} w*REGISTER ASSIGNMENTS 


8x0 
8Xt 
8x2 
x3 
"x4 
xs 
9x6 
8x7 


' 
} weDEVICE REGISTER CONSTANTS 


’ 

TKS 
TK 
TPS 
7Pa 
PRS 
PRE 
PPS 
Ppa 
LPs 
4Pe 


8177568 
8177562 
3477564 
8177566 
8477550 
8177552 
8177554 
0477556 
B177514 
8177546 


' 
} esGENERAL CONSTANTS 


' 

TAB 
LFs 
FF 
CRe 
BLs 
PS 
PRI 
PR4 
PRI 

s SCALAR 
iNVAR 
1 SVAR 


LPe 

ay2 

ey4 

045 

048 
8177776 
2140 
3220 
234g 
8477775 
©177776 
8477777 
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IPRIORITY LEVEL 3 


HYSER SYM, TABLE FLAG FOR SCALAR 
IFLAG FOR NUMERIC ARRAY VARIABLE 
JFLAG FOR STPING VAR, 


! 
J weUSER AREA STORAGE CELL OFFSETS 


' 
SYMBOLS 
LIMIT 
POL 
POSIz€ 
ARRAYS 
MIPREE 
LOPREE 
cOoE 
LINE 
VARSAV 
SS1SAVE 
SS2SAVE 
LINENO 
GSBCTR 
COLUMN 
CLMNTTY 
Fae. 
Face 
ROSAVE 
RASAVE 
R2SAvE 
RSSAVE 
R4SAVE 
Ta 

T2 

T3 

RNOL 
RNOZ 
RNOCT 
LOSTR 
WISTR 


enmnweunnensnavenunnuenenaneeannue 


) ICANTAINS ADOR OF THE FIRST SYMBOL 
SYMBOLS+2 HCONTAINS ADOR OF HIGHEST WO OF USER AREA 
LIMITe2 SCONTAINS ADOR OF EMPTY STACK 

POLe2 CONTAINS LOW LIMIT OF STACK 

POS} ZEs2 CONTAINS ADOR OF HIGHEST WORD OF ARRAYS 
ARRAYS#2 CONTAINS ADOR OF HIGHEST FREE WORD 
HIFREES2 ICONTAINS ADOR OF LOWEST FREE WORD 
LOFREEe2 HCONTAINS ADOR OF INTERPRETIVE CODE 
CODEs2 HCONTAINS ADOR OF USER LINE PUFFER 
LINE #2 HVAR SAVE FOR ASSIGNMENT 

VARSAVe2 ySS2 SAVE FOK ASSIGNMENT 

SS{SAVE+2 18S2 SAVE FOR ASSIGNMENT 

SS2SAVE#2 FCONTAINS THE LINE NUMBEQ 

LINENOS2 ICONTAINS SS*#DEPTH OF ACT] VE GOSUBS 
GSBCTKe2 JHAS AMOR OF COL CT FOR PURRENT DEV 
COLUMNeg sLAST TTY COLUMN TYPED 

CLUNTTY #2 HIGH OROER FLOATING VALUE 

FaCte2 HLOW ORDER FLOATING VALUE 

FAC2e2 sPLACE FOR RM WHILE IN FPMP19 
RUSAVES2 yOITTO RI 

RUSAVES2 WOITTO RZ 

R2SAVES2 SOITTO RS 

R3SAVES2 HO1TTO RS 

R4SAVES2 sSHO8T TERM TEMPORARY 

TLe2 1OLTTO 

T2e2 yOLTTO 

T3e2 HHISTORY OF &ND 

RNOLO?S sOLTTO 

RNOZS? pRANMOMIZER 

RNOCT#2 LOW LIMIT OF STRING STOQAGE 
LOSTRe2 sHIGH LIM[T OF STRING STORAGE 


} #9THESE NEXT TWO MUST 


' OF SAME WORD 


ooeV 
TOEV 
TPHO 
KBWO 
ECHOSP 
CNCFLG 
CNOFLG 
FILLCO 
FILLNO 
FILLCH 
SPARE 


I 
§ wel/o 


1 
BSTRT 
BENO 
BGETL 
BGET2 
BPuT 


HISTRe2 
OOEVey 
ODEYs2 
TPHOe? 
KBHOO? 
ECHOSP42 
CNCFLGeL 
CNOFLGes 
FILL CO#s 
FILUNGeS 
FILLCHes 


BE LO BYTE AND HI BYTE, RESPECTIVELY, 


OUTPUT OEY CODE (TTYs@,PTs2,LP=4) 
HINPUT DEV CODE (TTYa@,PRE2) 
pHOLDS START OF TELEPRT RUFF HOR 
sHOLOS START OF KBO AUFF HARK 

yADDR OF NEXT ECHO CHAR (IF “ON@A) 
pf0C! FLAG, NON®® IF PENDING 

$4000 FLAG, OTTO 

sFILLeCOUNT 

INO OF FILL CHARS , 

ICHAP BEFORE FILL 

y CSPARE BYTE] 


BUFFER HEADER oF FSETS 


5g 
a2 
"4 
86 
a18 


JGRL) 

IBEND CRE 
VOGETLER 
HOGETZER 
HBPYUTIRE 


START oF BUFF, 


) FNOD OF BUFFER 
1) FIRST GET POINTER 
1) SECOND GET PTR, 

b) PUT era, 
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362 B9eer2 ersPec 842 leFSPECCRS) SPectak WORD © USE PaRTIc. T" DEY 
363 I 

364 } eeSYSTEM VARIASLES 

365 ' 

366 «900400 a80800 CLMNPP} »WORD @ JPAPER TAPE PUNCH COLUMN PosITIoY 

367 «800402 289000 CLMNLP} ,WORD A FELINE PRINTE® COLUMN POSITION 

368 
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309 ‘ 

378 } ee SYSTEM TOKEN DEFINITIONS 
374, ' 

372 ' 

373 090204 sEoLs 284 HBEGINNING OF SEAUFNCE YSED BY ‘KEYWDS! AND ‘TABLES 
574 380202 ,ENOs EOLed 

375 200203 :FORs =, END#4 

376 900204 ,GOSUBs ,FORS, 

377 200285 1GOTOs ,GOSUB4L 

378 080206 Vira 1GOTOes 

379 080207 sINPUTS ,IF os 

380 008210 rhETS INPUT #2 

384 aee2ta sNEXT# ,LET#S 

382 o90212 :PRINTS ,NEXT#L 

383 600213 »RETURNS,PRINTSL 

384 290224 :SPOPs ,RETURNGS 

385 200215 ,O0{Me =, STOPs4 

386 980216 +RANQOMS, OIMOS 

387 300217 1 RESTOR®, RANDOM+S 

388 900220 ;REMS =, RESTOR+4, 

389 000224, ;OEFs ,REMe4 

398 900222 :READ# =, DEF et 

394 090223 ,ODATA® ,READSS 

392 200224 sCALLs ,DATAst 

393 200225 ,EOFs  ,CALLe4 JEND OF SEQUENCE USEN RY ‘TABLED! 
394 000226 rAMPERS2 EOF ed 

395 200227 ;UPARROs, AMPERS*L BEGINNING OF SEQUENCE JSEO AY /TABLE2t ANU OPR PREC, 
396 900230 1STARS ,UPARRO+4 

397 300234 )SLASH® ,STAROL 

398 980232 »PLUSs ,SLASH#2 

399 290233 sUNARY® ,PLUS#S 

408 apo2se rMENUS® ,UNARY@L 

404 200235 TTERMe ,MINUS#1JENO OF SEQUENCE USE” RY !TARLE2! 
402 868236 SEMIS , TERMS 

403 200237 ;RPARm = ,SEM{od 

404 ogo240 1TOs  RPARSS 

405 000244 :STEPs ,TO#4 

406 200292 ,THEN® =, STEP OL 

407 900243 iCOMMAS , THENOL 

408 200244 ihE® ,COMMACL 

409 300245 Aa eEOt 

410 380246 ,GEs ER ed 

442 080247 eG 1GEo4 

412 200259 1NE® 1EGe4 

413 200251 sEN® NEo4 

414 200252 iets ,ENeL 

415 290253 16s ph Tod 

416 300254 ,EQ2 ;GTe4  JFEND OF SEQUENCE USE" RY OPERATOR PRECEDENCE 
417 280255 LPARs §,EQe4 

418 280256 OQUOTs ,LPAReL 

aug 200257 1SQU0TS ,OQUOTeL 

420 200260 ,COLON #,SQUOT+, 

421 900261 1POUND= ,COLONSL 

422 900262 FNS 1POUNDOL 


423 3BQ263 RNOLS =, FNOY BEGINNING OF SEXUENCE USED BY ft TABLESt 


BASIC. 


424 
425 
426 
427 
426 
429 
430 
433 
432 
433 
434 
435 
436 
437 
438 
439 
44o 
aay 
442 
443 
444 
445 
446 
447 
448 
ag 
458 
454 


BASIC. 


46s 
462 
463 
464 
465 
466 
467 
468 
409 
4728 
4714 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
499 
494 
492 
493 
494 
495 
496 
497 
498 
499 
589 
5a1 
522 
583 
504 
305 
506 
507 
508 
509 
518 
54 
512 
543 
514 
515 


MACKXA4 


MACX11 


090404 
000405 
880406 
090407 
900418 
000411 
800412 
800413 
800414 
000415 
009416 
000417 
900428 
800421 
889422 
808423 
900424 
800425 
082426 
829427 
800438 
308431 
880452 
900434 
880435 
0004357 
900449 
200442 
208443 
800445 
900446 
880459 
900451 
680453 
000454 
900455 
900456 
000457 
900460 
200461 
208462 
900463 
800464 
600465 
BBS466 
380467 
300470 
200474 
300472 


Voes 


380264 
089265 
883266 
900267 
080278 
380274 
300272 
088273 
380274 
280275 
300276 


08277 


880300 
880321 
808302 
000303 
800304 
200374 
880375 
280376 
ABOS77 


vo2d 


253 
232 
955 
234 
852 
230 
057 
232 
136 
227 
058 
255 
052 
237 
134 
204 
046 
226 
873 
236 
054 
243 
336474 
244 
O75 
244 
836476 
246 
875 
246 
837074 
259 
276 
258 
a74 
252 
276 
253 
075 
234 
a42 
256 
o47 
257 
o72 
2608 
043 
264 
133 


22eMARe73 
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074 


976 


a74 
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RNDe 
Sines 
1COSs 
,SQRe 
sAtNe 
EXPs 
1L0Ge 
1ABSe 
sINTs 
1S6Ns 
Tabs 


LENe 
ASCe 
CHRSs 
2POSs 
,SEGe 
VALS 
SfRe 
»L{Sts 


shtSTs 


sRUN® 
sSAVE® 
,OUDs 
,SCRe 
,CLEARS 
FULTS 
sdultie 
sTLIf2e 
s TEXT 


tRNOL eS 
eRNDOL 
rSINey 
1COSe4 
»SQRey 
vATNed 
1 EXPod 
hOGes 
ABSoy 
eINTey 
1SGNet 


vy PNOF 
TABOL 
aLENod 
ASCO. 
sCHRSoy 
1POSe4 
1SEGeL 
eVALeS 
STRey 
,ENOC 


atFOr 
TABod 
vENOC 


tLISTos 
eRUNOL 
sSAVEos 
OLDS 
SCRoy 
374 

375 

376 
3377 
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1 
' 
H 
' 
' 
y 
KEYWOS! 


ENTRIES 


SNOSTR 


HEND OF SEQUENCE YSED Sy fTABLES? 
IBEGINNING OF SEQUENCE USED HY ‘TABLES? 


SNOSTH 


JEND OF SEQUENCE USED SY ¢ TABLES’ AND fKEYWUSS 


e°KEYWORD TABLE 


ARE QROERED BY THEIR FREQUENCY oF 


OCCURRENCE, ALPHA KEYWORDS START AT ¢KEYAL, 


sASCIT 
1BYTE 
ASCII 
BYTE 
sASCIY 
iBYTE 
sASCII 
1BYTE 
sASCIY 
BYTE 
ASCII 
(BYTE 
ASCII 
iBYTE 
sASCII 
BYTE 
sASCTL 
BYTE 
rASCI 
BYTE 
sASCIT 
BYTE 
tASCII 
\BYTE 
ASCII 
18YTE 
sASCIT 
BYTE 
VASCIE 
BYTE 
sASCIT 
iBYTE 
sASCTI 
:BYTE 
sASCTI 
BYTE 
VASCIT 
BYTE 
‘A8Ctl 
BYTE 
(ASCII 
BYTE 
sASCTL 
\BYTE 
ASCII 
i BYTE 
sASCII 
BYTE 
cASCIT 


tot 


PLUS 
tof 


~~ ems Berm: 


NE 


VEOH BO 2 WE A 


“O70 70 319-0 +424 = 
- Cc 
Ko} a 
2 i 


c 
z 
o 


BASICL 


516 
517 
518 
5419 
528 
522 
322 
323 
524 


325 
326 
527 
326 
329 
338 
333 
332 
333 
334 


535 
336 
537 
538 


539 
540 
544 
342 


543 
544 
545 
546 
547 
548 
549 
550 
554 
552 
553 
554 
555 
556 
557 
558 
559 
560 
doa 
562 
563 
504 
565 
566 


BASICL 


567 
568 
569 
578 
574 
572 
573 
574 
575 
576 
577 
578 
579 
589 
381 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
638 


604 
602 


603 
6a4 
635 
626 
607 
608 
629 
610 
614 
612 
613 
614 
645 
646 
647 
618 
619 


MACKX4A4 


080473 
080474 
008475 
088476 


990502 
888503 
998506 
390507 
300514 
990515 
999516 
080522 
308523 
080527 
890538 
008535 
308536 
080544 
890545 
800552 
900553 
080554 
000562 
890563 
900578 
860571 
880572 
090608 
969601 
880606 
990607 
090618 
600613 
BOR614 
000620 
890621 
0890626 
828627 
980634 
320635 
888642 
880643 
800645 
898646 
890652 
980653 
0890656 
200657 
800663 
890664 
200678 
800671 
890675 
908676 


MACX41 


908702 
009783 
200707 
000718 
200714 
890715 
000721 
980722 
980726 
980727 
208733 
300734 
988749 


300744 
000745 
002746 
880754 
800757 
392760 
802766 
960767 
990772 
300774 
800775 
201008 
301004 
881005 
881906 
881011 
201012 
281016 
881017 
301022 
80Y025 
881026 
881027 
901032 


Ve22 


255 
135 
237 
042534 


240 
aia 
206 
107 
o4e 
205 
047526 


267 
952101 


Vo22 


278 
425 
274 
347514 
272 
101 
273 
A47242 
274 
123 
275 
340524 
276 


194 
215 
240522 
055432 
216 
342522 
105 
217 
252123 
214 
125 
222 
114 
277 
352522 
340 
340523 
301 
147 
362 
123 
383 
103 
304 


22eMARa7S 


o2e.e4¢ 


020106 
920117 


020122 
047524 
852258 
042510 
52223 


852523 
952105 


052520 
944522 


115 
820106 
040505 
052102 
046102 

114 
o24104 
042116 
o47ii4 
824423 
054122 
024316 


22eMARe7S 


950130 
024307 
051502 
024124 
047107 
024102 


946511 


042116 
125 


052425 


050117 
942216 
a51521 

116 
042526 
0424344 
051105 


042514 


847524 


049 
940 
820116 
050195 


820102 
051125 


020124 
52116 


920104 
920101 
G20114 


850 


250 


58 


258 


849 


246547 


854117 


124 


16185 
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sBYTE 
sASCIT 
BYTE 
ASCII 


BYTE 
eASCIT 
sBYTE 
rASCI 


BYTE 
sASCIL 
BYTE 
rASCTT 
BYTE 
ASCII 
BYTE 
sASCTY 
BYTE 
ASCII 


BYTE 
sASCIE 
BYTE 
sA8SCII 


BYTE 
sASCIL 
BYTE 
ASCII 


sBYTE 
ASCII 
sBYTE 
ASCII 
+BYTE 
sASCII 
iBYTE 
sASCII 
BYTE 
ASCII 
18YTE 
sASCTI 
,BYTE 
sASCII 
iBYTE 
ASCII 
BYTE 
ASCII 
:BYTE 
sASCIY 
BYTE 
sASCIY 
sBYTE 
eASCIT 
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sOYTE 
sASCII 
1BYTE 
sASCII 
sBYTE 
sASCIL 
BYTE 
sASCIT 
sBYTE 
ASCII 
BYTE 
sASCIT 
\BYTE 


vTFNOF 
sASCII 
:BYTE 
sASCII 
(BYTE 
sASCII 
BYTE 
ASCII 
‘BYTE 
sASCII 
BYTE 
sASCII 
‘BYTE 
ASCII 
BYTE 
,ENOC 


ASCII 
BYTE 
ASCII 


»BYTE 
sASCT 


BYTE 
sASCII 
sBYTE 
sASCIT 
iBYTE 
»ASCII 
sBYTE 
sASCY] 
‘BYTE 
ASCII 
1BYTE 
ASCII 
BYTE 
sASCTI 
»BYTE 
ASCII 
sBYTE 


yer ¢ ISTAPT OF ALPHA KEYWORDS 


tRETURNG 


/RETUKN 
hInput « 
a UNPUT 

PRINT ¢ 


sPRINT 
*REME 
yREM 
‘OErF ¢ 
,OEF 
*READ ¢ 


‘ 4 


“ 
M 
NOOMI2ZE0 


10 
K 


i 
! 
A 


RANDOM 
(RESTORES 


RESTORE 
‘STOPS 
vSTOP 
‘ENDS 
1 ENO 
ruISsTe 
thts? 
*RUNE 
RUN 
SAVE? 
1 SAVE 
OLD! 
1940 
‘SCRE 
SCR 
‘Clee 
sGLEAN 


BASIC, MACX24 VO2a 22eMARe73S 46105 PAGE 1203 


620 

624 8010353 oog BYTE a F 

tee EVEN sEnO OF TABLE FLAG 
623 COT 

024 


BASICL MACXLL Ve21 22eMARe73 36485 PAGE 15 


625 U : SOURCE FILE #2 
626 J RROREREOEROD SHORE CEEORODSODHETREOHEHETEEDOEDORERED 
627 POPSHHSSSEOEHHHSEHESOSHHEEEHHHCEHE 


628 OP CCCeoeees 
629 MAIN FLOW ROUTINES ebeneveooere 
630 eteneees . 
634 POOR OROOOOEOHEEOCOHOEEDODORECOHEHOHESHEOEDESEOH ODED 
632 14OOO00HFOROOD HERO ODEHREROSEDEDESODOD HOOF EDEEOOOECE 
633 
634 
635 
636 
637 1 
tse J START = PROGRAM STAKTING POINT 
i 
648 881934 316705 ageg00G STARTI MOV USRAREA, RS 
64. 881040 916506 800004 MOV POL(RD),SP 
642 381044 285965 200104 CLR ECHOSP(RS) 
643 901059 094767 207096 ° JSR PC, BUFCLR sCLEAR OUT ALL 170 RING QVFFERS 
644 801054 916526 o80004 SCRATCHIMOV POL(R3),SP 
645 G81060 004767 042700 vgr PO, INITSCR 
646 881064 3284767 827554 CLEART JSR PC, CLAVARS 
oe 801878 880402 8R READY 
64 


BASIC. 


049 
658 
653 
652 
653 
654 
655 
656 
657 
658 
659 
668 
664 
662 
663 
664 
665 
666 
667 
668 
669 
678 
671 


BASICL 


672 
673 
674 
675 
676 
677 
678 
679 
688 
684 
682 
683 
084 
685 
686 
687 
688 
689 
690 
694 
692 
693 
694 
695 
696 
697 
698 
699 
738 
701 
702 
703 
704 
705 
706 
707 
708 
7209 
710 
714 
712 
713 
714 
715 
716 
717 
718 
719 
720 
72u 
722 
723 
724 
725 
726 


MACKIL 


901072 
801076 
901182 
881126 
881112 
003128 
004124 
804130 
8041152 
004137 


301140 
901144 
882150 
001153 


391154 


MACX24 


881168 
1164 
004166 
884174 
304176 
881202 
01206 
081210 
801212 
301216 
901228 
884222 
001224 
801226 
0812356 
381232 
801236 
221240 
201244 
901259 
881252 
881254 
881268 
884262 
884266 
801270 
901274 
801509 
881302 
281396 
064318 
801312 
801314 
884316 
804520 
981322 
81524 
381330 
881552 
891354 
881336 
201340 
34544 
301350 
901352 
881354 
931356 


vear 


084767 
446506 
085865 
285965 
812765 
060565 
884167 

e415 
242522 

oeB 


916526 
204167 
O15 
ove 


895865 


Veet 


004767 
193026 
127527 
801336 
200167 
004767 
905204 
010146 
916501 
160116 
112100 
100417 
029300 
152100 
064528 
021927 
123011 
916504 
024627 
281033 
085016 
005260 
000407 
105765 
304334 
000167 
984767 
a19104 
124127 
224452 
111193 
190778 
905221 
080303 
152193 
761503 
821327 
193361 
221013 
104357 
281036 
304767 
121127 
eo1427 
114433 
108772 
205221 


22eMARG73 


207034 
30004 
9a0126 
oeeo76 
290036 
890034 
044346 

oi2 
042103 


880004 
914524 
0212 


890B76 


22eMARe73 


813168 
OeBe16 
315642 
216146 


890020 


177775 
990016 
280083 
290002 
908077 


989454 
015660 


609225 


177775 


015614 
ea90225 


880834 


431 


b12 


890225 


16165 = =PAGE 14 


De cccqercngeccccnneecccena snc cece s eens eccceeeseceseccceces 


' 
} READY » PRINT 


‘ 
REAOYO! JSR 
READY! MOV 


CUR 
CLR 


READY2I MOV 


TOINTTY CLR 


16105 PAGE 45 


"READY! 


pC, BUFCKR 
POL{R5),SP 
CNCFLG(RS) 
ODEV(RS) 


HCLEAR ALL 370 RING 8BYFFERS 
sfecr AND #908 FLAGS 


OCLMNTTY, COLUMN( RS) HSET TO COUNT TTY COLUMNS 


RD, COLUMN(RS) 
Ri MSG 

CRyLF 

READY? 


POL(R3),SP 
RY MSG 
CRyLF abr 


ODEV(R5) 


y NOW 


JCLR ODEV ANO IDEV BYTES JN 'ISER AREA 


rete eet a a 


’ 
| eolr e 


¥  GEY LINE, TRANSLATE INTQ TOKENS, AND Move LINE INTO 
§ USER CODE SPACE, WITH ALL ENTRIES MADE INTO USER 

1 SYMBOL TABLE, ARRAY SPACE, AND STRING SPACE, 
H 
E 


Olt JSR PC, LINGET 

ace EOI, 

cMPB @CODE(RS), #4, £0F 

BNE REAOYO 

ume DEVERK 
EDITL: JSR PC, TRAN 

INC Ri 

MOV RL, 0 CSP) 

MOV LINECKS), Ry 

SUB Ri, (SP) 

MOVE (RL) ORD 

BM} EOIMMED 

Swap Re 

CRY) (RL) o)RO 

aod (R35), RO 

CMP (RO), #, SCALAR 

BHIS ED{MMED 

MOV CODEC HS) RY 

CMP (SP), a3 

BNE EOISRGH 

CLR (SP) 

CLR 2¢R@) 

BR EQUSRGH 
EDIMMEDITSTB TOEV(KS) 

BNE cotyT 

UMP IMMED 
EDISKIPIUSR PC,SKUPEOL 
EDISRCWEMOV R1,R4 

CMPB CRY), #, EOF 

cra") EQIPUT 

Move CRLDARS 

BMI EOTSKIP 

INC RL 

SWAB RS 

81SB CRO) OARS 

aod (R35), RS 

che CR3) 1 #, SCALAR 

BHIS EDISKIP 

CMP (ROD, (RS) 

BH! EQISKIP 

BNE EOUPUT 
EDIPASSIt VSR PC, SKIPEO., 

cMPB (RL), #, EOF 

BEQ EDLOVER 

MOVE CRY RS 

BMy EVIPASS 

INC RL 


INORMAL INPUT LINE 
CHECK EMPTY PROGRAM 
INO, RETURN TO TTY INPUT 
yYES, OEVICE NOT READY 


sIF THERE ARE ONLY 3 BYTES THEN THE LINE 
HCONATINS LINENO,CR AND MEANS DELETE, 
IGNORE IMM STMTS FROM NANSTTY 


HRa POINTS TO GINENO OF THE NEW LINE, 
tOES®) CONTAINS LENGTH OF THE NEw LINE, 


BASICL 


727 
728 
729 
730 
734 
732 
733 
734 
735 
736 
737 
738 
739 
740 
74. 
742 
743 
746 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
768 
764 
762 
763 
764 
765 
766 
767 
768 
769 
770 
774 
772 
773 
774 
775 
776 
777 
778 
779 
789 
784 


BASICL 


782 
783 
784 
785 
786 
787 
788 
789 
790 
794 
792 
793 
794 
795 
796 
797 
798 
799 
800 
8a. 
aoe 
ee3 
8a4 
805 
806 
827 
898 
809 
812 
81a 
812 
813 
a14 
815 
616 
817 
818 
819 
822 
824 
622 
823 
824 
825 
826 
627 
628 
829 
830 
832 
832 
833 
834 
835 
836 


MACXLL 


983562 
881362 
04304 
901566 
984372 
804374 
801400 
301424 
824412 
221412 
O81414 
204416 
304429 
004422 
081424 
881426 
304438 
001432 
BB1434 
081436 
oos44g 
aaiese 
001459 
001452 
31454 
803456 
801468 
ai4e2 
BBL 4646 
002466 
081478 
904472 
901474 
281476 
oBi508 
381502 
801504 
801506 
994510 
881512 
Bai5i4 
Oa1516 
804522 
01524 
321526 
0815350 
004532 
804536 
001548 
381544 
301546 
301558 
981552 
901554 
801556 


MACXL4 


801560 
901562 
901564 
801566 
801572 
301572 
901574 
001600 
881682 
201606 
901612 
301614 


201620 
884624 
281638 
361632 
301634 
881656 
901648 
201642 
381644 
801646 
801658 
384652 
301654 
221656 
301668 
3B1664 
301666 
201678 
881672 
BO1674 
301676 
381720 
BB1704 
981706 
901719 
384712 
3B1714 
901716 
301728 
301722 
391726 
301738 


ve2i 


200323 
152423 
264503 
821327 
103362 
162704 
916508 
916502 
321004 
104423 
324021 
191024 
295039 
285728 
905322 
883370 
160404 
200401 
305901 
164602 
016580 
916502 
821004 
183403 
160110 
895729 
803302 
003372 
099704 
100433 
884473 
010422 
061622 
910223 
360123 
112322 
320315 
123775 
199742 
204424 
885202 
030227 
804424 
108922 
010215 
42322 
320365 
183774 
010265 
900404 
905922 
B202u5 
183775 
9090444 
011508 


YO2a 


1095749 
301402 
205208 
160120 
010083 
028203 
242783 
164503 
966503 
220365 
104482 
290167 


216502 
949365 
360404 
OL4243 
28215 
104375 
340315 
105043 
3yaeve 
060108 
7BB404 
114042 
920024 
101375 
216508 
810404 
342682 
380404 
122024 
205382 
202375 
1241127 
OO1447 
121122 
180412 
OB5201 
288302 
152102 
061502 
222227 
193003 
¢19412 


22eMARe73 


177775 


aooee2 
290004 
290032 


890204 
880852 


200081 


080014 
888024 


22eMARe73 


289004 


600014 
gaogi2 


816524 


OBO014 
290024 


opee2o 


890225 


477775 


16105 PAGE 1504 


Swag 
aise 
ado 
cme 
BHIS 
sus 
MOV 
MOV 

EDICNG) CMP 
80S 
CMP 
BHI 
CLR 
TST 
oec 
86T 

EDLOVER!SUB 
BR 


EDIPUT! CLR 
sys 
MOV 
MOV 
EOIMOOF ICMP 
80 
Sus 
rst 
oEC 
BGT 
TS? 
BMI 
BEG 
EDICONTEMOV 
aod 
MOV 
aoo 
EDIMOVE IMOVE 
CMP 
840 
rsTe 
BEQ 
TNC 
ay? 
EQ 
CLRB 
MOV 
MOV 
CMP 


EDIGROWSMOV 


16485 PAGE 1502 


TS78 
89 
INC 
3u8 
MOV 
INC 
BIC 
sua 
a0 
CMP 
BLOS 
ERROVA} JMP 


e UPNOF 
MOV 
TST 
CMP 
G0 
JSR 
CMP 
BHIS 

+ ENOC 


EDTROOMIMOV 
MOV 
BR 

EOLMVUPTMOV 
CMP 


BHI 


GE 
EDIRLC8ICMPB 
BEO 
MOVB 
BMt 
INC 
Swas 
8188 
A0d 
CMP 
BHIS 
MOV 


RS 

(RL) ORS 

(9) RS 
(RS), #, SCALAR 
EDIPASS 

#2,R4 

POL (RDI, RO 
GSBCTH(RS),R2 
CHB), RE 

1°42 

(RB) RL 


R 

COP)ARS 
POLCR9) RO 
GSBCTH(RS) ,R2 
(RO), RA 


EDIMOQF 
R 


EO {GROW 

EQUSAME 

R4,R2 

COP) RZ 

RQ,R3 

RU,RS 

CRI) Og (R206 

RJ, (RO) 

EQIMOVE 

wo (R2) 

14 

RZ 

R2, 84 

1t4 

(R2)@ 

R2,(R9) 

(RS) Oy (R206 

R3,LOFREE(RS) 
6 


H 
RZ, LOFREE(RS) 
194 


EQISAME 
(R5), RO 


AS ;HIFREE(RS) 
196 
ERROVE 


SNOSTK 
R3,R2 

CR2)¢ 

RZ, LOSTRIRS) 
ED}ROOM 

PC, UPPACK 
R2,LOSTRERS) 
ERROVY 


LOFREE(RS),R2 
R3,LOFREE (RS) 
a4 

(RZD) eCRS) 
R2, (RD) 
EDIMVUP 

RS, (RO? 

#(R3) 


 RO,RZ 


RL, RO 

104 

(ROP OCRZ) 
RB, RA 

04 
LINE ( RS), RO 
R4,RL 
{SP)eyR2 
104 

(ROO, C4)S 
R2 


194 
CRO) 8, EOF 
EQT UMP 
CRE) KZ 
EDIRLOC 

Ry 


Re 

(RY) Oy R2 

(RO) RZ 
(82), 8, SCALAR 
EQTRLOC 

RS, (R2) 


VF A LINE TS CHANGES WHICH IS 
JREFERENCED HY THE READ POINTER,AN F™ 
POINTER OR & GOSUR POINTER THEN THAT 
PPAINTER MUST BE CLEARED 


HR4 “OW @ HCHARS TO CONTRACT, 

SALL REFERENCES BY THE REAN POINTER 
SWHICH REPER TO LINES WHICH ARE MOVEN 
JBECAUSE OF EDITING MUST BE RELOCATED 


pR4 “QW = ADORESS AT WHICH TA INSERT, 


IMOVE DOWN THE CODE, 


RQ “QW POINTS TO BYTE AFTER THE ,EOF, 


sR2 NOW HAS THE NEW START OF THE SYMTAB, 
JMOVE DOWN THE SYMAOLS; 


CLEAR VACATED STRING STARAGF TO ZERNES, 


yRA NOW POINTS PASY THE NEW HIGHEST SYTE 
yOF COME, 


HRS NOW HAS THE NEW START OF SYMTAB, 


yR3 NOW WAS THE NEW VALUE OF LOFREE, 
JCHECK TO SEE THAT THERE [S ENOUGH 


CHECK TO SEE THAT THE SPACE THAT WILL 
BE VSED TS NOT OCCUPIED BY STRINGS 


5NO, MOVE THEM UP 
yTRY AGAIN 


iMCVE UP THE SYMTAS, 


CLEAR THE POSSIBLY USED FILLER 
tRO NOW POINTS PAST OLD HIGHEST AYTE 


1OF SYMTABy 
}MOVE UP THE CODE, 


IMOVE THE NEW LINE INTO THE “ODE, 


BASICL MACX12 V@2i 22eMARe73 16105 PAGE 1503 


837 901732 162712 seeee? sys #2, (R2) 

838 304736 904767 015216 EDIAL OCI VSR PG, SKLPEOL 

839 381742 308756 BR EDIRLGS z 
849 3814744 200167 177210 EOLJMP} MP €or 

844 


BASJCL MACX11 VO2s 22emMARe73 16185 PAGE 16 


042 J ecwnencccqcccgecpecc scons cwwnc nen cenwseceeccesecsccenseceese 


843 

44 1 IMMED © IMMEQLATE MQDE CoMMANDS 

a45 1 ‘ 

846 J} 09 IMMEDIATE ONLY GoMMANDS ¢RUN, LIST» SCRATCH: CLEAR, 
847 ) SAVE, AND OLD) ANQ SET UP OTHEPS (UN@NUMBEPED) FOR 
8468 ! EXECUTE, 

49 ' 

858 801758 712600 TMMED} = MoV (Sp) o—RO IRA "QW WAS # BYTES AN [’PUT LINE, 
851 001752 285965 990076 CUR OQDEVC(RS) yTAKE ONLY THIS IMME, COMM, FROM NONOTTY 
852 801756 216524 390906 “OV POSJZE(RS5),R4 

853 981762 3165014 298020 MOV LINECRS) RL 

854 901766 205902 CLR R2 

855 981778 154182 ajse CRY PRZ 

856 091772 162702 090277 sue Wy LIST, R2 

857 801776 206382 AS|, R2 

858 982008 220227 o68B12 CMP R2, WTBEL4ENN@ TABLES 

659 g82904 101012 BHI. IMMSTMT 

860 202826 362792 aeoue2 aoo #2,R2 

864 802912 260702 aod PC,R2 

862 302814 361207 A00 (RZ) PC 

863 882016 380162 TABLES) ,WORD = UIST# TABLES 

864 a92028 200226 WORD = RUN@ TABLES 

865 o92022 290124 WORD = SAVE @ TABLES 

866 382924 290862 WORD OL De TABLES 

867 902026 177036 eWORD «= SGRATCHeTASLES «(TN fC START! CODE, ABOVE) 
868 382030 177246 TBL4ENDt, WORD CLEARSTABLES SCIN ¢STARTS CODE, ABOVE) 
869 802032 260128 IMMSTMTIA00 RY, RO 

878 082834 829065 oese16 CMP RO, CODE (AS) sSEE JF AN fEOF! CAN BE FIT ON THE LINE, 
871 302040 103402 : 8,0 1% 

872 3882942 390167 015770 IMP ERRIRN. 

873 802046 112738 099225 MOVB #, EOF, (RA) 

874 G82052 942765 177775 000030 MOV # SCALAR, LINENQ (RS) 

875 202068 205965 200036 CLR CRMNTTYCRO) pRE@SET ALL COLMN COUNTS 
876 392064 293067 176519 CLR ChMNPP 

877 302078 185067 176506 CLR CLMNLP 

878 302074 200267 200534 UMP EXECUTE sSTART RUNNING, 


a79 


BASIC, 


689 
bay 
882 
883 
686 
885 
886 
887 
888 
889 
a90 
B94 
892 
893 
a94 
895 
896 
697 
898 
899 
900 
90% 
902 
9O5 
904 
985 
986 
927 
988 
909 
910 


BASICL 


914 
912 
913 
914 
915 
916 
917 
918 
919 
920 
924 
922 
923 
924 
925 
926 
927 
928 
929 
930 
934 
932 
933 
934 
935 
936 
937 
938 
939 
94g 
944 
942 
943 
944 
945 
946 
947 
948 
949 
950 
954 
952 
953 
954 
955 
956 
957 
958 
959 
960 
964 
962 
963 
964 
965 


MACX41 


302108 
002494 
882119 
op2134 
082129 
392124 
302438 
382432 
802156 


082142 
882446 
882152 
882156 
992160 
882164 


202170 
302474 


902290 
982202 
882206 
082218 
982212 
oe22s4 
802220 


MACX44 


882224 
802230 
BB2254 
982236 
802240 
302242 
802246 
802246 
882252 
892254 
082268 
202262 
082266 
082278 
882274 
882276 
302302 
O82304 
882386 
882312 
802314 
902316 
302328 
802322 
282324 
882326 
882332 
802334 
902336 
882342 
982344 
892359 
982352 
382354 
282356 
282369 
882362 
BB23564 
802370 
302374 
882376 
282402 
882494 
282406 
982419 
ooedi4 
382416 
982422 
a82424 
002426 
802430 
082432 
302434 
882436 


veas 


216506 
204767 
084767 
204767 
284767 
122127 
981402 
200167 
280167 


284767 
984767 
120227 
383404 
294267 

ai4 
382479 
804767 
900167 


985204 
084767 
183770 
321203 
801766 
084767 
080167 


Voa. 


984767 
816504 
112102 
100406 
909302 
152402 
764502 
11265 
112132 
120227 
281415 
120227 
01530 
120227 
a04504 
128227 
204537 
905304 
304767 
300759 
112122 
100526 
200322 
152132 
961582 
122127 
2011008 
285283 
121127 
704406 
122127 
804974 
121123 
180467 
2809323 
305204 
152428 
012706 
122127 
204423 
124127 
301054 
205204 
ae5a6 
121127 
204426 
122127 
204044 
1i1124 
1020442 
200304 
395224 
152124 
122127 


22emAR®73 = =46185 PAGE 17 
1 TOLD! COMMAND 


aeeeue OLot MOV POLCRS) SP 
014654 uSR PG INT TSCR 
096312 JSR AG CLAVARS 
o15ae4 JSR PG, SCANPNO 
996200 JSR PG, CHKISET 
000223 CMPB CRA) Hy 8, EOL 

Beo OL0o0% 
BO7>12 MP ERRSXD 
477016 OLpaai) UMP EDIT 


} TSAVE® COMMAND 


914756 SAVES JSR PG, SCANPND 
096160 JSR PC, CHKOSET 
292002 CMPB R2,82 
BLE LISTSV 
84353556. JSR RL, MSGOOEY 
o14 oe BYTE =FF,FF yo 
1 EVEN 
812606 LISTSV) JSR PO LSTPROG 
176676 JMP READY 
) ALIS?! ComMAND 
GISTs INC Ry 
811946 JSR POPLINE 
8cs LISTSV 
MOV CR2) RS 
BEO QISTSYV 
812566 vSR PC, LSTLOOP 
176652 JMP READY 
22eMARC73 16105 PACE 48 
1 FRUN? COMMAND 
2061746 RUNE JSR PC, CLAVARS 
880R16 MOV CODE (KS), RY 
OIMLOOP I MOVE CHL) OyR2 
am} DIMNONO 
SWAB Re 
alse CRE) oy RZ 
a00 (R5) pR2 
ae030 MOV (RZ), INENO(R5) 
MOVE (RL) opR2 
898215 OLMNONOICMPB R2,8,01M 
sea O}MGOT 
698223 CMPB 82,8,08F 
Late} OEFGOT 
890216 CMPB R2,#,RANOOM 
BEO RNOGOT 
Bee225 CMPB R2,8,60F 
BEO O[MDONE 
bec RY 
244646 DEFOUN! VSR PG, SKIPEOL 
8R OLMLOOP 
OMMGOT! MOVB (RL) oy RZ 
aM! ERROIM 
SWAB R2 
RISB (R4)o)R2 
400 (R5),K2 
000255 cues (RE) eg #, UPAR 
BNE ERROIM 
CLR RS 
280375 CMPS. CRY) # TL TS 
i BEQ ALLOG 
808376 CMPB (RE) eee, TLIT2 
BNE ERROIM 
MOVE CR) RS 
BMI ERROIM 
Swag RS 
ALLOC1I INC Ry 
8)3B (RL OyRS 
177777 MOV wag, R4 
020257 CMPa CRE) Oe #,RPAR 
80 OOALLOC 
200243 CMPB (RL) 9M, COMMA 
QNE ERROIM 
TNC RY 
CLR R4 
888375 cMPS CRO) OIL UTS 
BEO ALLOc2 
880376 CMPB CREO pe, TLTT2 
BNE ERROIM 
MOVE (RE), R4 
8M! ERROIM 
Swag R4 
ALLOC2} INC RL 


B1SB (RL) ey RA 
290237 CMPB = (RL) oy #, RPAR 


JFLUSH OUT SYSTEM 
1SCRATCH 


ISCAN OFF tat 
sCHECK AND SET INPUT 
sMUST END LINE RIGHT 


HTHIS DOES THE REST 


ISCAN OFF fat 

CHECK AND SET@UP OUTPUT 

HLINE PRINTER? 

INO LIST TAKES OVER 

HFOR LPT, START W/ 2 FORM@FEFOS 


jGET ADOK OF CODE LINE 
HUF UNDEF, NORMAL LIST 
sLIST PARTIAL PROGR 


BASICL 


966 
967 
968 
969 
979 
972 
972 
973 
974 
975 
976 
977 
978 
979 
veo 
yey 
982 
983 
984 
985 
986 
987 
988 
989 
999 
994 
992 
993 
994 
995 
996 
997 
998 
999 

12008 
1901 
1082 
1203 
1204 
1205 
1906 
1207 
1228 
1009 
1919 
1024 
41212 
2013 
4014 
1015 
1016 
4017 
1618 
1019 
1028 


BASIC. 


e214 
1p22 
4223 
1224 
1923 
1026 
1027 
1928 
1029 
1238 


MACKX14, 


982442 
002444 
282459 
802452 
002454 
002469 
882462 
892466 
202472 
082474 
992509 
882502 
202504 


802506 
392514 
082522 
392526 
982530 
802534 


8925356 


092544 
902542 
382544 


002547 


302559 
002554 
082556 
882569 
002564 
982566 
9025798 
002574 
802576 
802608 
082602 
982606 
902612 
082616 
902622 
302626 
892632 
902654 


MACX44 


302648 


382643 
802644 


Vo2t 


801034 
821227 
904434 
882403 
295762 
190025 
204767 
122127 
3047198 
124127 
901015 
205201 
282653 


946565 
132765 
122127 
04642 
080267 
988004 


042441 


908 
apeone 
o42aas 


122127 
801372 
112102 
266502 
085722 
804365 
122127 
081562 
940122 
980642 
025965 
985067 
305967 
846504 
816504 
121127 
801018 
004167 


Voas 


850116 


808 
600167 


22eMAR®7S 16485 PAGE 1804 


177776 


ao0g04 


905070 
800245 


869203 


200878 oBD064 
Gene0, 890064 
999203 


907234 


ais 


406 


980262 
990004 


899@55 


990036 
175566 
175564 
300806 
098016 
oeeazs 


012626 


BNE ERROIM 
OOALL OCI Cup (K2),8,NVAR 
BEO ERROIM 
aur DIMSCLR 
TST 40R2) 
SPL ERROIM 
DIMSCLRIUSR PG, ALLOC IVAR(R2),SS2¢R3),S8264) 
cMPB (RG) o, 8, COMMA 
8E0 O{MGor 
comps (RS), 8, E01, 
BNE ERROIM 
INC ay 
8R O;MLOGP 
SRANOOMIZE STATEMENT 
RNOGOT) MOV RNOCT(RS),RNOLERS) 


arse #2 RNOL(RS) 
CMPB CRY) Oye EOL 
seo O}MLOOP 
MP ERRSYN 
ERROIM] JOT 
1IFNOF SLONGER 
ASCII ¢fOme 
+ENOC 
sUFOF  SLONGER 
sASCIT SULLEGAL OMe 
»ENOC 
;BYTE @ 
sEVEN 
ERROEFY {OT 
1TPNOF = SLONGER 
sASCIE NULOFN 
sENOC 
ctPor SLONGER 
sASCIL ILLEGAL DEF? 


sENOC 
BYTE 8 
EVEN 
OEFGOT) CMPB CRY) e,8,FN 
BNE ERROEF 
MOVB = (RU 0, RZ 
400 POLCRS) R2 
TST ¢R2) 
BNE ERROEF 
cure (R4)e) 8, LPAR 
BNE ERROEF 
mov RY, (RZ) 
aR OGFOUN 
DIMDONEIGLR CUMNTTY (RS) JRE®SEY ALL COLUMN COUNTS 
CLR CLMNPP 
CUR CLMNLP 
MOV POS}ZE(R5),R4 
mov CODERS) »RE 
CMPB (4), 8, EOF 
BNE EXECUTE ISTART RUNNING, 
ERRRUNI JSR R4,MSGERR 


22eMARw73 = 16105 = PAGE 1802 


122 


176270 


tIPNOF = SQONGER 
tASCIE \NPRA 

sENOC 

sTFOF «= SLONGER 
LASCLL ¢'NO PROGRAM! 
ENO 

BYTE @ 

,EVEN 

JMP READY? 


BASTCL 


2033 
1032 
4933 
1034 
1035 
2856 
1037 
1038 
4239 
1048 
1044 
1242 
1243 
1044 
1043 
4346 
1047 
1048 
1049 
40508 
4054 
1252 
1053 
4054 
4053 
1056 
14057 
1258 
1959 
1060 
4063 
4062 
4063 
1064 
1265 
4266 
4267 
1068 
1269 
142708 
107% 
1072 
1273 
1074 
12975 
1876 
4077 


BASICL 


1278 
1979 
1080 
1982 
1082 
1283 
1984 
1085 
1286 
1987 
1288 
4089 
1090 
109% 
1992 
1293 
41094 
1295 
1996 
1097 
1098 
1099 
1100 
1aet 
1102 
1103 
juga 
4105 
1106 
1107 
1208 
1109 
1110 
42111 
1212 
1113 
4ai4 
2415 
1216 
4247 
1218 
4119 
1420 
1221 
4122 
1123 
1124 
112 
41126 
4127 
4128 
1129 
1130 
1131 
1132 


MACXA1 


802650 
882654 
892668 
082662 
982666 
882672 
082674 
802676 
892702 
802704 
882710 
982712 
082714 
892716 
822720 
002722 
802724 
982726 
902758 
882732 
8027354 
882736 
892749 
082742 
002744 
802746 
802759 
092752 
802754 
802756 
892766 
882762 
082764 
892766 
392778 
8B2772 
902774 
982776 
883802 
303004 
083810 


MACKXLL 


883012 
805014 
303020 
223822 
883026 
983038 
A03854 
303856 
883049 
683042 
BO3044 
883046 
003059 
083852 
803254 
BBSO56 


203060 
905864 
893866 


003878 
BO3B72 


383074 
983276 
803190 
383102 
203104 
BO3106 


083110 
803112 
903116 
083420 
203122 
803124 
803126 


yor 


004767 
105765 
991404 
195965 
800167 
142182 
202835 
442782 
896382 
020227 
184127 
900702 
264207 
177736 
880356 
081216 
881036 
881036 
080400 
2027352 
888272 
881726 
82240 
0od142 
BBOS60 
177732 
177732 
01926 
177732 
179732 
803338 
177732 
800074 
200336 
990328 
152102 
06(502 
824227 
103427 
011265 
800724 


ve2a 


112102 
128227 
AOLEAS 
120227 
304068 
122127 
404055 
940128 
205823 
@B5203 
19572) 
381375 
122122 
201046 
393303 
991442 


013782 
004437 
040246 


1057142 
081434 


940046 
310346 
122922 
081034 
285303 
381374 


101683 
862723 
ap2422 
304404 
105722 
ao1823 
395323 


22aMARe73 


344504 
BOB106 


800426 
176204 


477600 
290052 


477775 
890830 


22eMARe7S 


080257 
888256 
830577 


000046 


208804 


16105 PAGE 49 
J woweccncegennencqgececcescengcennseresenensenscoscsersoneese 
} EXECUTE © EXECUTE COMMAND LINE 
TGNoRE! JSR eG, SKiPeol 


EXECUTENTSTB © CNEFLG(RS) peocr WIT? 
BEO NOCNC 
CLRe = CNCFLGERS) 
Pi ld REAOY 
NOENC} OVE (RL) o,R2 
BGE NOTSYM SETS A POINTER, 
BIC #u208,RZ 
ASL, R2 
cup RZ, #TUL LENDS TABLE LOZ 
BH! ERRSX}, INOT A STATEMENT WORD, 
400 PG,R2 
ado (R2),PC }BRANCH THRU TABLES, 


TABLESS , WORD EXECUTE@TABLES 
WORD ENDe TABLES 
sWORD = FOR@ TABLES 
WORD GOSUBeTABLEL 
;WORD GOTOTABLEY 
»WORQ = [Fe TAULED 
WORD INPUTS TABLEL 
;WORD) = LETeTABLES 
WORD NEXTe TABLES 
sWORD = PRINT@TABLED 
»WORD = RETURN®TAGLES 
:WORD = STOPeTABLES 
WORD «= TGNORE@TABLEL ss 
WORD SGNORESTABLEL 
WORD RESTORE®TABLES 
sWORD = JGNORESTAGLEL 
WORD JGNORE STABLES 
sWORD READ@ TABLES 
:WORD IJGNORESTABLES 
;WORD = CALLeTAGLEL 

TBLLENDI WORD EOF eTABLEL 

NOTSYM! SWAB R2 
apse (RE OPRZ 


abo (R5) RZ 

GHP (2) ,8, SCALAR 

BHIS ASSIGN JNOT A LINENO, 
MOV (R2) pl INENO(RS) $SAVE THE LINENO, 
BR EXECUTE 


16105 PAGE 28 
y POALL! STATEMENT 


) CALL "PROG" (140) 
CALLE 
vTFNOF = SNOSTR 
ySR PO EVAL JEVALUATE FUNCTION NAME 
Bcc ERRSXL 
MOV (SP) 6) RO 
CMP RO, WL77777 ICHECK NULL STRING 
BE0 ERRFNG HYES, ERROR 
MQVe (RO)O,RS yR3 1S STRING LENGTH 
Move (ROH LRODY yR@ 1S ADOR OF CHARS 
,ENOC 
1I7OF  SNOSTK 
MOVE (RL) RZ yR2 1S QUOTE CHAR 
cura RZ, 8, SQU0T 
sea CALLE 
cMPB R2, 8, QQU0T 
BNE ERRSX} 
CALLAE «= GMPB (RL) Ogm, TEXT 
ONE ERRSX} i 
MOV RLARA yR@ TS ADOR OF CHARS 
CLA RS 
CALLPT INE RS HCOUNT CHARS IN RS 
TSTB (AL) 
BNE CALL? 
cmPa (RL) 6 ,RZ ICHECK CLOSING Quote 
BNE ERRSX} 
oEe RY 
gea ERRFNG 
,ENOC 
' INTT TABLE SEARCH 
MOV 0846, R2 
Lp] GRRENY 1NO FUNCTIONS DEFINED 
MOV R2,0(SP) HSAVE ON STACK 
i) CHECK ENO TABLE 
CALLCKI TSTB (R2) 
BEG ERRFNY 
' CHECK THAT (RJ) CHARS MATCH 
MOV RO, 0(9P) 
MOV RS, 05?) 
CALLM1] CMPB (ROO (RZ) e 
BNE CALLNM 
oec RS 
BNE CALLMS 
i GHECK THAT 40(R3) CHARS ARE 7 IN TABLE 
SUB (SP) RS 
a00 M4,RS 
BLT ERRFNY 
BEO CALL 
CALLM24 TSTB (H2)e 
BNE CALLNM 
cee RS 


BASICL MACXi2 § Va24 22eMARe73 16105 PAGE 2804 
1153 883139 392376 BNE CALL? 


1134 1 RETURN ANEVER 

1135 003132 0627086 00006 CALLX} 400 06,8P 1POP STACK 

1139 893136 242202 “ov (RZ) H2 

2137 003148 204422 eca ERRFNG 

2238 0093142 010146 MOV RE, e(SP) 

1239 003144 049446 MOV R4,0(3P) 

1148 303146 019546 MOV RS, 0($P) 

1241 

1242 003250 204712 usr PG, (RZ) 

4243 

1244 993152 242605 mov (GP) oy RS 

1445 903154 232604 Mov (SP)4,R4 

1146 003156 042604 MOV (SP) o—RE 

1147 903169 200167 177464 MP TGNORE 

2148 003164 200167 207626 ERRFNL| UMP ERRUPN 

1249 903179 290167 2906454 ERRSX11 JMP ERRSYN 

1159 4 AQVANCE TQ NEXT TABLE ENTRY 

1254 083174 «212603 CALLNME MOV CEP) OARS 

1452 803176 842600 MOV ($P)o,RO 

1153 003200 262716 ag0006 ao0 99,690) 

1154 393204 031602 MoV CSP) KR? 

145% 883286 390738 eR CALLEK 

1156 

1157 1 TILEY? STATEMENT ROUTINE 

4258 993210 112192 Lets Move (RE) 4g R2 

1159 093212 100766 omy ERRSXY INOT A POINTER, 

1168 083214 299302 SWAB Re 

4264 003216 152192 ase CREO RZ 

1462 003220 264502 aoa (A5) RZ 

2163 003222 004767 010396 ASSIGN} JSR PG GETVAR 

2264 003226 122127 999254 cure (RL) 0, 8,69 

1165 083232 291356 ONE ERRSXS INOT EQSIGN, 

1266 803234 094767 395356 Jsr PO,EVAL 

1167 

1168 vIFNOF = SNOSTH 

2169 Bcs ASSSTR 

1178 sENOC 

247% 

2472 903249 1221327 s20204 Cura (R4)0,9, £0 

1273 693244 004351 ONE ERRSX} 

1274 083246 084767 913772 vsr PG, STOVAR 

3 883252 segea BR EXECUTE 

276 

1177 ,TFNOF © SNOSTR 

1178 ASSSTRY CMPB (R49), 8, EOL 

1379 BNE ERRSX3, 

1189 JSR PG, STOSVAR 

2283 BR EXECUTE 

4282 +ENOC 

1183 

1184 § FEOF? OR (END! STATEMENT 

1185 ENOS 

1186 903254 320165 299016 €0Fs cup RL, CODE(RS) 

1187 883268 193014 aHIS JMPROY 
BASICL MACX12 Va2i  22eMARe73 16105 PAGE 2802 

1288 083262 094167 912206 JSR RAaMSG 

1189 023266 o15 o12 ‘BYTE = CReLP 

1190 093278 TT) :BYTE 3 

1293 9e3272 = * ,EVEN 

1192 0093272 000167 175662 ume EIT 

1193 }_VSYOP* STATEMENT 

1194 003276 «004167 912172 STOP: VSR RL MSG 

1195 983302 gis O12 sOYTE = CRaLP 

1296 003304 952423 050137 sASCIE *$¥orPr 

1297 003310 900 BYTE «68 

1298 283312 1EVEN 

1299 983312 000167 175560 UMPROY) UMP READY 


1290 


BASICL 


4312 
1312 
13135 
1314 
1315 
1316 
1317 
1316 
1319 
1520 
1321 


BASICL 


4322 
1323 
4524 
4325 
4326 
1327 
1328 
1529 
13536 
1334 
1332 
1533 
13534 
1335 
13536 
1337 
1538 
1339 
13548 
1342 
1342 
1343 
1544 
1545 
1346 
1347 
1348 
1349 
13508 
1352 
1352 
1353 
1554 
1555 
1556 
1357 
1358 
1359 
1566 


MACX11 


883712 
883714 
883729 
883722 
083726 
893730 
883734 
083736 
883742 
883759 


MACX11 


083754 
803768 
083762 
083766 
083770 
083772 
003774 
904002 
804004 
004819 
004912 
084016 
084922 
084024 
894926 
884932 
084034 
084246 


984042 


984045 
904046 
984858 


904053 
084954 


ve2. 


681960 
120027 
081415 
126027 
604422 
120027 
884407 
000167 
012775 
960167 


ve2. 


064767 
103435 
422127 
001852 
985712 
084425 
126127 
981913 
916503 
386303 
066523 
820365 
104006 
10133 
905265 
11203 
600167 
300004 


847187 


000 
9o0R84 
346225 


oe9 
000167 


22eMARe7S 


398246 
890253 
090259 
176706 


177777 
176798 


22eMARe73 


807274 
900203, 


177774 
8908S2 
290004 
088002 


098052 
176044 


104 


116 


295578 


O89006 


290204 


16185 PAGE 2102 


SNE 
Cups 
eceQ 
cmuPe 
BEo 
cMPe 
B60 
MP 
RESTORE IMOV 
vMP 


46495 PAGE 22 


ERRSKO 

AG), GE 
cote’ 
RO,#,GT 
GoTo 

RO, #,NE 
60r0 

IGNORE 

#91, 0P0LERS) 
EXECUTE 


1 1GOSUB’ AND (GOTO! STATEMENTS 


Gosuet 

ootor vsr 
ecs 
cMPS 
BNE 
vst 
LI) 
cura 
BNE 
MOV 
asi 
aoo 
CMP 
BHt 
MOV 
INC 

GONOSAVIMOV 
MP 

ERROEEP SOT 
a LFNOF 
ASCII 
,ENOC 
LTFOF 
rASCII 
sENDC 
:BYTE @ 
,EVEN 

ERRGOS JOT 
a TFNOF 
sASCIL 
sENOC 
ctFOF 
ASCII 
,ENOC 
:BYTE 2 
vEVEN 

ERRSX6) UMP 


PG FLINE 
ERRSXO 

(RL) $8, EOL, 
ERRSXS 

{R2) 

ERRGO 
#4(RL2,#,G0SUB 
GONOSAV 
GSBCTRCRS) RS 
RS 

POL (RS) RS 
RS,LIMITCRS) 
ERROEEP 

Rag (RS) 
GSBCTR(RS) 
(R27, Ko 
EXECUTE 


SLONGER 
NGNON 


SLONGER 
*GOSUUS NESTED TNO OFEPLY! 


SLONGER 
\WLNS 


SLONGER 
'YNOERINEO LINE NUMBERS 


ERRSXS 


BASICL 


aeea 
3202 
1283 
1204 
12285 
3206 
1207 
1208 
1299 
1218 
1222 
1212 
1213 
4214 
4215 
4226 
1247 
4238 
1219 
1228 
1223 
4222 
1225 
1224 
1225 
1226 
1227 
4228 
4229 
4230 
4232 
4232 
1233 
1234 
4235 
1236 
1237 
1238 
4239 
1248 
1244 
1242 
1243 
1244 
4245 
1246 
4247 
1248 
1249 
1238 
1251 
1252 
1253 
1254 
4255 


BASICL 


1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
4268 
1269 
1278 
1273 
1272 
4273 
1274 
1275 
1276 
1277 
1278 
1279 
1288 
1281 
1282 
1283 
1284 
1285 
1286 
4287 
1286 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
13298 
3302 
1302 
1323 
1304 
1305 
1526 
1327 
1326 
3529 
1310 


MACXLL 


GO3316 
393322 
083324 
8033350 
383352 
883336 
083349 
983342 
803344 
883346 


983352 
883354 
883356 
983360 
093362 
883364 
883370 
893372 
803374 
883376 
883402 
983404 
083406 
003412 
803416 
883429 
893422 
003424 
803426 
803430 
803452 
803434 
093449 
983442 
083444 
083446 
083459 
003452 
693454 
203466 
083462 
083464 
083466 
083470 
883472 
003474 
283500 
303502 
983506 


MACX42 


903510 
303514 
803516 
893522 
203524 
203530 
883532 
983536 
803542 
863544 
883546 
023550 
893552 
283556 
803560 
803564 
083566 
383570 
003572 
803576 
003622 
803604 


003612 
883612 
303616 
003629 
003622 
883624 
093639 
393632 
2036356 
823640 
BB3644 
203646 
823652 
303654 
003669 
083662 
803666 


803672 
803674 
883676 
893708 
883704 
883786 


Va2L 


894767 
193115 
121227 
183747 
124227 
101314 
s20004 
103552 
122146 
984767 


212683 
022608 
12682 
910846 
805946 
020227 
001403 
154226 
885008 
620327 
081402 
151320 
962782 
862703 
290402 
122322 
001047 
605300 
002418 
205326 
302372 
122327 
981040 
295320 
002373 
200407 
085716 
303425 
122722 
9912350 
295326 
803373 
985726 
812608 
112122 
122227 
904403 
120227 
881943 


voes 


120027 
001517 
120927 
881514 
120827 
201531 
389167 
200167 
282453 
C85726 
312608 
200424 
121127 
183767 
124127 
101364 
220604 
103436 
046546 
316546 
122146 
304767 


#12622 
204767 
284725 
202426 
112102 
120227 
301423 
120227 
381126 
122927 
301443 
120827 
081440 
123027 
061435 
200167 
880167 


995726 
812608 
122102 
120227 
801403 
120227 


2zeMARe73 


0e5274 
800244 
960254 


eo5244 


477777 


477777 


898805 
280003 


908040 


890040 


ogo2s2 
886205 


22aMARG73 
2eae44 
300246 
000254 


177112 
086106 


BOR244 
990254 


280042 
008046 


025906 


813474 


Be0242 
980285 
200244 
o98252 
980250 


176762 
805226 


890242 
888205 


16185 = PAGE 24 


1 Pre STATEMENT ROUTINE 


tre gr 
ce 
CMPB 
BLO 
CMPB 
BHI 
cmP 
8,0 
Move 
usr 


vLFNOF 
ace 
,ENOC 


MoV 
MOV 
MOV 
Mov 


CLR 
che 
BEO 
8188 
CLR 
cmp 
GEO 
ese 
400 
aoo 
BR 
TFLOOP) CMPS 
BNE 
oec 
8,7 
oec 
8GE 
CMPB 
BNE 
oec 
BGE 
SR 
JFLENOH TST 
BLE 
CMPB 
@NE 
oEec 
GT 
IFseau TST 
Mov 
IFLEQRG Ove 
cMPB 
BEQ 
CMPB 
BNE 


36105 PAGE 2101 


cMPB 
BEO 
CMPB 
BEO 
cMPa 
BEQ 
ume 
ERRSX7) UMP 
IFCOMP) SLT 
Ts? 
MoV 
8R 
IFNUMERTCMPB 
BLO 
cMPS 


aH} 
CMP 


IFLLTR MOVE 


ERRPOS) JMP 
ERRMX4) IMP 


iFscry st 
IFLGTRI MOVE 


eC, EVA 
TFiuwel 
6R4) 8 LE 
ERRSXE 
(RL), 8,60 
ERRSX2 
SP, Re 
ERRPDS 

CRY) Spe CSP) 
PC EVAL 


SNOSTH 
ERRNx4 


CSP) 4,RS 
(SP) 6)RO 
CSP) O,R2 
RO, 0(SP) 


TF COMP 


TFLOOP 
CRS) Oo, e8L 
TF COMP 

RO 

1740 
IFSea 
(SP) 
IFSEO 

WL CHZ)% 
TE COMP 
CSP) 

1040 
(SP)e 
(SP)o,RO 
CRY) oy R2 
R2,8, THEN 
178 
R2,#,GOTC 
ERRSX7 


IFLLTR 

CR) BLE 
ERRSX7 

(Ri), 8,60 
ERRSX7 

SP,R4 

ERRPOS 
FAC2CRS), 9¢SP) 
FACL(KS),0(SP) 
CHL) +) CSP) 
PG,EVAL 


SNOSTK 
ERRMX4 


(SP) %,Rd 
pC, suBsTX 
IFLEOK 
IFLGTR 
(RL) op RZ 
R2,0, THEN 
aot) 
R2,8, GOTO 
ERRSX6 
RO, #,LE 
Goro 
ROBT 
Goro 
RO,#,NE 
Goro 
IGNORE 
ERRPOL, 


SNOSTK 
ERRMIX 


(SP) 
(5P)0,R8 
CRY) OP RE 
R2,8, THEN 
1700 
R2,8,G0T0 


BASICL 


1363 
1362 
4363 
1364 
1365 
1366 
1367 
43568 
1369 
4378 
4371 
4372 
4373 
1374 
4375 
1376 
4377 
4378 
4379 
1388 
4381 
4582 
4383 
1384 
4585 
1386 
1387 
1366 
4589 
1390 
1391 
1592 
1593 
1394 
4395 
1396 
1397 
1598 
1399 
1400 
1403 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
4409 
1428 
3412 
4412 
1413 
4414 
1415 


BASICL 


1416 
4427 
1428 
1419 
1420 
14213 
1422 
14423 
4424 
1425 
1426 
1427 
4428 
1429 
1439 
1432 
4432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1448 
1444 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
4454 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1468 
4462 
1462 
1463 
1404 
1465 
1466 
1467 
14668 
1469 
1476 


MACX12 


094969 
054964 
884066 
894972 
384076 
304190 
964102 
304106 
804119 
304114 
384116 
904120 
884422 


004126 
994130 


924133 


804134 
904136 
804449 
084142 
904144 
004146 
804158 
804152 
804156 
204168 
084164 
084166 
884172 


894176 
084204 
604210 
004214 
984216 


MACKL1 


384222 
304230 
934236 
004242 
884259 
004254 
884256 
984262 
304264 


804270 
004274 
884276 
004328 
804304 
904306 
084312 
004514 
BOA316 
204320 
0843522 
084324 
284326 
804332 
304334 
884336 
004342 
084344 
884359 
004352 
894356 
204369 
804362 
604364 
004366 
804372 
904372 
304374 
384376 
804482 
004404 


824426 


904411 


vo2t 


122127 
084373 
016883 
820327 
081445 
085383 
610365 
306303 
306583 
285713 
004403 
944304 
260167 


220904 
344122 


819146 
003316 
122198 
100744 
680302 
152102 
861582 
224227 
081736 
122127 
904333 
318265 
084707 


812765 
364767 
122127 
@84327 
084767 


V@2k 


916565 
916565 
45065 
812765 
121127 
061429 
122127 
04274 
004767 


121127 
804267 
005201 
816503 
280402 
04767 
111122 
100418 
805201 
980382 
152182 
264502 
221227 
193001 
211203 
121127 
204428 
121127 
081429 
121127 
091353 
085203 
111122 
109756 
095204 
808302 
152132 
064502 
220265 
OB1342 
380024 


953526 


22aMARe7S = 16485 = PAGE 28 


) JRETURNG STATEMENT 


ogezn3 REPURNI CHPB 
BNE 
099032 mov 
aaaa33 cHP 
BEC 
pec 
280032 MOV 
ASL 
O85004 apo 
Ts? 
BEQ 
MOV 
176526 JMP 


vt PNOF 
ERRMX5} JMP 
ENO 


ERRRETI lot 
1 TFNOF 
407 ASCII 
ENOC 
+ IFOF 
ASCII 
+ENOC 
:OYTE 7 
EVEN 


(RE) oe, 8, £0, 
ERRSX6 


GSBCTR(RS) AS 
R 3 


RS,GSBCTRIRS) 
RS 


POLCROD ARS 
¢R3) 
ERRRET 
CR3) ARYL 
EXECUTE 


SNOSTK 
ERRMIX 


SLONGER 
\KOGN 


SLONGER 
RETURN BEFORE GOSUB! 


» TFoR! STATEMENT 


FORt MOV 

DEC 

MOVE 

BMI 
SWAB 
81S 

ao 

4177777 CMP 
EQ 

090254 CMPB 
BNE 

goaez2 MOV 
004420 JSR 


177777) «=pees26 Mov 
6130354 ySR 
090240 CMP 


004374 usr 


22eMARe73 16185 PAGE 23914 


acs 
,ENOC 


900048 a80024 QV 
600042 nBe026 MOV 
980040 CLR 
Goee81 300842 MOV 
9o0204 CMPB 


Og02e1 CMPB 
004526 JSR 


9e02b1 Cura 


FORONES INC 
808850 MOV 


012646 FORSKIPIYSR 
FORLOOKIMOVB 
BMI 
INC 
SWAB 
BISB 
apo 
177775 CMP 
BHIS 
MOV 
8av225 FORNOL} CMPB 
8E0 
goo211 curs 
BEG 
Ogez03 CMPB 
BNE 
INC 
Move 
amy 
INC 
SWAB 
aise 
400 
80022 CMP 
BNE 
ERR4WOH LOT 
LT FNOF 
116 sASCII 
1 ENOC 
s FOF 
sASCII 
+ ENDC 
iBYTE a 


Ru, 0(SP) 

(SP) (LOC OF THE f FORE) 
(RY) 4) R2 

ERRSXO 

R2 

(RL) O RZ 

(R5),K2 

(R2), 8, SVAR 

ERRSKO 

(RA), #, EQ 

ERRSX6 

R2,VARKSAV(®5S) «4 (VAR OF THE FOR) 
PO ,EVAL, 


SNOSTR 
ERRMXD 


Hes SSUSAVERS) JFoORCE To SCALAR, 
PG, STOVAR 

(RL) oe#, 70 

ERRSXQ 

PO,EVAL 


SNOSTR 


ERRMX9 


FACL(H3) »SSLSAV(R5) 

FAG2( RS) SS2SAV(AS)S(LIMIT OF THE FOR) 
FACA(RS) 

#1, FAG2(R9) FASSUMED STEP IS 1,0 
CHA), 8, EOL 

FORONE 

(RL) oe #, STEP 

ERRSX6 

PC, EVAL s(FAC HAS THE STEP) 


SNOSTK 
ERRMXS 


(ROD) 8, EOL 
ERRSXO 

RL 

LINENO( RS), RS 
FORLOOK 

PG, SKJPEOL 
(RO) ,R2 


CRY yRA 

(R5) RZ 

(R2),#, SCALAR 

FORNOL 

(R2),K3 HCTHF LINENO WHILE LOOKING) 

(R4) 98 EOF 

ERRAWO 

(RL) 8 NEXT THE CODE 1S NOW BEING SEARCHED 

FORNEXT JFOREWARD FROM THE “FOR? FOR A NEXT WITH 
(RY) 8, FOR sTHE SAME VAR, IF ‘EOF! OR ANOTHER ' FOR 
FORSK IP WITH THE SAME VAR [S FOUND FIRSTJERROP, 
RL 

(RL) RZ 

FORSKjP 

RL 

R2 

(RL) Hp RZ 

(R5),R2 

RZ, VARSAV(RS) 

FORSK{P 


SLONGER 
‘PWN 


SWONGER 
1FOR WITHOUT NEXT! 


BASICL 


4471 
1472 
1473 
1474 
4475 
1476 
1477 
1478 
1479 
1488 
4483 
1482 
1483 
1484 
4485 
1486 
4487 
1488 
1489 
1498 
1492 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1306 
15e. 
1502 
1503 
1504 
1505 
4506 
1507 
15068 
1509 
1510 
1523 
1512 
1513 
1514 
4515 
1516 
4917 
1518 
1919 
1528 
4922 
1522 


BASICL 


4523 
1524 
1525 
1526 
4527 
4528 
1529 
1538 
15314 
1932 
1533 
1934 
1535 
1536 
1537 
1538 
1539 
4540 
1541 
1342 
4543 
1944 
1545 
1546 
1947 
1548 
4949 
1958 
1552 
1552 
1553 
4554 
1555 
1556 
1957 
1558 
1559 
1568 
1561 
1562 
1563 
1504 
1565 
1566 
1567 
1568 
1569 
1578 
1971 
4972 
1973 
1974 
1975 
1576 
4377 


MACX11 


004412 
004416 
ae4azg 
294422 
904424 
084426 
294439 
304432 
294436 
04449 
04444 
304446 
894452 
034456 
004469 
ga4ae4 
994479 
304474 
094509 
894504 
094510 
a04514 
004520 
aa4s22 
094526 
094539 
004534 
804548 
994544 
094550 
004554 
094556 
304560 
904562 
094564 
004566 
984572 
094574 
094576 
094602 
094606 
804612 
804614 
004620 
204022 
o94o24 
004638 
084636 
094649 


MACX11 


084644 
084646 
804659 
804652 
004654 
084668 
084662 
904666 
204678 
084074 
084676 
284708 
804702 
204704 
AQ4706 
304718 
084712 
084714 
084716 
304728 
094724 
004726 
884732 
804736 
0047498 
304744 
384746 
384758 
384754 
304768 
804762 
084764 
094778 
084772 
084776 
805802 
805304 
885012 
205016 
805822 
385026 
305038 
305034 
805036 
805042 
3052046 
395859 
305952 
205856 
395066 
295062 
385066 
0059798 


Vax 


062782 
211122 
190732 
205204 
880302 
152102 
864502 
820265 
301323 
124127 
081250 
162702 
116622 
111623 
126523 
116522 
116523 
116521 
116521 
126521 
116522 
126522 
810326 
916546 
801002 
016516 
016546 
916546 
264767 
304767 
081424 
180405 
805726 
1806417 
900404 
800167 
005726 
188812 
012665 
185061 
195061 
895201 
080167 
085726 
205726 
116146 
116266 
012601 
000167 


Ve2i 


903002 
152102 
000302 
152192 
820265 
403131 
122227 
901126 
062701 
112123 
180525 
888323 
154183 
061503 
605321 
122122 
O81114 
124122 
ee4412 
124227 
904197 
819365 
A2a3e7 
984595 
222327 
304482 
341383 
312365 
311365 
795321 
124146 
124166 
124146 
2124166 
911665 
204083 
316665 
304767 
916546 
216546 
114146 
114166 
114146 
114166 
004767 
004437 
188404 
205765 
100413 
880403 
905765 
180007 
105843 


22eMAR@-73 16185 PAGE 2302 
vEVEN . 
790013 FORNEXT# 400 #43,R3 
MOVE CRY) RZ 
BMy FORSK IP 
INC RY 
Swab Re 
ayse CRYO yRZ 
aoo (RS) KZ 
seooz2 CMP RZ, VARSAV(RS) 
BNE FORSK{P 
208201 cues CRY), 8, COL 
BNE ERSX10 
800024 sus #14, R) 
90081 Move LGSP), (Ride PPUT AMOR OF THE ‘FOR! AFTER THE NEXT’, 
“OVE (SP), (R1L)% HCTHATS WHAT THE 24444 BYTES ARE FOR) 
890025 MOVE SSLSAVOLCRS), CRAVSIPUT THE LIMIT AFTER THAT, 
og0024 move SSLSAV(RS), (RIO 
088027 MOVE SS2SAVOLCRS), (Ride 
8eaK26 Move SSZ2SAV(RS), (RIV> 
000042, move FACLOLERS), (RAD+ }PUT TWE STEP AFTER THAT, 
898040 MOvB FACACRS), (RID® 
6e8e43 “OVE FAC2*1(R5), (R194 
880042 “QvB FAC2(K5),(RIVe 
MoV RS, (SP) sPUT THE SEAWCH LINENO 0” THE STACK, 
090848 MOV FACL(RS),e¢SP) PUT SCN(STEP) ON THE STACK, 
BNE ”“ 
opone2 MOV FACZ( HS) 4 ¢SP) 
890926 MOV SS2SAV(R5),°¢SP) SPUT THE LIMIT O” THE STACK, 
900024 MOV SSASAV(RS),@(SP) 
004046 JSR PG, EVAL sGET THE CURRENT VALUE OF THE INDEX, 
812536 JSR PG, SUBSTK SUBTRACT THE LIMIT, 
BEG FORGOGO 
amy FORLTUM 
FORGTLMITST (SP) 
amt FORGO 
BR FORZERO 
805056 ERSX4gt UMP ERRSXS 
FORLYLMITST (SP) 
BPL FORGO 
800030 FORZEROTMOV CSP) +, LINENOCRS) 
177764 CURB o44(R4) 
177765 CLRB eAS(R2) 
INC RL 
176034 wMP EXECUTE 
FORGOGOITST (SP)e 
FoRGoY YSsT (QP)e 
177765 “Ove *USCRLIVeCSP) 
177764 «og0004 Move L4(R2),20SP) 
MOV (SP) O,R4 
176004 umP IGNORE 
sE0T 
22eMARe7S 16105 PAGE 24 
, SOURCE FILE #3 
V_INEXT! STATEMENT 
NEXTH «CLR R2 
ayse (RL) O,R2 
Swas R2 
8ySB (RY) OR 
890014 cme R2,LOFREE(RS)  sJUST TO PREVENT AN NXM TRAP, 
BHIS ERRNEXT 
oge2e3 CMPB (RZ) 6,4, F OR 
BNE ERRNEXT 
oeee18 ado #40,RY 
Move (RE) O,RS 
BM ERRSX2 
SwaB RS 
a{se RL) RS 
aoo CRS) RS 
OEC RL 
CMPB CRAPS IRA) e 
BNE ERRNEXT 
CMPB CRL),(R20% 
BNE ERRNEXT 
299254 CMPB (R2),8,60 
BNE ERRNEXT 
892022 MoV RS, VARSAV(RS) SAVE VARJTABLE ADDRESS, 
177777 CMP CRI), 9, SVAR 
Bea ERRSX2 
177775 cMP (R3) 4,8, SCALAR 
CT 4°] 104 
mov (R3) KS 
890040 Mov (R3)o,FACLERS) yPUT THE FOR VAR VALUE INTO FAC, 
oane4s2 MOV (R3) FAC2(RS) 
pec RL 
MOVB @(R4)43(SP) IPUT STEP ON THE STACK, 
egooes “ove (RL G A 0SP) 
MOVvB (RA) pe CSP) 
839001 MOVB (RAD ACSPY 
90026 MoV (SP), SS2SAV(R5) JSAVE SGN(STEP), 
BNE eid 
098002 2oB026 MoV 20SP),SS2SAV(R5) 
892552 usr PC, ADUSTK 
B8GR42 MOV FAC2(K5),0(¢SP) 
ageusD MOV FACA(RS), #¢SP) 
MOVB eCRL)pe(SP) 
898001 Move w(Rad sd CSP) 
MOVE (RI), e(SP) 
830001 MOVE e(R1D AS (SP) 
012244 JSR PG, SUBSTK 
8Eq NEXGO 
BMy NEXLTEM 
890026 NEXGTLMITST SS2SAV(R5) 
amt NEXGO 
@R NEXENQ 
98026 NEXLTLMITST SS2SAV(R5) 
NEXGO 


BPL 
NEXENDI CLRB 


#(R1) 


BASICL 


1578 
1579 
4560 
1583 
1582 
1583 
1584 
1585 
4586 
1587 
1588 
1389 
1590 
1594 
1592 
1593 
4994 
1595 
1396 
1597 
1598 
1599 
1608 


BASICL 


1604 
1602 
14603 
1604 
1605 
1606 
1607 
2628 
1609 
1612 
1644 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
4620 
1021 
1622 
1623 
1624 
1625 
1026 
1627 
1628 
4629 
1638 
1631 
1632 
1633 
1634 
1035 
1636 
16037 
16038 
1639 
1049 
1041 
1642 
1043 
4644 
1645 
1646 
1647 
1048 
1049 
1650 
1651 
1652 
1653 
1654 
1655 


MACKX4A2 


305072 
285074 
005100 
885102 
005186 
305110 
385114 
385116 
805122 
005126 
205134 
305149 
805144 


985146 


9851454 
905152 


MACX11 


985156 
905162 
905164 
305166 
885172 
305174 
305176 
805294 
985210 
805212 
305216 
605229 
805224 
905226 
805232 
805234 
833249 


325242 
965246 
305258 
385254 
805256 
905262 


805264 


205278 
905276 
305300 
3e5304 
395318 
895312 
305316 
005317 


905328 


395322 
385324 


voes 


105044 
562704 
222626 
900167 
114146 
124166 
812603 
222665 
012665 
042765 
084767 
800167 
980804 


044116 


oo8 
200167 


yeaa 


124127 
001016 
AB5201 
084767 
498782 
304493 
916265 
121127 
992483 
122427 
204355 
121127 
301449 
121127 
301440 
121127 
704435 


121127 
204513 
24127 
301510 
121127 
081532 


304767 


327527 
101402 
084767 
204767 
416676 
664167 

040 

209 


360405 
195329 


808420 
980402 


22eMARe73 16185 PAGE 2401 
cLRe etRi) 
882015 ado #45,R3 
GMP (OP), (SP)e I THROW AWAY [NCREMENTED [NDEy, 
475546 MP EXECUTE 
NEXGO! MOVE oERi),eCSPy 
290081 “OVB @CRL,40SP) 
MOV (SP)o,R2 
900040 MOV CSP) ,FACLCRS) STORE THE INCREMENTED INOEX, 
830042 MOV (SP)o,PAC2¢R5) 
177777) p@ee24 MOV wet, SSUSAVRS) 
912104 vSR PC, STOVAR 
175504 UMP IGNORE 
ERRNEXTHLOT 
+TFNOF SLONGER 
106 ASCII \NBFN 
1ENOC 
s1FOF = SLONGER 
vASCIL «NEXT BEFORE FOR? 
,£NOC 
:BYTE 2 
sEVEN 
204472 ERRSX21 UMP ERRSXS 
22eMARS73 16105 PAGE 25 
) ITPRINT! STATEMENT 
890263 PRINT! CmMPB (R41) 9%, POUND HIS TT (PRINT WNT Yat? 
BNE PRNTOL 
INC RL 
ee3140 JSR PC, CHKOSET SCHECK CHANNEL AND SETwUP 1/9 
Ts? R2 sOEVICE CODE 
BEO COLONCH 
325320 900834 MoV TABLS (RZ), COLUMN(RS) SNON®TTY COLUMN fOUNT 
288201 COLONCHICMPB (Ri), 8,60, HDON'T NEED COLON IF NOTHING 
BEO PRNTO) § FOLLOWS NUMBER 
o9e260 cMPa (RL) 9) #, COLON 
BNE ERRSX2 
000243 PRNTOLE CMPB (R4))8, COMMA 
BEO PRICM 
980236 cMPB CR4),8,SEMY 
8a PRIBOTH 
200204, CMPB CRY), EOL 
8EO PRIBOTH 
:IFOF = SNOSTR 
290257 CMPB (R4),8,SQU0T CHECK PRINT STRING 
BEO PRISTH 
090256 CMPB (R4))8,OQUOT 
BEO PRISTR 
290276 CMPB (RL), 8, TAB sOR TAB FUNCTION 
BEG PRITB 
+ENOC 
893326 VSR PO, EVAL 
TFNOF = SNOSTR 
acs PRISTK 
,ENDC 
988034 980874 CMP OCOLUMN( RS), #74 
80S 6 
890526 JSR PC, PRINCR 
218458 JSR PC, NUMSGN 
WORD = PUTCHAR 
a10204 JSR RY, MSGOOEV 
sASCIT ff 
1BYTE 2 
,EVEN 
BR PRIBOTH 
YABLS a,02 
. CLMNPP 
+ ChMNLP 
vlFNOF = SNOSTR 
PR{STR} MOV (SP) #,R2 
INC R2 
BE PRIBOTH 


BASICL MACXa1 vo2a 22eMARs73 16105) = =PAGE 2504 


1656 cLR RS 
1657 8188 eUR2Z) ARS 

1058 400 #3,R2 

1059 PRILOOP ICMP @COLUMN(RS), #199 
1060 8.0 +6 

1061 » JSR PC,PRINCR 

1662 move (R2)4,RO 

1063 JSR PG, PUTCHAR 

1064 oec RS 

1665 GT PRILOOP 

1666 BR PRIBOTH 

1067 ENOC 

1668 

16069 285326 004167 010178 PRICMi JSR Ri eMSGODEV 

1678 905332 240 TT) BYTE BL y8 

2672 005334 121127 see204 PRIBOTHICHPB (RL), #, £04 

1672 «4305349 «sesga3 BNE PRIMORE 

1673 995342 294767 so0264 JSR PC PRINCR 

2674 «895346 990442 BR PRI QMP 

1675 995359 122127 oee24s PRIMOREICMPB (RO) O78, COMMA 
1676 385354 983927 BNE PRISEM} 

1677 «305356 217509 aep034 PRICOMMIMOV @COLUMN( RD), RO 
16078 995362 992439 geo PRITEST 

1079 305364 520027 oBe070 CMP RO,878 

1688 4885378 301425 BEQ PRITEST 

168% 985372 193403 LO 1eh8 

1082 085374 994767 sgazs2 JSR PC,PRINCR 

1683 ge54ep aga4es gr PRITEST 

2084 995462 929927 ag0052 cup RO, N52 

4085 905496 094416 8EQ PRITEST 

2686 695419 29827 Ba0054 cup RO, 034 

1087 695414 «994413 Bea PRITEST 

1688 005416 o29827 ag0016 CMP RO, #16 

4689 985422 994419 BEO PRITEST 

1698 005424 394167 919072 JER RL MSGODEYV 

1691 995430 040 : ASCII ¢ 1 

2692 905431 909 :BYTE @ 

1693 ,EVEN 

4694 995432 399794 BR PRICOMM 

1695 305434 124127 aga256 PRISEMEICMPB (RL), SEM 
4696 995449 «994267 BNE PRNTOL 

1697) 305442) «4g5204 INC RL 

1698 395444 124127 oeg2e, PRITESTICMPB ORL), 8, EOL 

1099 995459 991263 BNE PRNTOY 

1780 «6085452 395221 PRIJMP} INC RY 

170% 005454 212765 ogsn36 apo034 MoV SCLMNTTY,COLUMN(RS5) JREWSET TO TTY COLUMN COUNT 
3702 085462 969565 a90034 aod RS, COLUMN(RS) 
1703 305466 195965 090076 CLRB OOEV(K5) 

1704 9895472 299167 175356 JmP EXECUTE 

4705 

1706 stFOF = SNosTK 

4787 985476 112303 PRISTR} MOVE (Rio RS HSAVF OPEN QUOTE CHAR 
4708 905509 122127 990377 cmPe (Ro) o,e, TEXT TEST FOR TEXT BYTE 
1709 «985504 991222 PRISJ! BNE ERRSX2 

1718 985506 112192 PRISTiiG MOVE (RY) HR IGET NEXT CHAR 
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1712 095518 901776 BE9 PRISTS 

1712 «895512 129283 CmP8 R2,R3 ICHECK CLOSE QUOTE 
1713 005514 «981727 BEQ PRIBOTH 

1714 «985516 128227 o98201 cMPS R2,8,€0L HCHECK END LINE 
1715 385522 281613 BEO ERRSX2 

1716 305524 2927527 oga034 se0119 CMP PCOLUMN( RD), #119 

1717 «005532 193402 ao 1%6 

1718 «985534 0894767 g00072 JSR PC,PRINCR 

1719 «395549 019200 MOV R2,RQ 

1728 «885542 094767 911130 JSR PO, PUTCHAR 

1721 305546 06790757 6R PRISTI 

1722 

4723 005558 «195724 PRITat TSTB (R44 

1724 805552 2094767 s93049 JSR PGAEVAL 

1725 995556 204767 996222 JSR PC, INT 

1726 905562 122127 2999237 CHPB (R196) @,RPAR 

1727 «(305566 0901346 BNE PRISJ 

1728 995579 116542 oga062 MOVE FAC2(R5), RO 1GET FN VALUE 
1729 995574 167522 op0034 sya @COLUMN(R5),R2 SCOMPUTE # SPACES 
1730 965609 229227 eeg1io PRITBO) CMP R2, 872, 

1731 095604 193403 BLO PRITBL 

1732 985086 162702 sgeii9 sus 872, ,R2 

1733 385612 2090772 @R PRITBO 

1734 995614 295302 PRITBLs DEC R2 

1735 005616 190646 amt PRIBOTH 

1736 «6085629 6342708 se0040 MOV #OL,RO 

1737 «9856024 904767 311046 JSR PC, PUTCHAR 

1738 385630 099771 6R PRITBL 

1739 vENDC 

1740 } 

1741 805632 384167 097664 PRINCRI JSR RI MSGODEV 

1742 395636 a5 o12 »BYTE = CRaLF 

1743 gase4g 928 ,BYTE 3 

1744 005642 sEVEN 

1745 905642 985975 290034 CLR @COLUMN(RS) 

1746 305646 399227 RTS PC 

4747 


1748 


BASICL 


1659 
1860 
1862 
1862 
1663 
1864 
1865 
1866 
1867 
1868 
1869 
1878 
1872 
1672 
1873 
1874 
1875 
1876 
1877 
1678 
1679 
4688 
4881 
4882 
eas 
1684 
4685 
1686 
1687 


: BASICL 


41686 
1889 
1898 
1691 
1892 
1893 
1694 
1695 
1696 
1697 
1696 
1899 
1900 
1903 
1992 
4903 
1904 
4995 
1986 
1987 
1908 
1909 
1910 
1912 
1912 
19435 
1914 
1915 
1916 
1917 
1918 
1949 
1920 
1922 
4922 
4923 
1924 
1925 
1926 
1927 
1926 
1929 
1930 
2932 
4932 
1935 
1934 
1935 
1936 
1937 
1938 
1939 
1948 
1941 
1942 


MACXA2 
0262354 


906240 


Voer 
390167 


000281 


22nMARe7S 


093410 


086242 280167 011578 


MACKi4 


286246 
806258 
006252 
286254 
806256 
306260 
906264 
086278 
906272 
806276 
996308 
096304 
096306 
006312 
906314 


006316 
286322 
086324 
306326 
086332 
0863354 
006349 
806342 
896346 
986350 
206354 
896368 
306362 
886370 
886372 
886376 
996402 


986404 


906407 


306418 
986414 


806416 


yeaa 


122102 
190772 
oeg3e2 
152102 
264502 
904767 
317503 
ao1444 
220327 
20145 
121327 
304458 
122327 
201036 
111302 


304767 
390432 
010346 
984767 
912683 
121327 
084405 
121327 
901020 
910375 
122127 
681732 
126127 
004321 
800167 
805875 
909004 


847537 


885075 
anaea4 


442102 


22eMARe7S 


065320 
O88004 


477777 
000201 
008243 


296142 


018712 
800201 
900243 


999084 
090243 


177777 
174256 
B8BR04 


304 


880804 


122 


980201 


16105 PAGE 2602 


ERRSXB UMP 


vlFNOF 
INPSTRE MOV 
MOV 
CMPB 
BNE 
MOV 
sys 
MOV 
sus 
oEec 
BEG 
MoV 
A00 
usr 
INPNNUL 3 JSR 
rst 


CMPB 
BNE 
Tst 
JMP 
TNPNULL MOV 
BR 


vENOC 


yeeeeae 1 WORD 
ERRTROY IMP 


16185 =PAGE 27 


ERRSXS 


SNOSTR 
LINECRS) RS 
RS,R2 
(R3)%,8CR 
104 
R2,0(SP) 
#3, (SP) 
RS,0(SP) 
R2, (SP) 
(SP) 
TNPNULL 
SP,R2 
#2,R2 

PC MAKESTR 
PC, STUSVAR 
(SP)> 

(RY) %e8, COMMA 
INPEND 
(SP)e 
INPYOR 
wet, (SP) 
TNPNAYL 


teSban 


y PREAD! STATEMENT 


REAO! MOVB 
amy 
SWAB 
B1SB 
aoo 
JSR 
MOV 
Bea 
CMP 
Bea 
CMPB 
8EQ 
CMPB 
BNE 

READGOTISMOVE 


y UFNOF 
CMPB 
BEQ 
CMPB 
BEO 
,ENOC 


JSR 
aR 
MOV 
JSR 
READDUNI MOV 
cMPB 
gE0 
cMPB 
BNE 
MOV 
cMPB 
8E0 
CMPB 
BNE 
JMP 
READOUTICLR 
ERROATAIIOT 
+ FNOF 
ASCII 
sENDC 
VTFOF 
ASCII 
»ENOC 
:BYTE 2 
,EVEN 
READBADICLR 


(AL) 9 R2 
ERRSX8 

R2 

(RL O RZ 
(R5) RZ 

PO, GETVAR 
POL (KS), RS 
ERROATA 

RS, Hed 
REASRCH 
(RS), #, £0. 
REAFIND 
(R3)6_#, COMMA 
READBAD 
(R3) RZ 


SNOSTK 
R2,#,QQUOTE 
READOT 
R2,#,SQUOTE 
READOT 


PG LITEVAL 
REAOBAO 
RS, 0( SP) 

PG, STOVAR 
(SP)e,RS 
(RS), #8, EOL 
148 
(R3) 8, COMMA 
REAOBAD 

RS, POL (Rd) 
(RY) oye, COMMA 
READ 
eL(R1) 8, EOL 
ERRSX8 
EXECUTE 

@POL CRS) 


SLONGER 
\O00\ 


SQONGER 
‘OUT OF DATA! 


@POLCRS) 


SLONGER 
\BDRN 


SLONGER 


BASICL 


q749 
1758 
4752 
4752 
4753 
1754 
1755 
1756 
4757 
1758 
1799 
1768 
1763 
4762 
1763 
1764 
1765 
1766 
4767 
1768 
1769 
1770 
4771 
1772 
1773 
4774 
1775 
4776 
1777 
4778 
1779 
4789 
4781 
1782 
1783 
1784 
4785 
1786 
4787 
3788 
1789 
1798 
4791 
1792 
1793 
1794 
4795 
1796 
1797 
1798 
1799 
1802 
1803 
1802 
1823 


BASICL 


1804 
1605 
1806 
1807 
1808 
48209 
1619 
1611 
1612 
1615 
1814 
1615 
2816 
1817 
1618 
1819 
1822 
4821 
1822 
1625 
1824 
1625 
1826 
4827 
41828 
1629 
1838 
1831 
1632 
4835 
1834 
1835 
1836 
4837 
14838 
1839 
1640 
1844 
1842 
1843 
1644 
1645 
1846 
1647 
1848 
1849 
1650 
1651 
1652 
16535 
1854 
1655 
1856 
1657 
1658 


MACXAL 


805650 
935654 
805656 


885662 


895665 


805666 
085672 
805676 
095782 
005786 
095718 
005714 
905716 
985722 
985726 
005738 
885732 
085736 
005748 
095742 
085744 
085746 
905759 
885754 
895756 
085762 
085764 
803779 
083772 
005776 
808777 


296808 
086002 
986086 
086018 
886014 
286016 


086022 
ag6g24 
966026 
206032 


MACKXA1 


986836 
086040 
306042 
086044 
806050 
096852 
896054 
086060 
896062 
886066 
886072 
306074 
806076 
986122 
806194 


006118 
086112 
006116 
086122 
206126 
826158 
886154 
8061356 
306140 
886144 
886146 
906152 
896154 
806160 
806162 
086156 
806178 
386176 
086208 
306202 
086206 
886219 
386214 
306220 


306224 


386227 
206251 


386252 


ve2a 


820165 
181096 
864167 


046442 


200167 
105065 
103065 
124127 
901030 
123265 
205201 
984767 
122127 
294142 
310746 
262716 
112122 
100535 
200302 
152102 
861502 
804767 
011603 
121327 
001958 
105765 
081803 
084167 

077 

830 


010246 
204767 
183002 
880167 
912681 
816502 


818446 
012446 
016501 
122127 


ved 


0841375 
010104 
805224 
820465 
101074 
124144 
220165 
101374 
142741 
004767 
212624 
812681 
316526 
088724 
816502 


285203 
303065 
395065 
121327 
984403 
004767 
080434 
010316 
884767 
611683 
121327 
901403 
124327 
201047 
122427 
201663 
126127 
204016 
205726 
105765 
084022 
205065 
200167 
084167 


251102 


O45 
070 


380654 


22mMARs73 


O000%6 
007604 
116 


173246 
agoeee 
000077 
098263 
agone2 
002402 
990260 


890506 


005630 
oee202 
ogee 
007476 


886356 
880366 
eoge22 


800020 
900815 


22eMARe7S 


980816 


300029 
898054 
B1L262 
090820 
oga022 


808040 
B80042 
008245 


886550 


811128 
908243 
800281 
ao024s 
177777 


000077 
900036 
174434 
307242 


124 


12 


OB0201 
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y FINPUT! STATEMENT 


INPUTI CHP 
BH! 
uSR 
,TFNOF 
ASCII 
VENDC 
\IFOF 
ASCII 
1ENOC 
,OYTE 2 
EVEN 
MP 

INPYES# CURB 
CLRS 
cCuPS 
BNE 
INCB 
INC 
JSR 
CMPB 
BNE 

INPYBLy MOV 

INPPC} AOD 

INPLOOPIMOVB 
aM! 
SWAB 
aise 
Abo 
VSR 

INPRTRYSMOV 
CMP 
BNE 

INPNEW} TSTB 
BNE 
JSR 
ASCII 
sBYTE 3 
EVEN 

NOQMI MOV 
JSR 
Bcc 
JMP 

NOQMi1 MOV 
MoV 


vbPNOF 
CMP 
BEO 
,ENOC 


MOV 
MOV 
MOV 
CMPB 
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BNE 
MOV 
Tne 
CMP 
BHI 
MOVE 
CMP 


INPOK! MOV 


INPSTO} MOV 


INPGOODICMPB 
BEO 

INPEND| CHPB 
BNE 
Ts? 
1ST8 
BNE 
CLR 

GOEXEC) UMP 

TNPNGUOSYSR 
LFNOF 
ASCII 
ENOC 
vlFOF 
ASCII 
VENOG 
BYTE 
,BYTE 8 
VEVEN 
8R 


RL, CODERS) 
tnpy€s 

HL ,MSGERR 
SLONGER 
NTQNS 


SLONGER 
"TLLEGAL Nowe 


READY? 

T3(R5) 

TDEV(RS) pRESET INPUT TO TTY 
CRL) 48 POUND stS IT INPUT BNE 48? 
INPYQY 

T3¢RS) 


RL 

PC, CHKISET }CHECK CHANNEL AND SETsUP INPUT 
CRY) O28, COLON 
ERRSX8 

PG, e(SP) 
#INPEQL*INPPC, (SP) 
(RY) oy RZ 

ERRSXS 

R2 

(RL) ,R2 

(RS) RZ 

PC,GETVAR 

CSP) ,RS 

(R3),#, E04 

INPOK 


T3(R5) 
NOQM 
RL, MSG 
uy 


R1,*(SP) 
PGeLINGET 
NOQMY 

ERROATA 
(SP)e,RY 
VARSAV(RS) ,R2 


SNOSTR 
(RZ), #,SVAR 
INPSTK 


RL,0(SP) 
R4,9¢SP) 
TNE CRS) RL 
R14), aCR 


a4 
RLeR4 


R4 
R4,CODE(RS) 
ERRTRS 

eGR29 4964) 

RA LINEGRS) 
106 

Bay (RO) 

PC, TRAN 

(SP) o)R4 
CSP) oy RY 
LINE(R5), (SP) 
INPRTRY 
VARSAV(R5),R2 


SNOSTR : 
(RZ), 8, SVAR 
TNPNEW 


Rs 

FACA(RS) 
FAC2CKS) 
(RS), 8, COMMA 
TNPSTO 

PO LITEVAL 
INPNGYO 

RS, (SP) 

PC, STOVAR 
(SP),KS 
(RS), #, COMMA 
INPGOOD 
CRS), 8, EOL 
TNPNGYD 
(RL) 4 — # COMMA 
INPLOOP 
LCRA #, COL 
ERRSKS 

(SP)¢ 
TDEV(R5) ytF TYY INPUT, CLR COLUMN COLINT 
GOEXES 
CLMNTTYCRS) y FOR SAME 
EXECUTE 

RL MSLERR 
SLONGER 

\8RTN 


SONGER 
(BAD DATASRETYPE FROM ERKOR,¢ 


CRLF 


INPNEW 
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1943 
1944 
1945 
1946 
1947 
1948 
1949 
1958 
1954 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1968 
1963 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
4972 
1973 
4972 
3973 
4974 
4975 
1976 
4977 
1978 
4979 
1988 
1983 
1982 
1983 
1984 
1985 
1986 
41987 
1988 
4989 
1999 
1992 
1992 
1993 
1994 
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1995 
1996 
1997 
1998 
1999 
2008 
2004 
2082 
2003 
2004 
2005 
2006 
2087 
2008 
2009 
2012 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2039 
2020 
2021 
2022 
2023 
2p24 
2025 
2026 
2027 
20268 
2929 
2038 
2031 
2232 
2833 
2034 
2035 
2236 
2037 
2038 
2039 
2n4e 
2041 
2042 
2043 
2044 


MACX11 


206421 


986422 
986426 
986458 
086432 
986436 
806442 
806444 
906458 
006452 
886454 
086456 
806462 
206464 
986466 


MACKL4 


086479 
006474 
086508 
986504 
086518 
896514 
296528 
986522 
896526 
886530 


OB6534. 


9806549 
086542 
026546 
886558 
896554 
806556 
996562 
906566 
286578 
006574 
806576 
906682 
206604 
986606 
396610 
286614 
386622 
206624 
386626 
386634 
306648 


vo2. 


016503 
1805713 
190402 
362703 
122327 
081724 
124327 
284752 
910146 
810302 
084767 
910103 
942601 
380757 


Vo2s 


004567 
016705 
046504 
812794 
123728 
042708 
#02442 
120027 
001085 
185265 
204767 
000410 
120027 
904925 
185165 
304422 
904767 
804767 
193047 
195761 
881923 
110061 
200207 
195714 
188376 
042714 
112737 
105714 
180376 
012737 
012714 
a902a7 


ee 


22eMARe73 16195 PAGE 274 

sASCIT '8a0 VATA READ! 

sEnDe 

BvTE 2 

vEVEN 
9ee816 REASRCHIMOV CODE(RS),R3 

REAFINDITSTS (RS) 

amy 16 
S9B0B2 A00 #2,R3 
age223 CMPB (R3)%)#, DATA 

BEG REAOGOT 
990225 CMPB eo (R3),8,£0F 

geo READOUT 

MOV Ri, e(SP) 

MOV RO pRL 
818476 JSR PG, SKIPEOL 

MOV REARS 

MOV (SP) e,Ro 

BR REAFINO 

,lFNOF = SNOSTK 

READQTI INC RS 

CMPB CRS) oye, TEXT 

BNE READBAD 

MOV RS,RO 

TSTB (R3)% 

BNE 102 

cCMPB (H3)$,R2 

BNE READBAD 

MOV R3,e(SP) 

MOV RO,e(SP) 

sus #3, (SP) 

MOV SP, A2 

MOV RS, =(SP) 

sys Rb, (SP) 

sus #2,¢SP) 

8EO REANULL, 

JSR PC, MAKESTR 

MOV (SP)e)RS 

MOV RG, (SP) 

MOV SP,Re 

ao0 #3,R3 

MOVB RB, e(HS) 

SWAB RO 

MOVE RB,e(R3) 

8R REAOSTR 

REANULL IOEC (SP) 
MOV (SP) 42 (SP) 
REAOSTRIVSR PG, STOSVAR 

BR READOYN 

sENOC 
22eMARe73 16185 PAGE 28 

JSoovesessaseneecete SPOSOSEHSHEEHOHOSHSEHOOESEOOHOE 
POSSHSOOHESOSSHOOHSOOEAOHSQHOTEHTHFECH HSS HFEDOHGCOOS 
J eeoseeereeee SRR eoseeeve 
peoeeapeneaoe INTERUPT HANOLERS odeneeennnes 
peaoveedonnas POSS OTT tyy 
POSSESS OSOSESOHSHEHESHHESHEHHEHOHSHHOSHHESHEHOEE 
POSS HESSHSEHHSEHHOEHSOSERESEEHEOHESFOOHHHEOOEED OED 
1 
} KBINT © KEYBQARD INTERUPT SERVICE 
U 
1 PASS ANY CHAR, To BUFF, EXCEp? Ao" (IGNORE) 
‘ AND B83 (feCtY SET FLAG FOR LATER ACTION,) 
4 IF BUFF, FULL, IGNORE CHAR BIT ECHO BELL, 
' 
810556 KBINT? JSR RO,SAVRGI SCAUSE RTI ON REG, RESTORE 
@80800G MOV USRAREA,RS 
000102 MOV KBHD(RD), Re JKR RUFF, HOR, 
177564 MOV #TPS,R4 
177562 MOVE OFTKB RO sGET THAT CHAR, 
177600 BIC #477600,R0 

EQ KBYOUN JIGNORE eoo 
o8ge0s cMPB RB, #005 yfocl? 

BNE KB8CO 
090106 NCB CNCFLGCRS) MARK fOCh HIT 
804372 JSR PC, BUFCLR HCLEAR ALL BUFFERS 

8R OOPUT 
009817 KBCO! CMPB RO, #47 CHECK / OF 

BNE OOPYT 
900107 come CNOFLG(RS) 

BEQ NOPYT sIF PRINT RESTORED, BYPASS 
oo44e4 JSR PC, BUFTP CLEAR TELEPRINTER BUFFER 
818016 popuT: JSR PC, PUTBYT 

acc KBEDUN sGOT IN 
898012 TST8 BFSPEC(RG) 

BNE 8, 0182 
000022 MOVB RO, BFSPEC(RL) 

RTS PC 

$,81013 TSTB {R4) yNO ROOM! DO BELL 

ePL $, 0103 
090108 BIC #400, (R4) sTEMP, CLR, INTER, 
OO8987 177566 MOVB 9087,e@8TPS SINSERT BELL 

S,a1021 TSTB (R4) WATT UNTIL DONE 

BPL $,0102 
080101 177568 KBIOUN} MOV #YOL, ORTKS JRE@INIT, READER 
200120 MOV #400, (R4) JENARLE TPTR, FOR ECHO 

RTS PC WELL RESTORE REGS, AND QTY 


BASICL 


2045 
2046 
2047 
2048 
2049 
2058 
2051 
2852 
2053 
2054 
2055 
2256 
2057 
2058 
2059 
2068 
2uo% 
2962 
2063 
2006 
2065 
2366 
2067 
2008 
2069 
2078 
2072 
2072 
2073 
2374 
2075 
2076 
2877 
2076 
2079 
2000 
2082 
2082 
2083 
20a4 
2085 
2086 
2087 
2088 
2089 
2099 
2093 
2992 
2093 
2894 
2095 
2896 
2097 
2098 
2099 


BASICL 


2208 
2101 
2102 
2203 
2104 
2105 
2126 
2107 
2108 
21209 
2118 
2421 
3112 
2113 


2114 
2215 
2116 
2217 
2118 
2119 
2128 


MACX11 


306642 
096646 
696052 
096656 
006669 
386664 
086666 
0860798 
826674 
086676 
096700 
886702 
096704 
096786 
8896719 
906714 
986716 
806724 
806738 
8867352 
806734 


006749 
906744 
906746 
806752 
886756 
8867698 
886766 


906778 
906774 
086776 
987909 
887002 
807804 
807886 
087012 
067014 
987920 
807022 
887826 


MACKAY 


897838 
887934 


897856 
387842 


807044 
207058 


387852 
907056 


987060 
897866 
897876 
987973 
397075 
987876 
307108 


Veen 


304567 
816705 
1093705 
o044e4 
185365 
905020 
000446 
012704 
866504 
05714 
901415 
113406 
001432 
995244 
120965 
801983 
126565 
110037 
800207 
905944 
946502 


984767 
183041 
816501 
004767 
183354 
842737 
888207 


084367 
980428 
000422 
000424 
000401 
880743 
120027 
881905 
022734 
990738 
120027 
384342 


Vo24 


812714 
898722 


812714 
@00737 


12746 
eoo744 


112700 
90794 


242049 
342195 
045 
156 
ee 
847536 
945 
087134 


22eMARF7S 


019204 
oeogeea 
200118 


080118 


800104 


098112 
080411 
177566 
990182 
0g4424 


680200 
994412 


980308 


694250 


088083 
097875 
900017 


22eMARe73 


007876 
297080 
007070 
090137 
046405 

gt2 


103 


o12 


0001128 


177564 


852195 
808 


46185 = PAGE 29 


‘ 
d epINy © TELEPRINTER INTERUeT HANOLER 
, 
J USED To PRINT QUT TEXT ANO ECHO TYPESIN, 
5 YO HANDLE CASE OF PENDING REQUESTS 70 00 TEXT OUTPUT 
5 ANB ECHO, OOES THE ORDERLY THING BY FOLLOWING THIS 
' PRIORITY? 
f) IF ECHOSP(RS) SHOWS NEED TO NO 2ND HALF OF PATRER 
1 CHARS, FOR ECHO (9U, <CR><LF>}, DO FIRST, 
4 IF TEXT MESS, IN PROGRESS, FINISH IT (TO <LFD), 
H ELSE, ECHO, 
‘ ELSE, TURN OFF INTERUPTS, 
} 
TPINT! VSR RD SAVRGI SCAUSE RTI ON REG, RESTORE 
MOV USRAREA, RS 
TsTe FILLCOCRS) 
860 TPNXT 
veces = FELLCorRs) 
CLR Ro 
BR TYPES 
TPNXT} MOV #ECHOSP,R4 
aod RS, R4 sSAVFD HERE THRUSOUT ROUTINE 
Ts’ (Ra) HSPECIAL ECHO IN PROGRESS? 
8£0 TRYECHO NO 
SPECMES!MOVB O(R4) ORO INEXT SP, ECHO CHAR, 
Seo CLRECHO 
INC #(R4) yPT, TO NEXT CHAR, 
TYPE! CMPa RO FILLCH(RS) 
BNE TYPEL 
MOVE FILLNOCRS) FILL CO(RS) 
TYPES) MOVE RO, eeTPS 
RTS PC HRESTORE REGS, AND RETURN 
CLRECHOICLR = (RQ) 
TRYECHOIMOV KBHO(K5) Re JNO MESS, » ECHO? 
JSR pC, GET28vT 
Bcc GOTECHO 
MSGSUP1 MOV TPHD(RS) »RE VTRY MESSAGE 
JSR PC, GET2BY7 
acc TYPE sGOT ONE! GO 00 IT 
OFFTYPEIBIC #208,eRTPS HCLEAR INTERUPT 
RTS PC 
1 
GOTECHOtUSR RS, CKKCHR ICHECK THAT ECHO CHAR, 
8R PRNTDEL JLINE OELETE 
aR SETLFE sSCKD> <LF> aS ECHOSP 
§R ECGHOBA pRUG@ OUT! 00 "en 
BR TRCN 
aR TYPE 
TPCNE «= CMPB RO, 83 ICHEC fect 
BNE TPCO 
MoV BGCHES, (R4y 
BR SPECHES 
TPCOS cmPe RO, #i7 sCHECK /*OF 
BNE TRYECHO 


16185 PAGE 2904 


MOV 
BR 


' 

PRNTDEL Moy 
aR 

' 

SETLFE! Mov 
aR 

j 

ECWOBAI Move 
BR 

1 

DELMSG4 


ASCIL 
CRLFMES! BYTE 


CCMES} , ASTI! 
/BYTE @ 

COMES} ASCII 
BYTE 
EVEN 


#GOMES, (ROY 
SPECHES 


#OELMSG,(R4) 1ST, ADOR, INTO ECHoSp( RS) 
SPECMES 


aCRLFMES, (94) 
SPECMES 


Ble Rd 
TYPE 
" DELETED! 


015,012,900 
rece . 


oor 
015,012,900 


BASICL 


2422 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2331 
2132 
2133 
2134 
2435 
2136 
2337 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2245 
2146 
2147 
2148 
2149 


BASICL 


2150 
2451 
2152 
2153 
2154 
2155 
2156 
2157 
21568 
2159 
2160 
2262 
2162 
2163 
2164 
21605 
2166 
2167 
2168 
2169 
2178 


MACX11 


697104 
9871128 
897114 
887120 
007122 
087126 
887132 
887134 
007140 
207142 
887146 
207158 
087154 
087156 
807162 
807164 
887172 
807174 
807282 


MACXAL 


207204 
307210 
OB7214 
097228 
807224 
807226 
087232 
907234 
007249 
987242 
307259 
307254 


VOas 


304567 
812781 
2837.37 
180425 
113700 
842700 
204424 
122700 
301442 
122700 
281426 
864767 
183003 
110962 
880207 
812737 
000207 
852762 
200207 


voei 


904567 
246705 
012704 
983737 
100406 
304767 
103426 
110037 
280207 
952764 
305937 
600207 


22eMARe73 16105 PAGE 38 
«TFENDF «SNOPTP 
' 
) PYRINT © pApER@TApE READER INTERUPT HANDLER 
Uy 
§) CLEARS PARITY BIT, FLUSHES OA3, RURROUT, AND <LFD, 
} UF CHAR, WON'T FLT IN BUFF,, SAVE IN SFSPEC (LO BYTE), 
} ON EOT OR OTHER ERKOR, SET WI BIT OF BFSPEC, 
J 
807742 PTRINT) JSR RO, SAVRGI SCAUSE RTI OM REG, RESTORE 
824242 MOV #PRBFHO,RL sFOR PUTBYT 
177599 TST @sPRS VERRORS? 
8M} PREOT VYESt TREAT aS EOT 
177552 MOVB @BPRB,RO CHARACTER 
177608 BIC #177600,R0 
8e0 EXT Tee HIGNORE 088 (CAN¢T HAPPEN] ) 
900177 CMPB BL77, RO RUB OUT? 
80 EXiTee VIGNORE 
080022 CMPB LP, RO 
BEG EX}TBe JIGNORE LFIS 
007430 JSR PC,PUTBYT 
gcc EX{ ra GOT IN 
290012 MOVB RO, BFSPEC(R1) HSAVE THIS CHAR, 
RTS PC HRESTORE REGS, AND RTI 
880181 177589 EXITg2) MoV #104, 08PRS JRE*ENABLE READER 
RTS P 
100000 gee0%2 PREOT! 8ys #400000, 8F SPEC(R{) SHOW EOT 
RTS P' 
+ ENDC 
22mMARe73 16495 PAGE 34 
,JFNOF SNOPTr 
J 
} PPINT © PAPER TAPE PUNCH INTERUPY HANDLER 
H 
1 ON ERROR: MAKE BFSPEC NoNed’, 
4 
287942 PPINTE JSR R5,SAVRGI JCAUSE RTI AFTER REG, RESTORE 
O0000RG MOV USRAREA, RS 
824506 MOV #PPBFHO,R1 
177554 TST @#PPS 
BM} PPERR 
094130 JSR PC,GETiBYT 
Bcs NOCHR2 NOTHING TO GET 
177536 MOVB RO, @ePPB 
RTS PC HRESTORE REGS, AND ARTY 
200001 990012 PPERR} 81S #4,BFSPEC(R1) SINOIC, ERROR 
177554 NOCHR21 CLR enPPS CLEAR INTERUPT ENABLE 
RTS PC 
I 
ENOC 


BASICL 


2u74 
2172 
2173 
2174 
2275 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2284 
2185 
2186 
2287 
2188 
2189 
2199 


BASICL 


2191 
2192 
2193 
2194 
2295 
2196 
2197 
2198 
2199 
22098 
2204 
2202 
2203 
22064 
2205 
2206 
2207 


MACX11 


987256 
907262 
887266 
807272 
807276 
097309 
OB7304 
807326 
887312 


807314 
8873522 
887326 


MACX12 


887338 
087336 


3873490 
087342 
297346 
807354 
097368 
887362 
987364 


voes 


084567 
316705 
912702 
805737 
100426 
384767 
183406 
120037 
000207 


052764 
085037 
990207 


veer 


912737 
%OOB08 


805e08 
916795 
812737 
916506 
895330 
681367 
080167 


22eMARB73 «= 16105 = PAGE 32 
sTFNOF = SNOLPT 


887578 
0908006 
@24352 
177514 
094056 
177546 


090902, 2888%2 
177544 


' 
} LPINY © LINE PRINTER INTERUP? HANOLER 


4 

LPINTS JSR 
MOV 
MoV 
Tst 
am} 
JSR 
scs 
MOVE 
RTS 


} 

LPERR} 91s 

LPOFF, CLR 
RTs 
vENOC 


22uMAaRe7S 16405) = =PAGE 33 


887340 epee24 


88988906 
087356 B0e824 
280904 


174502 


RD, SAVAGE 
USRAREA,RS 
#LPBFHD, RL 
osLPs 
LPERR 
PC,GET1BYT 
LPOFF 

RO, ORLPB 
PC 


#4, BFSPEC( RL) 


eaLPs 
PG 


sIPNOF = =sNOPOW 


ICAYSE ATI AFTER REG, RESTORE 


JNOTWING THERE 
IWPITE CHAR 


RECARO ERROR 
STURN IT OFF FOR AWHILE 


4 
1 POWOWN © POWER FAIL/RESTARY ROUTINE 


' 

POWOWNT Mov 
HALT 

' 

PowuUpt CLR 

POWLP) MOV 
MoV 
MOV 
oEec 
BNE 
JMP 
1ENOC 
,E0T 


#PoWUR e824 


RO FINITIALIZE Loop Count 


USRAREA,RS 
#POWOWN, 0824 
POL(RD), SP 
RO 

POWLP 
REAOYD 


sWASTE TIME (CANO INIT STACKS) 
sCOUNT TILL ONE 


BASICL MACX14 veer 22eMARe73 16405 PAGE 34 


220g ! SOURCE FILE #4 

2229 3 FEOOCEEOEROSEROREOH SLOSS HEDDEHOCHSOOO HOF EHEERETEOD 
2218 Jeqveovess POCOPROHOO DOR OOONEDEDESEEDOHEROE OE HEDE 
2211 peevoneevves 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 | Rercwccewwnweeweneanneene sane cceseeesccceecescces 
2222 } SUBROUTINE AODOSTK! CALLED BY JSR PC 

2223 H] AODS (SP)+,(SP)* TO FACL(RS),FAC2(R5) WATCHING TYPE 
2224 J R@,Ri UNUSED 

2225 1 R2,R3 DESTROYED 

2226 H] R4 MODIFIFO TO REFLECT STACK USAGE 
2227 f RS MUST POINT TO USER AREA 
2228 i] SP GOES 7? DEEPER AFTER JSR 
2229 987378 912603 AOOSTKE MOV (SP) 4,RS 

2238 387372 984767 093576 JSR PG, FIXUP 

2231 307376 984414 8EQ AODINT 

2232 907408 312767 011666 s080086 MoV mERAOD, SERVEC 

2233 987406 984467 093722 JSR R4,FPPSAV 

2234 987412 314256 WORD PUSH 

2235 007414 oeeg006 WORD SAOR 

2236 387416 214279 yHORD POP 

2237 887420 313306 WORD =FPPRES 

2238 997422 295765 290040 ts? FACA (KS) 

2239 087426 080133 wMP ¢R3) ICON CODESESSGN(RESULT) 
2240 «387438 385726 AOBINT! TST (SP)+ 

2241 897432 012682 MoV (SP) 4) R2 

2242 397434 266502 so0042 ado FAC2(R5),R2 

2243 097449 «192403 evs AOODOVE 

2244 387442 310265 209042 MOV R2,FAC2(R5) 

2245 987446 300133 wMP CR3) ICONM COOESSSGN(RESULT) 
2246 «997459 190425 ADBOVF) 8M} ADOPOS 

2247 087452 381416 BEG AQOZEKO 

2248 287454 295402 NEG R2 

2249 287456 195965 390042 CLRB FAC2(RS) 

2258 087462 110265 ceness “OVE R2,FAC2¢1(R5) 

2251 987466 099302 SWAB R2 

2252 307478 119265 seee4o MOVE R2,FACLCRS) 

2253 987474 105965 280041 CLRB FACL#i(R5) 

2254 397508 262765 143688 opo040 aod #143600,FACLC(RS) 

2255 907506 290113 JMP (RS) 1CONT CODESSSGN(RESULT) 
2256 987518 285965 oB90042 ADOZEROSCLR FACQ(R5) 

2257 987514 012765 144208 eaeeee MOV 8144200,FACL(R3) 

2258 987522 090113 JMP (R3) SCAND CODESSSGN(RESULT) 
2259 987524 195965 300942 ADOPOS! CLRE FAC2(R5) 

2260 997538 112265 290043 MOVE R2,FAC291(85) 

2261 207534 389332 Swae R2 

2262 987536 119265 o90040 MOVE R2,FAGLI(RS) 


BASICL MACX11 Vd24 22eMARe73 16105 PAGE 3404 


2263 987542 195965 990044 CLRB Facies (RS) 
2264 887546 962765 243600 oape049 Aaoo #43600, F ACL (RS) 
2265 297554 090113 wMP (R3) ICON" CODESSSGN(RESYLT) 


2266 


sel 


BASICL 


2207 
2268 
2269 
2278 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2284 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2209 
2299 
2294 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2308 
2304 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2318 
2312 
2312 
2313 
2314 
2315 
2516 
2317 
2318 
2319 
2328 
2321 


BASICL 


2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2348 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2368 
2364 
2362 
2363 
2364 


MACXLL 


897556 
287568 
907562 
007564 
087566 
887578 
087572 
087574 
887688 
887602 
897604 
897686 
087619 
687612 
907614 
087616 
607628 
087622 
087626 


087638 
007652 
007634 
807648 
007642 
007644 
097650 
397652 
087654 
987656 
987660 
027664 
097666 


987678 
087674 


MACX11 


087676 
087708 
897702 
087794 
087706 
387718 


907714 
987729 
007722 
807724 
987726 


087738 


@87733 


veer 


510046 
810146 
985203 
010402 
985201 
261776 
295908 
8142746 
986301 
103802 
260388 
183447 
986380 
103445 
985316 
003370 
885726 
962728 
103437 


086398 
103435 
916501 
100001 
103431 
020165 
183426 
995721 
300401 
305024 
20165 
181774 
160801 


812722 
622222 


ve2s 


#42224 
010442 
995303 
910342 
A1B142 
162712 


160065 
212601 
312600 
308207 
380084 


952101 


22eMARe73S 


O90RR2 


O9ee12 


800074 


900022 


177776 


22eMARe73 


890004 


ogees2 


414 


16105 PACE 35 


, 
U 
5 
' 
4 
' 
Uy 
) 


ALLOC} §=6MOV 
MoV 
INC 
MOV 
TNC 
BEG 
CLR 
MOV 
ALLLOOPHASL 
acc 
apo 
acs 
ALLNOADIASL 
acs 


bec 
aGT 
TST 
apo 
acs 


sl FNOF 
CMP 
BEQ 
ENOC 


ASL 
acs 


161085 PAGE 3504 


MOV 
MOV 


ALLSTRNITST 
MOV 
oEc 
MOV 
MOV 
MOV 
sus 
MOV 
CMP 
alos 
sus 
“OV 
INC 
BEQ 
Swas 
“OVB 
SWAG 
MOVB 
+ ENDC 


ALLEX1T1SU8 
MOV 
“OV 
RTS 
ERRARAYI {OT 
v LFNOF 
sASCTI 
ENO 
y1FOF 
sASCII 
ENOC 
:BYTE 8 
,EVEN 


SUBROUTINE fALLQC! CALLED BY JSR PC 


ALLOCATES ARRAY SPACE FROM FREESPACE 
R@,R1 PRESERVED 
R2 MUST POINT TO VAR GETS DESTROYED 
RS MUST CONTAIN SS1MAX GETS DESTROYED 
R4 MUST CONTAIN SS2MAX GETS MESTROYED 
R5 MUST POINT TO USER AREA 
SP GOES 7? NEEPER AFTER JSR 

RO, oC SP) 

R1iya(SP) 

RS 


RB leave 
#20, > (SP) de 
Ra te 
ALLNOAD te 
RS~RO te 
ERRARAY te 
RO te 
ERRARAY te 
(SP) te 
AGLLOOP te 
CSP)+ teee 
#2,R0 

ERRARAY sRa NOW s 2 TIMES # ELEMENTS NEEDED, 


MULTIPLY (RL) @(R3) 02 
RESULT IN Ra 
WATCH FOR OVEPFLOWS 


esesetseveese 


SNOSTK 
(H2),#,SVAR 
1¢6 


RO 

ERRARAY RO “Ow = # BYTES NEEDED, 
HIFREE(RS) RO 
RO,RL 

ERRARAY 

RY HISTRORS) 
ERRARAY 

CRID* 

104 

CRY)+ 

RL, HIFREE(RS) 
186 i 
RORY 


SNOSTK 
(R2),8,SVAR 
ALLSTAN 


BrNVAR, CRZ)% 
CRAY HrCRIDS 


(RZ), (RL) 0 
R4,¢R2) 

RS 

RS,a(K2) 
Ri,0(K2) 
#4, ¢R2) 


SNOSTH 
ALLEXIT 
(R2)¢ 
(RZ), (RL) 
RS 

RS, (RZ) 
R4, (RZ) 
R4,04fR2) 
#2, 04(R2) 
Pot CKL)> 
RA, HIFREE(RS) 


ALLEXIT 

Ri 

RL, CR2)+ 

RL 

RL, ¢R2) 
RB,HIFREE (AS) 
(SP)e,RE 
(SP)o,RB 

PG 


SLONGER 
NATL 


SLONGER 
'ARRAYS TOO LARGE! 
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2365 vTFNOF = SNOSTH 

2366 Oe ee ee ee ene ‘ 
2367 }  fARGBE SUBROUTINE 

2368 J CALLED BY JSF R7 

2369 H CALLS EVAL TA GET A LeBYTE 
2378 i ARGUMENT, BRANCHES TO ERRARG 
2371 H IF ARG NO GOCO 

2372 ARGBI JSR PC, EVAL 

2373 Bcs ERRARG 

2374 JSR PC, INT 

2375 rst FACL(RS) 

2376 BNE ERRARG 

2377 : Tsva FAC2#4(R5) 

2378 BNE ERRARG 

2379 ATS PC 

2388 1 ENOC 

2384 

2382 ERSQRI 

2383 ERLOGI 

2384 987734 segg04 ERRARG| JOY 

2385 IFOF  SLONGER 

2386 ASCII ARGUMENT ERROR! 

2387 »ENOG 

2388 sTFNOF = SLQNGER 

2389 887736 051101 327 sASCIT ARGS 

2398 1ENOC 

2391 807741 988 BYTE 68 

2392 ,EVEN 

2393 
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2394 1 Per ew dec ew ewes cc wc eneceecerercewenece 
2395 J) SyBROYTINE !eoMBr CALLED By tor ‘ 
2396 1 PRINTS ERROR MESSAGE FROM AFTER JOT 
2397 ' -R@ DESTROYER 
2398 f R1 PRESERVED 
2399 f R2,R3.R4 UNUSED 
24008 j R> MUST POINT TO USER AREA 
2404 ; SP RESET TO EMPTY STACK 
2402 1 PC NOES NOT RETURN 
2403 307742 312604 BOMB! = MOV (SP), RL 
2404 007744 216705 ageg0RG MOV USRAREA,RS 
2485 387758 316506 aeap04 MOV POL (R2),SP 
2406 387754 4eSe65 200076 CLR ODEV(RS) sCAUSE MES OUTPUT 70 TTY 
2407 987760 012765 o99836 20034 MOV #CLMNTTY,COLUMN(R5) ISET*UP TTY FOR COL, COUNT 
2498 987766 260565 C8854 aod R5, COLUMN(RS) 
2409 387772 204167 205476 JSR RigMSG 
2410 387776 a15 o42 1BYTE —CRALF 
2412 vIPNOF SLONGER 
2412 910009 045 sASCIL 1% 
2413 + ENOC 
2414 #319901 gag :BYTE @ 
2415 +EVEN 
2416 310002 112196 BOMBNX) MOVB (RY) Oy RO ‘ 
2417 "240904 294403 CT) BOMBOON 
2418 219906 294767 376664 vSR PC ,PUICHAR 
2419 «310812 489773 aR BOMBNX 
2420 210014 826527 090830 177775 BOMBOONICHP LINENO(RS),#, SCALAR 
2421 310022 193044 BHIS BOMB yMP 
2422 910924 304167 905444 VSR R1,MSG 
2423 810030 340449 o20124 244544 tASCIE ¢ AT RINE 2 
219036 242516 040 
2424 310041 039 :BYTE 2 
2425 1EVEN 
2426 919042 616508 ag0230 MOV LINENO(R5),RO 
2427) 910846 302405 BLT BOMBNEG 
2428 310250 710965 sge042 MOV RB»FAGZ(RD) 
2429 910054 795965 aeeuse CLR FACA(RS5) 
2430 10060 290414 BR BOMBOK 
2431 919062 110965 090043 BOMBNEG! MOVE RY» FACZ+L( RS) 
2432 0819966 195965 g90042 CLRB FAC2(RS) 
2433 910072 oBo3e8 SWAB Re 
2434 919874 110965 2989040 MOVB RB, FACL(RS) 
2435 010108 195965 200043 GLRB FACL#1(R5) 
2436 910194 262765 43600 so0040 AOD #43600,F ACL (95) 
2437 910112 004767 095030 B0MBOKI JSR PC,NUMOUT 
2438 310116 284167 295352 JSR RL, MSG 
2439 19122 015 a12 020 1BYTE = CRy LF a® 
2440 319126 1EVEN 
2441 910126 200167 170744 BOMB UMP T UMP READY 


2442 


Nee 
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2443 ’ 
2444 ) BUFCLRe-INIT 1/9 DEY, SYFFER HEADERS 
2445 ' 
2446 } CALL? JSR pC, BUFCLR 
2447 ' 
2448 } YSES R2 AND RS 
2449 ’ 
2458 19132 216502 2090102 BUFCLRE Mov KBHO( HS), R2 SKEYP.QARO 
2451 010136 212203 MOV (RZ) 4) RS }BUFF, START 
2452 319149 285722 TsT (R276 HSKIP TO BGETL 
2453 919142 919322 MOV RS, (RZ) 
2454 010144 210322 my aitiasie 
2455 918146 «719322 34 
2456 010158 594767 ag0832 vSR PG, BUFTP SCLEAR TELEPRINTER BUFFER 
2457 
2458 vIFNDF = SNOPTP 
2459 010154 212772 824386 MOV aPPBFND,R2 sPAPER TAPE PUNCH 
2468 218168 0904767 993502 uSR PG, INS TBF 
2461 o10164 212702 o24242 MOV #PREFHD,R2 PAPER TAPE READER 
2462 019178 884767 993552 vSR PC, INI TOF 
2463 ,ENOC 
2464 aJFNOF = SNOLPT 
2465 010174 212702 024352 MOV #PBFHO,R2 
2466 010208 204767 003542 JSR PC, INS TBF 
2467 +ENOC 
2468 
2469 910204 390207 RTS PC 
2479 
e474 
2472 ' 
2473 } BUFTPesINIT TELEPRINTER AUFFER HEADER 
2474 ' ; 
2475 1 CALLE JSR pC, Buf TP 
2476 ' 
2477 1 USES R2 AND R3 
2478 ' 
2479 810206 7146502 200190 BUFTPI MoV TPHO( RS) »R2 ITELEPQINTER 
2488 819212 312283 mov (R2)4,R3 NBUFF, START 
2484 019214 222222 CMP (R2)o 4 (R206 yPT, TO BGET2 
2482 018216 010322 Mov RS, (R20 
2483 910228 710322 MOV RS, (R26 
2484 g10222 290227 RTS PC 
2485 

BASICL MACX12 V@22 22eMARw73 16185 PAGE 39 
2486 ! 
2487 f 
2488 } CHKCHR © CHECK ASCII CHAR, For SPECIAL CASES 
2489 ' 
2498 1 GALLI Mov CCHAR,J,RO 
2491 ' JSR RS, CHKCHR 
2492 ’ INSTRUC, JEXMECUTE IF LINE DEL, (SALT “ODED, fete) 
2493 f INSTRUC, JEXEC, IF <CR> 
2494 H INSTRUC, sEXEC, IF <RUB QUT> (OR of) 
2495 ' INSTRUC, VEXEC, IF RELOW 40 OR ABOVE 137 
2496 ’ INSTRUC, JEXEC, IF GOOD STUFF 
2497 ' 
2498 ) YSs€s Ro 
2499 ’ 
2508 0919224 120027 2900176 CHKCHRI CMPB RO, #176 SALT MODE 
2503 910230 201434 BEO COEXIT 
2502 919252 120027 990175 cMPe RO, #475 SALT MODE 
2503 818236 901431 8e0 CCEXIT 
2504 910249 120927 900053 cmPB RO» NSS yALT MODE 
2505 319244 281426 BEO CCEXIT 
2506 319246 120027 ag0025 CMPB RO, #29 bleu 
2507 040252 2901423 BEO CCEXIT 
2508 0108254 395723 TST (R3)o sTO <CR> RETURN 
2509 219256 120027 900015 CMPB RO, SCR 
2512 9409262 004417 BEO CCEXIT 
2541 330264 995723 TST (R3)o sTO RUB OUT RETURN 
2512 019266 120827 900177 cMPB RO, 8477 yRUB OUT 
2513 010272 381443 BEG CCEXIT 
2514 919274 120927 000157 CMPB RO aie 
2515 310300 701410 8E0 CCEXIT 
2516 219302 905723 TS? (R3)¢ 170 LIMIT RETURN 
2517 919304 128927 oo004e cMPB RO, 940 
2518 018318 103404 BLO CCEXIT 
2519 3109312 120927 900437 cMPB RO, #157 
2528 919316 191001 BHI CCEXIT 
2521 310320 205723 TST (R3) bREG, CHAR, RETURN 
2522 918322 290203 CCEXIT) RTS RS 


2523 


BASICL 


2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2336 
2537 
2538 
2539 
2548 
2543 
2542 
2543 
2544 
2545 
2546 
2547 
25468 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2563 
2562 
2563 
2564 
2505 
2366 
2567 
2568 
2569 
2578 
2574 
2572 
2573 
2574 
2575 
2576 
2577 
2578 


BAS{CL 


2579 
2580 
2381 
2582 
2583 
2584 
2585 
2586 
2587 
25868 
2589 
2598 
2592 
2592 


MACKLL 


810324 
019338 
918332 
818336 
810342 
810344 
910359 
019352 
019356 
010368 
848362 
818364 
810378 
810372 
40374 
018376 
019409 
019482 


810404 
810419 
O19412 


910415 


819416 


010417 


MACX4L1 


919420 


310421 


218422 
012423 


yea. 


242700 
200402 
342780 
206767 
183428 
295765 
384027 
226502 
81441 
111083 
269583 
820227 
181927 
960200 
141043 
284404 
111902 
880207 


200167 
980004 
344504 


CTT} 


876 


B02 


Ve2t 


O24 


077 


802 
080 


22emARe73 


810424 


010446 
0go234 


980040 
oo0R4e2 


eogee2 


001240 


195 


22eMARe73 


16105 PAGE 48 


CALLE Mov 
JSR 


CHKISETIMOV 
BR 


CHKOSETIMOV 
COMCHK} JSR 
acs 
Ts? 
BNE 
MOV 
Bea 
MOVE 
ado 
CMP 
BH} 
AOD 
MOVE 
REQ 
MOVE 
OUreiL2) RTS 
U 


Ersxi2t JMP 
| 


ERCHANY lor 
yTFNOF 
rASCII 
1 ENOC 
vtFOr 
ASCII 
,ENOC 
BYTE 
EVEN 

J 


' 

OTABLE} ,BYTE 
LIFOF 
BYTE 
VENDC 
vTFNOF 
1BYTE 
+ENOC 
tFOr 
BYTE 
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+€NOC 
clFNOF 
BYTE 
,ENOC 


5 

ITABLET , BYTE 
1, 1FOF 
BYTE 
,ENOC 
1 TFNOF 
BYTE 
,ENOC 
BYTE 


CHKISET @ CHECK [/0 CHANNEL ANT SETUP [NPUT (IOEV(R5)) 
CHKOSET © CHECK 1/0 CHANNEL AND SET@UP OUTPUT (ODEV(RS)) 


CADOR: oF CODE LINE mrp, AFTER ‘#C3,R1 
PC,CHKISET (CHKOSET) 


USES! ROARLRZARS HD 


CHECK JF SPECIFIED CHANNEL LEGAL (NUMBER IN RANGE AND 179 
DEVICE ASSEMBLED JN), RETURN COME FOR SPECIFIFO DEVICE 
(SAME AS VALUE OF JOEV (ODEV)) IN 22, ON EXIT, RL PTS, 
TO BYTE AFTER CHANNEL NUMBER, 


#TTABLE, RO 

COMCHK 

#OTAGLE, RO 

PC EVAL 

ERSX42 

FAGCL(RS) 

ERCHAN IMUST BE INTEGER 

FAC2(KS),R2 

ourare NTTY © EVERYTHING SETeUP 
(RB), RS TFIRST TABLE ENTRY 

RO,RS HPTS, TO ACTUAL BYTE 

R2,82 IMAX CHANNEL NUMBER (CURRENTLY) 
ERCHAN 

R2,RO JENTRY IN TABLE OF DEV, CONE 
CRO), (RS) sCOLE INTO IDEV OR ODEV 
ERCHAN IMEANS NO DEVICE THERE 
(HO), RZ 

Pc 


ERRSXS 
SLONGER 
\OCEN 


SWONGER 
(OEVICE CHANNEL FRRORE 


o0Ey 
SNOPTP 
a 


SNOPTP 
2 


SNOLPT 
a 


SNOLPT 
4 


1DEV 
SNOPTP 
a 


SNOPTP 
2 
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2593 
2594 
2595 
2596 
2597 
2598 
2399 
2608 
200% 
2002 
2023 
2604 
2005 
2006 
2007 
2008 
2009 
2018 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2019 
2628 
2621 
2622 
2623 
2024 
2625 
2026 
2627 
2028 
2629 
2030 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 


BASICL 


2648 
2042 
2042 
2043 
2644 
2645 
2046 
2047 
2648 
2049 
2650 
2654 
2652 
2653 
2654 
2655 
2056 
2057 
2658 


MACX11 


019424 
310432 
010442 
910442 
418446 
910452 
910454 


010456 
010462 


310464 
818466 
810479 
010474 
818476 
918509 
910504 
019506 
010514 
910522 
019530 
910536 
913542 
910546 
919550 
010554 
910556 


MACx41 


910568 
910564 
010578 
018572 
049576 
919608 
8109602 
810604 
018606 
018612 
18614 


vezs 


222765 
312765 
811528 
220065 
193814 
321827 
183405 


332728 
8850.6 


812018 
012010 
362708 
488762 
305928 
820965 
104774 
816565 
816565 
016565 
812765 
016509 
842729 
905020 
220965 
101774 
090207 


voes 


822746 
22783 
101002 
962703 
386194 
086105 
205316 
OB3367 
242703 
005726 
980207 
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O32531 288064 
163251 80066 


908814 
177775 


177775 


890804 


060010 


eoneie geee12 
o908i4 eB8072 
agnei4 s20074 
880833 geees2 
090004 
477777 


| peccqacccsencgeccgeccccessecesccescccseccgecesccces 


awe wwe ee 


LRVARSIMOV 

MOV 

MOV 
CLRLOOP ICMP 
BHIS 
CMP 
Lo 


vTFNOF 
CMP 
aeQ 
1ENOC 


CLRSVARSMOV 
ENOC 


MoV 
MOV 
abo 
BR 
CLR 
CLAFREESCMP 
BLOS 
MOV 
MOV 
“QV 
MOV 
MOV 
Mov 
CUR 
CMP 
BLOS 
RTS 


CLROKI 
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808834 
0509808 


138888 


170908 


' 
, 
y 
' 
4 
’ 


' 
DIVTENS MOV 
DIVLOOP ICMP 
BHI 
aod 
ROL, 
ROL 
DEC 
8c? 
alc 
TS? 
RTS 


SUBROUTINE 'CLRVARS! CALLED BY Jsp pC 


CLEARS VARS TO SCALAR ZEROS,NULL STRINGS 
ALSO INITIALIZES RANDOM NO GEN 
RB DESTROYED 
R4,R2gR3,R4 YNUSED 
RS MUST POINT TO USER AREA 
SP GOES NO NEEPER AFTER JSR 
#52332, RNOL(R5) 
#163294, R2NN2(R5) 
CRS), RO 
RO, LOFREE(RS) 
CLARFREE 
(RB),#, SCALAR 
CLROK 


SNOSTK 
(RB), #,SVAR 
CLRSVAR 


# SCALAR, (RODS 
(Ra) 


SNOSTR 
14 
(RO), ERA) 


(RB) O, (RO) 

(HO) O) (RO) 

#4, RO 

CLRLOOP 

(RO) * 

RO, ARRAYS(A5) 

106 

ARRAYS(R5) ,HIFREE (RS) 
LOFREE(R5) ,LOSYRERS) 
LOFREE(RS) ,HISYRORS) VEMPTY STRING STORAGE 
#33,GSBCTR(RS) 
POLCRD), RO 

Med, (KOs 

(RO)o 

RO LIMITCRS) 

196 

Pg 


Poccecewcr enw eens wen wrens cen es wn ws enesawccweereess 


SUBROUTINE "OIVTEN! CALLED BY JSR PC 


OLIVINES P3,R4 BY DECIMAL 18 
RO,RL,R2 UNUSED 
R3,R4 1S THE 31 BIT UNSIGNED INTEGER TO DIVIDE 
RS UNUSFD 
SP GOES 2 DEEPER AFTER ySR 
#34,0(SP) 
#50000,R3 
1%6 
#430000,°3 
R4 
RS 
(SP) 
OUVLOOP 
#479000,R3 
(SP)o 
PC 
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2659 
2668 
2662 
2662 
2063 
2664 
2665 
2666 
2067 
2668 
2669 
2678 
2071 
2072 
2073 
2674 
2675 
2676 
2077 
2678 
2679 
2688 
2681 
2682 
2083 
2084 
2685 
2686 
2087 
2688 
2689 
2098 
2691 
2092 
2693 
2094 
2695 
2696 
2097 
2698 
2699 
2708 
2781 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2741 
2712 
2733 
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2714 
2715 
2716 
2717 
2718 
2719 
2720 
2724 


MACK11 


MACKL4 


veer 


Voat 


22emMARe73 


22eMARG73 
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sIFNOF  sNOSTH 


er i en en nen eed 


$ SUBROUTINE ‘DNPACK? CALLED BY JsR PC 
' PACKS STPING STOKAGE TOWARD LOW CORE 
, R@ UNUSED 
1 R1,R2,.R3 PRESERVED 
I R4 UNUSED 
J RS MUST POI“T TO USER AREA 
1 SP GOES 1% YEEPER AFTER JSR 
ONPACK} MOV R1,9(SP) TO 'INDERSTAND THESE ROUTINES IT [S HELPFUL TO 
MOV R2,0e(SP) sKNOW THAT NON@NULL STRINGS ARE STORED AS 
MOV RS," (OP) HCLENGTH,2 BYTE BACKPTR,N BYTE STRING, LENGTH) 
CLR (SP) JWHERE LENGTH IS THE VALUE OF N AND IF BACKPTR 
MOV LOSTRIRS),R2 s1S O09, THEN JT IS RELATIVE TO SYMBOLS, 
MoV LOFREEC(R5S) RL 
MOV RY,LOSTR(KS) 
ONPLOOPICLR (SP) 
ase (R2)%, (SP) 
BNE ONPN2KO 
ONPBAD} CMP RZ, HISTRORS) 
BLO ONPLOOP 
MoV RL HISTRERS) sSAVF HIGH STRING ADORESS 
TST (SP)e 
MOV (SP)eyR3 
MOV (SP )o,R2 
MOV (SP)o,RL 
RTS PC 
ONPN2ROSCLR RS 
BSB (R2)O RS 
SWAB RS 
gise (RZ) eyR3 
aod (SP),K2 
TNC R2 
Bir RSet 
seo 106 
DEC RS 
aod (R35) KS 
cMP R3,PDLCRS) 
BHIS ONPBAY 
CMP RS,SP 
SHIS ONPGOOD 
CMP R3,ARRAYS(A5) 
BHI ONPBAD 
CMP RS,HIFREE(RS) 
BHI ONPGOOO 
CMP RB, LOFREE( RS) 
BHIS ONPBAD 
CMP RS,CRD) 
8L0 ONPBAD 
ONPGOODTA00 #4,¢(SP) 
sua (SP), R2 
CMP RQ, (RS) 
BNE ONPIGNO 
MoV R4,(R3) 


MOVB (RZ), (RL) & 


16505 PAGE 4304 


DEC (SP) 

8GT 124 

BR ONPBAU 
DNPIGNOTADD (SP), R2 

BR ONPBAU 

vENOC 

sE0T 


fhe 


BASIC, 


2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
273% 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2744 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2758 
2754 
2752 
2753 
2754 
2755 
2756 
2737 
2758 
2739 
2760 
2763 
2762 
2763 
2784 
2765 
2766 
2707 
2768 
2789 
2778 
2773 
2772 
2773 
2774 
2775 
2776 


BASIC 


2777 
2778 
2779 
2780 
2782 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
27908 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2600 
2801 
2802 
2803 
2604 
2805 
2806 
2807 
2808 
2809 
2048 
2612 
2812 
2813 
2814 
2845 
2816 
2617 
2818 
2019 
2628 
2621 
2822 
2823 
2624 
2825 
2826 
2827 
2628 
2829 
2832 
2831 


MACKX12 


010616 
040620 
049622 
818626 
819630 
040634 
010636 
018649 
010642 
010644 
010650 
040652 
910656 
010660 
010664 
812666 
040672 
040674 
040700 
010782 
010706 
010718 
310714 


310716 
918722 
340726 
3148738 
810734 
310756 


MACX11 


210742 
010744 
010746 
010758 
810754 
310756 
210768 
810762 
210764 
010766 
810779 
010772 
910774 
010776 
311908 
311802 


a11904 
O11910 
011014 
011020 
a11924 
211930 
911052 
211036 
311042 
811046 
311052 
011054 


211868 
241064 
311866 


VO2i 


120604 
193426 
842746 
200404 
942746 
920606 
103530 
122182 
882113 
120227 
302455 
120227 
801462 
128227 
204462 
120227 
381478 
120227 
081753 
120227 
091754 
126227 
20504 


842702 
162782 
086302 
026227 
101254 
062702 


Vo2L 


360702 
308712 
803802 
200167 
264297 
880000 
200028 
809716 
889724 
380732 
480746 
300754 
380779 
288088 
304122 
688008 


911902 
285065 
185965 
112165 
200167 
895965 
200404 
112465 
122165 
122165 
112165 
289507 
304767 


122127 
204502 
OBOL67 
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) SOURCE FILE #5 
| geccecewccccc ence ce ceccwnseceswnwceensesesesezecce 
’ 
) EVAL © EVALUATE EXPRESSION 
’ 
1 GALLI Mov CYSER@AREAS 
' MOV CSTACK S1ZEI,R4 
H MOV CGWAR, PTR, I,RL 
’ ysR PC EVAL 
U : 
J YSES ALL REGS, 
’ 
} RETURNS ‘Cf BIT SET IF STRING VAL, 
’ CLA IF NOT STRING 
' 
} RETURNS VALUE IN FACA(HS), FAC2¢R5S) 
' 
EvaALi = CMp SPsR4 
BLO BPO, 
age2s5 Mov #, TERM, ©(SP) 
BR OPERANO 
ope233 UMENUSS MOV # UNARY, o(SP) 
CMP SP,R4 
BPOL! = 8L0 ERRPOL, 
OPERANOt MOVE CHL) Op RZ 
8GE VARBLE 
880575 compe R2,e,ULITL 
BEO thers 
390376 cups R2y8, IQIT2 
BEG IhlT2 
880374 cura R28 ELIT 
BE FLIT 
290255 coupe R2,#,LPAR 
8£0 LPAR 
oao2s4 CMPB R2,8, MINUS 
BEQ UMINUS 
090232 cMPB R2,8, PLUS 
Bea OPERAND 
eg0262 cura R2,8,5N 
BEQ GOTOFN 
,IPNOF SNOSTK 
cMPs R2,#,3QU0T 
Bea GOTOGT 
cups R2,8,0QU0T 
BNE NOQUOTE 
GOTOOTS UMP Qyore 
+ ENDE 
177408 NOQUOTEIB8IC #477490 ,22 
80205 sue #,RNDL RZ 
ASL R2 
ogee24 CMP RZ, #TULSENM®TARLES 
; BHI ERRSX4 
ogaoi2 ao0 #12, R2 
22eMARe7S 16105 = PAGE 4404 
ao0 PoyR2 
TSY (R2) 
8GT 1*6 
og2n62 vMP ERRUFN 
apo (R29, PC 
TABLES! ,WORD @ 5 RNAC 
WORD 8 4s RND 
+WORD = SINFN@ TABLES 
WORD COSFN@TABLES 
+WORO = SQRFN@ TABLES 
»WORD = ATNFN® TABLES 
+WORD = EXPFNe TABLES 
WORD = LOGFNW TABLES 
sWORD @ ) ABs 
WORD = INTFN® TABLES 
WORD @ 1 SG" 
rIFNOF = SNOSTR 
WORD ® 3 TaR 
1 WORO td] y Le’ 
WORD @ y Ase 
WORD 2 1 CHES 
WORD @ 3 POS 
WORD O 1 SEG 
;WORD @ 4 VAL 
»WORD @ 4 $78 
,ENDC 
TBLSEND 8,02 
900040 ILTTa+ CLR FAGI(K5) 
890045 CLRB FAC2#1(R5) 
290042 MOVB (RL) Op FACZCRS) 
800246 JMP OPRATOR 
090240 ILIT2+ CLR FACA(H5) 
BR ILtTcom 
oe0041 FLIT) «© OVE (RL) 4%) FACLOLCRS) 
000040 MOVE (RL) +e FACLCRS) 
OB8045 TLITCOMsMOVE (REO pFACZ4L (RS) 
990042 MOVB (RL) Op FACZERS) 
BR OPRATOR 
177530. LPARI = -ySR PC, EVAL 
vIFNOF SNOSTR 
8cs LPSTRNG 
,ENOC 
000237 Cups (RL) 498, RPAR 
BEG OPRATOR 
200556 ERRSX4} UMP ERRSXS 
vIFNOF SNOSTR 
LPSTRNGICMPB (RL) *¢ 8, RPAR 
BNE ERRSX4 
uMP SOPRATR 


sENDC 


BASICL 


2832 
2833 
2834 
2035 
2836 
2637 
2838 
2839 
2848 
2043 
2842 
2843 
2644 
2845 
2646 
2847 
2848 
2049 
2850 
2853 
2852 
2853 
2854 
2855 
2856 
2657 
2858 
2859 
2869 
2861 
2862 
2865 
2864 
2865 
2866 
2667 
2868 
2069 
28790 
2871 
2872 
2873 
2874 
2875 
2876 
2677 
2878 
2679 
2680 
2681 
2882 
2883 
2864 
2685 
2886 


BASICL 


2887 
2888 
2889 
2898 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2908 
2901 
2902 
2905 
2904 
2905 
2906 
2987 
2908 
2909 
2910 
2011 
2912 
2943 
2944 
2915 
2916 
2917 
2918 
2919 
2920 
2924 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2932 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2949 
2941 


MACKX12 


811072 
011074 
021076 
011108 
811104 


341106 
41112 
O1s1i4 
B1r116 


011120 
811122 


011125 
811126 


311152 
911154 
811156 
911148 


011144 
911158 
011154 
911156 
911162 
@11164 
611178 
811172 
811176 


MACXA1 


11202 
811206 
11212 
a11214 
g1ii220 
311222 
911226 
811230 
211232 
911234 
911240 
811242 
811246 
311252 
011254 


311256 
341262 
911266 
341272 
811274 
911308 
811302 
811396 
11318 
341314 
311316 
441320 
311324 
911326 
811352 
211334 
8113549 
2113542 
311346 
311350 
011354 
311356 
811362 
11364 
311370 
311372 
811376 
814400 
811482 


vo2s 


380322 
152132 
264502 
121127 
@BL412 


322227 
284463 
811202 
20046) 


808004 
052105 


000 
900167 


805204 
303771 
310246 
394767 


094767 
905765 
001027 
121127 
001426 
122127 
904336 
816546 
204767 


vo2s 


884767 
205765 
204010 
122127 
8843522 
16583 
190482 
212688 
980427 
009167 
985201 
®12723 
416500 
100778 
422682 


384767 
812265 
011265 
111103 
120327 
002437 
120327 
884434 
129327 
183664 
911602 
120227 
181425 
120227 
194447 
122227 
104411 
120227 
191403 
12¢327 
194427 
120327 
181424 
120327 
101424 
128327 
101426 
@95ee2 
152602 


22eMARe73 


980255 


177775 


1es 


984546 


177432 


002634 
oan4e 


a0237 
090245 


090042 
477424 


22aMARW73 


802576 
80e04e 


800237 
30og4e 


2035354 


177777 
280B42 


883356 
320040 
ogon4e 
990201 
808225 


998227 


290227 
090231 
ago2s4 
290224 
290254 
oaaes4 
og0231 
oon227 


16105 PAGE 4402 


vARBL Et swaB 
81sB 


400 
cmPa 
BEO 


vTFNOF 
CMP 
Bea 
sENOC 


Cup 
BEO 
MOV 
BR 


s TFNOF 
STRGJMP3 UMP 


vENOC 


ERRPOL! lor 
vlFNOF 
rASCIY 
,ENOC 
,lFOF 
rASCII 
,ENOC 
+BYTE 2 
+ EVEN 

GOTOFN: JMP 


. eT PNOF 
ERRMX24 JMP 
eENOC 


VARSSt INC 
BLE 
MOV 
JSR 


eTPNOF 
Bcs 
1ENOC 


JSR 
Ts? 
BNE 
CMPB 
BEG 
CMPB 
BNE 
MOV 
JSR 


16185 = PAGE 4403 


tFNOF 
BCS 
VENDC 
vSR 
TSY 
“BNE 
CMPB 
BNE 
MOV 
BM! 
MOV 
BR 
ERRSS2} JMP 
VONESS} INC 
MOV 
MOV 
vVTWwOSS| BMI 
MOV 


1 TENOF 
CMP 
BNE 
ump 
,ENOC 


dsr 
VARNOSSIMOV 
MoV 
OPRATORIMOVB 
cMPB 
ci) 
cMPB 
8E0 
cMPB 
BLO 
MOV 
cMPB 
BLOS 
comes 
BLOS 
cMPS 
BLOS 
cMPB 
BLOS 
PRECSt CMPB 
BLOS 
PREC4| CMPB 
BLOS 
PRECS! CMPB 
BLOS 
PREC2} CMPB 
BL 0S 
DOLTNOWICLR 
BISB 


R2 

CREO, RE 

(R35), K2 SCOLLECT OFFSET 
CRE) # LPAR 

VARSS 


SNOSTK 
(R2),#,SVAR 
STRGUMP 


(R2)%)#, SCALAR 
VARNOSS 
(R2),R2 
VARNOSS 


SNOSTK 
STRGVAR 


SLONGER 
NETCN 


SLONGER 
‘EXPRESSION TOO COMPLEX? 


FNFN 


SNOSTK 
ERRMIX 


Rd 
ERRPOL 
R2,0(SP) 
PC, EVAL 


SNOSTR 
ERRMX2 


PC, INT 
FACL(RS) 
ERRSS2 
(RY), 8 RPAR 
VONESS 
(Rae) 8, COMMA 
ERRSX4 
FACQ(R5),9(SP) 
PC,EVAL 


SNOSTK 
ERRMXZ 


PC, INT 
FACL(RS) 
ERRSS2Z 

(RL) %,#,RPAR 
ERRSX4 
FAC2(K5) RI 
ERRSS2 
(SP)o)RO 


wet RS 
FAC2(HS) »RO 
ERRSS2 

(SP) %,R2 


SNOSTH 
(R2))8,SVAR 
1%6 

STRGARR 


pC LOCGET 

(R2)o,FACL(RS) 

(RZ), FAC2(R5) 

(RL), RS JNEXT CHARACTER, 
RS, 8,60 

OOTTNOW 

RS,#, GOTO 

OOLTNOW 

R3,#, YPARRO 

ERRSX4 


(SP), K2 sPREVIOUS OPERATOR, 


R2,8,UPARKO 
DOTTNOW }JUMP IF 04 
R2,8, SLASH 

PRECE 
R2,8,MINUS 


yJUMP IF @ OR Z, 


PRECS sJUMP IF # © OR UNARY, 


H2,8,60 


PRECA JUMP IF a <> Cz ds ¢ OR D4 


RSee#,E9 


NOTNOW }QUMP IF ANY OPERATOR, 


R3,a MINUS 


NOTNOW JUMP IF @ © UNARY @ / 


RS, 8, SWASH 


NOTNOW sJUMP IF @ / OR 9, 


RS, 8, YPARRO 
NOTNOW JUMP IF 


OR 


, 


- 
R2 16,6, Aeds ) 00 THE © vou, 


(SP)e,R2 


ne 


BASICL 


2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2958 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2968 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
29708 
297% 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2988 
2982 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2998 
2992 
2992 
2993 
2994 
2995 
2996 


BASICL 


2997 
2998 
2999 
3000 
3002 
3002 
3003 
3004 
3005 
3206 
3007 
3008 
3009 
3010 
3e41 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3220 
3022 
3022 
3023 
3024 
3625 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3933 
3034 
3035 
3036 
3037 
3038 
3039 
3049 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3058 
30514 


MACXL1 


011404 
011418 
911412 
311414 
311416 
911428 
11422 
311424 
011426 
911430 
3114352 
311434 
911448 
011442 
811444 
314458 
311452 
041454 
911468 
311462 
011464 
611479 
811474 
011508 
911502 
912518 
911512 
811516 
811528 
11526 
011532 
811554 
011340 
811542 
811550 
841554 
011556 
11560 
011562 
811564 
011566 
911572 
911600 
811604 
911606 
011618 
811612 
941614 
011616 
611628 
811622 
811624 
811626 
0116352 
811634 


MACX1L 


311648 
11644 
011646 


011659 
811652 


811655 


811656 


# , UPARRO©L,R2 
R2aR2 : 
PC,R2 

(RQ), PC 
UPARROeTAGLE2 
STAR*TABLE2 
SLASH TABLE2 
PLUS@TABLE2 
UNARY STABLE 
MINUSeTABLE2 
TERMIN® TABLE? 
FAC2(H5),9¢SP) 
SP,R4 

ERAPOS 
FACL(RS),e¢SP) 
RS, 0($P) 


Ry 
OPERAND 


PC 
ERRPO, 
PC, SUBSTK 
FACL(R5) 
UINTES 


#408088, F ACL (RS) 


OPRATOR 
FACZ(R5) 
OPRATOR 
#44008, FACS(R5) 
FAC2¢R5) 
OPRATOR 

PC, ADUSTK 
OPRATOR 
BERSTAR, SERVEC 
R4,FPPSAV 
TSTSTK 

PYSHF 

SHLR 

PoP 

FPPRES 

OPRATOR 
#ERROLV, SERVES 
R4, FPPSAV 
TSTSTK 

PUSHF 

SOVR 

pop 

FPPRES 

STARS 

¢SP) 

TSYS2 

(SP)* 

sur 

e(Raye 
FAC2(K5),0(SP) 


FACLCRS),9¢SP) 
TSTSt 

{Raye 

SNOSTK 


JOUMMY ENTRY POINTS FOR SNOSTR 


Va2l 22eMARe7S 16385 PAGE 4404 
162782 998226 sus 
160282 ano 
268782 aoo 
061207 ado 
200530 TABLE21 , WORD 
100424 1 WORD 
209154 ,WORO 
880116 , WORD 
280056 , WORD 
200052 ,WORD 
390842 WORD 
046546 890042 NOTNOW} MOV 
820604 cup 
183429 B40 
916546 290048 MOV 
010346 MOV 
205204 INC 
ege157 177268 JP 
200242 TERMING CLC 
090207 RTS 
80167 177438 ERRPDS!) UMP 
084767 995616 MINUST JSR 
405765 099040 UNARY! TST 
901404 Bea 
962765 199080 300849 apo 
880670 ar 
098465 esse? UINTEGI NEG 
192265 ByvC 
212765 844000 920040 MOV 
205965 oeeg42 CLR 
300657 BR 
084767 175638 PLUS! = SR 
380654 BR 
212767 011666 agueaeG STARI MOV 
004467 O04500 JSR 
#114628 WORD 
311634 , WORD 
990g0gG 1 WORD 
014278 ,WORD 
313306 , WORD 
880167 177500 STARE MP 
012767 912238 o809B8GG SLASH} MOV 
204467 024530 vse 
811620 + WORD 
811634 WORD 
seogees 1 WORD 
014278 +WORD 
843306 , WORD 
090763 BR 
095726 TSTSTky TST 
oa1g03 BNE 
085726 ystsai fst 
380167 oaoeges ume 
000134 rs?s21 MP 
816546 290042 PUSHF} = MOV 

VO2L 22eMARe7S 16105 PAGE 4405 
216546 000048 MOV 
O04767 REQ 
2901354 ume 

vLFOF 
SAVCHARI 
ARGBI 
MAKESTI 
SOPRAT} 
STOSVARI 
ERRMIX} 
STPROS 
,ENOC 
: ERRSYNY 
300024 ERRSXS) 107 
1 UFNOF 
354523 116 sASCIT 
1ENOC 
1 TFOF 
sASCII 
sEnOC 
028 +ByTE 2 
sEVEN 
vTFNOF 
QUOTE! CMPB 
BNE 
MOV 
MOV 
TSTB 
BNE 
CMP 
BLO 
MOV 
sua 
MOV 
SUB 
cMPB 
BNE 
oEC 
geo 
MOV 
ano 
ySR 
MoV 
uMP 
QUNULLI CHP 
GOTVALI MOV 
BR 
,ENDC 


986167 388008 ERpOG2t UMP 


SRONGER 
' SYNE 


SLONGER 
(SYNTAX ERRORS 


SNOSTK 
CRE) Om, TEXT 
ERRSXD 
R2,RS 
R44R2 
CRL* 
192 
SP,R4 
ERRPOS 
R2,0(SP) 
#3, (SP) 
Ri, e(SP) 
R2, (SP) 
CRY ERS 
ERRSXS 


PC, MAKESTR 
(SP), (SP) 
QuoTeysM 
(SP), (SP)e 
wed,agSP) 
SOPRATR 


ERRPOZ 


sJUMP TO DO THE APPROPRIATE OPERATION, 
JLEFT OPERANO 1S (SP), 2(SP), 
RIGHT OPERANO IS FACL(RS),FAC2(P 9), 


HCE, 6, 


AeBe ) DONT 00 THE + YET, 


CARRY OFF MEANS NUMERIC RESIILT, 


}TEST TOP OF STACK ANO FLOAT IF INT 
sPUSH FAC ANO FLOAT IF NEC 

SPERFORM MULT 

sPAP RESULT 


PRETURN 


dFLOAT IF INTEGER 
PRETURN 


pSAVE QUOTE CHAR, 


” 


ISAME AS STARTING QUCTE CHAR,? 
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3052 vIFNOF =SNOSTK 

3053 STRGARRI JSR PC +L OCGET 
3054 aR STRGBTH 
3055 SYRGVARITST CR2)0 

3056 CMP 26R2)y aot 
3057 Bea STRGBTH 
3058 MOV CR2),R2 
3059 STRGBTHIMOV (R2),K3 
3068 CMP R3, a1 

3064 BEO GOTVAL 

3062 CMP SP,R4 

3063 BLO ERPOG2 

3064 CLR °(SP) 

3065 MOVB (R3), (SP) 
3266 vSR PC, MAKESTR 
3067 SOPRATRICMPS 2(SP).#, AMPERS 
3068 8E0 cONCAT 

3269 CMPB (RL), #, AMPERS 
3070 eea AMPWALT 
3873, cMPB 2(SP),#, TERM 
3072 SNE ERRSXD 

3273 Mov CSP) o,RO 
3074 TsT (SP)o 

3875 MOV (SP), K2 
3976 MOV RO, (SP) 
3077 INC Re 

3078 C4) SOPRX ICHECK NULL STRING 
3079 aoo #2,RO 

3080 MOV SP,R3 

3081 MOVE R3,0(KO) 
3982 SWAB RS 

3o83 Move R3,=(KO) 
3e84 SOPRX} SEC 

3085 JMP (H2) 

3086 AMPWALTIMOVB (RL) op 0(SP) 
3087 vSR PC, EVAL 
3088 acs SOPRATR 
3089 ERAMIX) [oT 

3092 ,IFNOF SLONGER 
3092 sASCIT \NSHN 

3092 1ENOC 

3093 11FOF = S,ONGER 
3094 vASCIT NUMBERS ANG STRINGS MIXED! 
3895 +ENDC 

3096 +BYTE 2 

3097 1 EVEN 

3098 CONCAT} CMP CSP) Hod 
3099 BNE CATNOT 

3198 GMP (SP}47(SP)e 
3192 8R SOPRATR 
3192 CAFNOTS MOV 4(SP),R2 
3103 cMP R2, 801 

3104 BNE CATLONG 
3105 MOV (SP) +, RO 
3106 TS? (SP)o 
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3107 MOV RO, (SP) 
3108 BR CAtCOM 
3109 CATLONGICLR R@ 

3112 B1se (R22), KO 
Sai. MOV CSP) KS 
3412 cMP SP,R4 
3113 BLO ERPORS 
3244 CUR * (SP) 
3415 MOVB (R3) 4 § SP) 
3116 400 RO, (SP) 
3117 CMP (SP) #377 
3118 BH! ERRSTR 
3119 A MoV SP,R2 
3128 400 HO RZ 
3121 : vSR PC, MAKESTR 
3122 MOV CSP) pRS 
3123 MOV 4(SP))R2 
3124 CLR RO 

3125 BISB (R2), KO 
3126 MOV RS, 4(SP) 
3127 aod ROARS 
3128 aoo a3,RS 
3129 MoV (SP) o,R2 
3130 1st (SP) 
3132 CLR RO 

3132 8188 (R2) RO 
3133 aod 43,R2 
3134 move (R206, CRS) o 
3135 pec RO 

3136 BGT 194 

3137 STPRO} 

3138 GQUOTBUMIMOV (SP), RO 
3139 CATCOM! HOV SP,R2 
3148 aod #3,R8 
3141 move R2,0(KO) 
3142 SWAB R2 

3143 MOVE R2,0(K2) 
3144 8R SOPRATR 
3145 »ENOC 

3146 

3147 011662 900167 177252 ERRPO2! yMP ERRPOL 
3148 

3149 ,»IFNOF SNOSTH 
3150 ERRSTRy Lor 

3152 1 IFNOF SLONGER 
3152 sASCIT NSTUN 
3153 ,ENOC 

3154 ,IFOF  SLONGER 
3155 sASCII f& STRING TOO LONG! 
3156 +ENOC 

3157 sBYTE 2 

3158 + EVEN 

3159 ,ENDC 

3168 


3162 EREXPS 
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3162 ERSTaR} 

3163 ERA003 

321604 911666 390904 ERROVRE 107 

3165 vTFNOF = SLONGER 

3266 911678 «953117 196 sASCIL Ff OVFS 

3167 »  ,ENOC 

3168 sIFOF = SLONGER 

3169 sASCIT SOVERFLOWF 

3178 vENOC 

3271 911673 208 :BYTE @ 

3172 sEVEN 

3173 

3274 911674 312746 see0006 SINFNI MOV #SIn,e¢SP) 

3475 911708 380432 8R FUNCT] 

3176 611702 212746 segeee COSFNi MOV #GOS,e(SP) 

3177) 011706 900427 OR FUNCT] 

3178 811718 312746 sgevee6 SQRFN} MOV #SQRT, e(SPy 

3179) 841724 «6012767 097734 geoonEG MOV #ERSOK, SERVED 

3288 811722 090421 8R FUNCT] 

3181 911724 312746 ap0908G ATNFNE MOV MATAN, 0(SP) 

3182 0811739 «300416 8R FUNCT} 

3183 811732 912746 saoseeG EXPFNS MOV #EXP,a(SP) 

3484 (011736 012767 011666 oeecoaG MoV #EREXP, SERVES 

3185 311744 «300418 8R FUNCT} 

3286 811746 «212746 osgge0eG LOGFNE OV #AL0G; (SP) 

3287 0114752 212767 007734 osose0G MOV #ERLOG, SERVEC 

3188 011769 80402 BR FUNCT] 

3189 

3498 elFNOF = SNOSTR 

3192 ERRMX9t UMP ERRMIX 

3192 ,ENOC 

3193 

3294 «811762 060167 177674 ERpOtt) UmP ERRPOZ 

3495 911766 0947867 176624 FUNCTI} JSR PC, EVAL 

3296 

3197 tIFNOF SNOSTH 

3198 Bcc FUNCTY 

3199 ump ERRARG 

S2oe FUNCT JY 

3202 ,ENOC 

3202 

3203 014772 912603 MOV (SP) O,RS 

53204 811774 oBio02 BNE 106 

3285 011776 «980367 901014 MP ERRUFN 

3286 «912802 122127 990237 Cura (RL) O98, RPAR 

3287 012006 901945 BNE ERRSXY 

3208 012018 384467 og%5z0 JSR R4, FPPSAV 

3289 912014 911634 WORD = PUSHF sPUSH Fac, FLOAT IF NECESSARY 
3210 012816 212926 ,WORD = FUNOK 1G0 90 FUNCTION 
3211 212028 213306 WORD =FPPRES 

3212 0142022 «980435 aR OPREN 

3213 312024 910621 FUNOK} MOV SPRL 1SAVE ADORESS OF PUSHED ARG 
3214 «912926 «310446 MOV R4,0(8P) WSAVE 24 
3215 912838 4912746 «012056 MOV BFUNRET,@(SP)  ;OUMMY RETURN ADORESS 
3216 012034 012746 090137 MOV #137,9(SP) DUMMY JUMP INSTR, 
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3217) 912949 «10146 MOV RL, e (SP) R OF ARGUMENT 
3218 312042 012746 090403 Mov #481, 3(5p) ropauy Ga aii 
3219 042046 3190509 HOV R5,RO WSAVE 95 VALUE 
3228 «012058 310605 MOV SP,RS JRETURN ADDRESS (TO DUMMY PRAG IN STK) 
3224 342052 304070 ag0052 usr RO, ORSSAVE(RA) 
3222 012856 262726 ao0e10 FUNRET} ADO #0,,SP JPOP DUMMY PROGRAM 
3223 912062 912604 MOV (SP)o,)R4 HRESTORE R4 
3224 912064 322626 cup (SP), (SP)e SREMOVE OLD FAC FROM STARK 
3225 012066 319965 aaoose MOV RO FACL(RD) SSTOPE RESULT IN Fac 
3226 «912872 3101605 so00s2 MOV RA pFAC2(RS) 
see 812076 «900134 uMP OCRA)® JANO RETURN 
3229 vIFNOF © S$NOSTR 
3230 ERRMX6) JMP ERRMIX 
3231 + ENOC 
3232 
gee 012108 904767 176512 INTFNE SR PC, EVAL 
3235 tIFNOF SNOSTR 
3236 8cs ERRMX6 
3237 +ENDC : 
3238 
3259 912194 «122127 998237 Cup (RL)%)*, RPAR 
3240 12118 eei1924 BNE ERRSx¥ 
3244 312112 094767 909666 JSR PC, INT 
32420 312116 200167 177150 OPRFNY UMP OPRATOR 
he 812122 ga0167 177522 ERRSX9) JMP ERRSXD 
3245 
3246 
3247 ' IF_A IS NOT OeFLOAY IY 
3248 312126 095716 UPARROW TST (SP) sf 11S UPPER Am 
3249 912138 orgie BNE VAL 
3258 312132 265766 aeoove Ts? 2¢SP) HIS LOWER A a 
3251 212136 6301485 8EQ uAS 
3252 012149 «395726 TS? (SP)e 
3253 912142 306467 g91166 vgr R4,FPPSAV 
3254 312146 seogoec »WORD SIR 
oc 812150 313326 :WORO = FPPRES 
3257 912152 312767 012536 ageapes Ait MOV #WERREXP, SERVEC 
3258 812168 905765 ageede TST FACA(R5) s1S UPPER g 2 a 
3259 312164 284936 BNE UAts 
3268 312166 095765 agegs2 Ts? FAC2(RS) st8 LOWER Bs a 
ae ai2i7e 901036 BNE UAS 
812174 312765 oeeen, opende2 MOV WL FAGZ(RD) SET RESULT 
3263 312202 922626 UAsi CHP Hat oh : cic 
5264 912204 990167 177962 JMP OPRATOR 
3265 18 IS INTEGER 
3266 912219 905716 VAS! tsT (SP) WS Aen 
3267 912212 191977 BNE UAL? 
3268 312214 005765 apaas2 TST FAC2(K5) HIS LOWER B > g 
3269 812228 129013 BPL yas INO, ERROR MESSAGE 
3278 912222 agagn4 UABE lor 


3271 vIFNOF = SLONGER 


BASICL 


3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3284 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3299 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3304 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3318 
3312 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3322 
3322 
3323 
3324 
3325 
3326 


BASICL 


3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
33414 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3368 
336% 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3378 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3384 


MACX11 
912224 


912227 


312250 
912234 
8122356 
812242 
312244 
812250 
312254 
312260 


012262 
312266 
812278 
912274 
812276 
812302 
812306 
012319 
912314 
612328 
12324 
812326 
8123358 
12332 
812354 
312340 
812342 
942346 
012350 
812352 
812356 
812362 


912364 
812366 
912370 
042374 
042376 


912482 
912406 
012419 


312412 
842416 
912429 
312422 


MACXL1 


022424 
012430 
012432 
012436 
812449 
812442 
812446 
812450 
912452 
912456 
812462 
812464 
812466 
012472 
312474 
812500 
012582 
012504 
912506 
312510 
912512 


42516 
312520 


912523 


912524 
812530 
812532 
812534 
812536 
812549 
612542 
912546 
012558 
812552 
812556 
312569 
312562 
812564 
912566 


012570 
612572 
312576 


912609 
812602 


Veer 
953404 


20027 
103372 
900167 
183367 
280167 
005965 
885965 
098758 


205765 
301936 
236500 
910822 
242700 
320827 
103426 
842702 
252702 
e2eg27 
304426 
101016 
e96202 
103434 
862720 
000767 
005765 
100804 
905402 
905265 
929263 
00g7%2 


085716 
381405 
004467 
814256 
942536 


885765 
108320 
894704 


316500 
818802 
392004 
3935429 


voet 


920827 
103037 
204467 
@14270 
914302 
242524 
014256 
2809206 
212542 
914256 
8808006 
314278 
212536 
314279 
942552 
914322 
314256 
8099286 
914279 
813306 
380467 


380004 
242536 


096265 
193902 
905724 
ag0134 
311404 
000134 
205765 
204773 
388770 
195765 
100367 
900764 
205716 
190754 
380434 


318246 
304467 
d8ag806 


212622 
912562 


22eMARa73 


060 


304000 
177424 
177416 


938040 
998042 


oaaase 
080048 


100377 
340208 


177608 
oan2ue 
042080 


990200 
090040 
ogae4e 
a90842 


280748 
012600 
990040 


290042 


22eMARe73 
890256 
898676 


012452 


912472 
814256 


912442 
012510 


176554 


122 


280044 


800844 


880850 


090536 


16125 


16185 


PAGE 44049 


sASCIT 
EN0C 
TFOF 
sASCLI 
1ENDC 


_ BYTE 


ERRDIVI 


UA9I 


EVEN 
CMP 
BHIS 
ume 
BHIS 
uMP 
CLR 
CLR 
BR 


yFIX BUF INTEGE 
sy? 


UATON 


UALSAL 


vaiges 


UALOC} 


T 


18 IS REAL 


UAL, 51 


Vata 


jst 
8EQ 
JSR 
+HORO 
+WORD 


Tst 
BPL 
BR 


3B INTEGER, A RE 


vat7t 


Uai7at 


vai781 


UAG703 


UALTFY 


UALIE 


ERREXP} 
UAads 


UAASRE 
VANJMPT 
UAUMPI 
UATSTOE 


uatsr2i 


UATSTAS 


uAags 


UA23t 


MOV 
MOV 
8GE 
NEG 


PAGE 44041 


cMP 
SHIS 
JSR 
WORD 
WORD 
WORD 
WORD 
;WORD 
;WORD 
)WORD 
+WORD 
+WORO 
+WORD 
+WORD 
WORD 
;WORD 
WORD 
+WORD 
+WORD 
+WORD 
JMP 


ror 

LTFNOF 
ASCII 
+ENOC 
, LFOF 


‘over 


SLONGER 
(OIVISION AY BF 


RO, #4u00 
VAS 
EXSTAK 
VAs 
ERROVK 
FACS(RS) 
FAC2(K5) 
uaa 


R ¢ 236 
FAC2(KS) 
YALa,> 
FACL(K5) RO 
RO,R2 
#190177,R0 
RO, 840200 
VALa,5 
#477600,R2 
#8200,K2 

RO, #42000 
vAtes 
vAya,5 

R2 


VALO,5 


8200, KO 


UALBA 
FACL(RS) 
VALOC 

RZ 

FACA(KS) 
R2,FACZ(RS) 
UAs 


(SP) 

vada 
R4,FPPSAV 
PUSH 
UASMP)UA2S 


FACL( HS) 
UAd 
UAB 


aL 
FAC2(K5), RO 
RO,R2 

VATA 

RO 


RO, #296 
yA2o 
R4,FPPSAV 
POP 

PUSHY 
UAASR,VAL7N 
PUSH 

SMLR 
UATSTO,UALIF 
PYSH, PUSH 
SMLR 

POP 
UAQMP,UAL79 
POP 
UATST2,VA19 
PYSHL 

PUSH 

SOVR 


rOlv BY @ 
sOVEPFLOW 
HSET RESULT a 


HEXTRACT EXPONENT 
HCHECK TOO SMALL 


yR2 1S MANTISSA 


HUF RIF CLEAREO,NO GOOD 
TUPOATE EXPONENT 


IS As aw 


41S UPPER 8> 2 
yYES 
INO, ERROR 


SAVE FOR SIGN TEST 


RA 1S gaStB) 1F TOO BIG, FLOAT 


sGO0 INTO POLISH MONE 

ICURRENT PROOUCT IS A 

HCURPENT ANSWER IS 4 (ON STK) 
sSHIFT By BRANCH IF BIT IS Q 
1GET CURRENT PRODUCT ONT OSTACK 
MULTIPLY INTO CURRENT ANSWER 
HTEST IF DONE, BRANCH IF SO 
sTWO COPIES OF CURRENT PRODUCT 
sSOUARE IT 

yANO PUT RESULT BACK 

sPOLISH JUMP TO 178 

sSTORE ANSWER INTO FAC 

sTEST SISN By IF + JUMP~ 

sPUSH 4 ONTO STACK 


JANS 3 1/ANS IF B NEG 


POP JPOP ANSWER TO FAC 


FPPRES 
OPRATOR 


SLONGER 
NPERN 


SLONGER 
1 ERRORS 


ROSAVECRS) 
UAJMP 
(Raye 
OCRa)e 
ORG, RY 
@(R4)% 
ROSAVE (RS) 
UAJMP 

YAN IMP 
R2SAVE(RS) 
UAJMP 
UANJMP 

@SP 

Yaar 
@(R4)e 


R2,0(SP) 
R4,FPPSAV 
SiR 


REVRSE 
UATSTA 


sANO GET OUT 


sSKIP OVER JUMP ADDRESS 
sPOLISH MODE JUMP 


sTEST SIGN OF B 
}POLISH JUMP IF 8 ¢ 


}PUSH INT B ON STACK 
sFLOAT 8 


sREVERSE TOP TWO ON STK 
sTEST TOP STK, BR TO ERR JF o 


te 


BASICL 


3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3408 
3402 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3418 
34aa 
3412 
3443 
3414 
3445 
3416 
3417 
3418 
3419 
3428 
3422 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3438 
3433 
3432 
3433 
3434 
3438 
3436 


BASICL 


3437 
3438 
3439 
3449 
3444 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
344g 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3464 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3474 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3484 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3499 
3491 


MACKI 


912604 
812686 
812619 
812612 
812624 
012616 
012622 
012624 
812626 
312638 
012632 
812634 
812636 
912649 
342642 
012644 
812652 
012656 
012664 
012678 


012674 
9127e8 
012702 
912706 
812718 
012714 
012716 
012720 
812722 
012724 
812726 


012732 
812734 
212736 
012740 
012742 
012744 


012746 
012752 


MACXL 


012754 
012756 
612760 
612762 
812764 
942770 
812772 
912776 


313008 
213004 
813906 
9130128 
813012 
913016 


313028 


Vea. 


312644 
014256 
8099206 
212656 
313306 
880167 
912620 
812604 
912602 
312623 
320146 
2140846 
240346 
910246 
2001354 
012765 
o80167 
212765 
200167 
200167 


000167 
122102 
122127 
281372 
866502 
220604 
108764 
011298 
801435 
910046 
304767 


012608 
122862 
100425 
20322 
152002 
961502 


@22227 
201404 


Vo2d 


211202 
320604 
183743 
811246 
316522 
311246 
316512 
2904209 


121027 
081997 
422021 
901745 
200167 
990004 


443125 


22eMARe73 46185 PAGE 44=42 


176458 


OseBeRG B88852 
177146 
GeeeneG B20052 
177134 
170224 


176758 
990255 
980B04 


175664 


477775 


sWORD 
«WORD 
WORD 
;WORO 
WORD 
JMP 
REVRSE! MOV 
MoV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JMP 
CALOGt MOV 
JMP 
CExPt MOV 
vMP 
ERRPO4) JMP 


rT FNOF 
ERRMX11 UMP 
1 ENOC 


ERRSXAL MP 
FNFNY = Hove 
cMPa 
BNE 
aod 
cMP 
BLO 


FNSWAPE MOV 


22eMARw73 46105 PAGE 44043 


380040 
oe0042 


200245 


174726 


116 


MOV 
Cup 
BLO 
MOV 
MoV 


FNSTR} MOV 


FNOLNNG MOVE 


sus 

FNNEWNLITST 
MOV 
INC 
BEO 
SWAB 
MQvB 
SWAB 
Move 
,ENOC 


FNrEp_t Cups 
BNE 
cMPB 
8Eo 

ERRAGL} UMP 

ERRUFNI LOT 
, TFNOF 
ASCII 
1 ENDC 


CALOG SCALL ALOG FUNCTION ON a, RESULT TO Fac 
PUSH sPUSH LoG{A) ONTO STACK 

SMLR HCALC BelLOG(a) 

CEXP ICAL EXP(BOL0G(A)), RESULT TO FAC 
FPPRES 

OPRATOR 

(SP) 6,RO SROUTINE TO REVERSE TOP 2 

(SP) o,Rt JFLTPT NUMBERS ON STACK 

(SP) o,R2 

(SP)o,R3 

R1,0(SP) 

RB, (SP) 

R3,e(SP) 

R2, (SP) 

ecRaye 

#ALOG, RISAVECRS) 

FYNOK 

BEXP,RISAVE(RS) 

FYUNOK 

ERRPOL 


SNOSTK 
ERRMIX 


ERRSXD 

CRE) OAR2 
CRY) Oe 8, L PAR 
ERRSXA 
POL(ROI,R2 
SP,R4 

ERRPOS 
(R2),RO #RB NOW CONTAINS THE DEF POINTER, 
ERRUFN 

RO, a(SP) 
PC,EVAL 


SNOSTK 
FNSTR 


(SP)4) RD JRESTORE THE DEF POINTER, 

(HO) +, R2 1GET THE VARIABLE FROM THE OEF, 
ERRAGL 

RZ 

(RO) Hy RZ 

(RS) )K2 


SNOSTK 
(R2),8,SVAR IF THE DEF VARIABLE IS STRING ANO 
ERRMXS }THE VALUE ISNT THEN ITS AN ERROR, 


(R2)%)#, SCALAR 
14 


CH2),R2 

SPiR4 

ERAPOS 

(R2),e(SP) SSTACK THE OLD VALUE AND REPLACE IT 
FACACNS)»(R2)% FWETH THE NEW VALUE 

(R2),9¢SP) 

FAC2(R5),(R2) 

FNREPL 


SNOSTK 

2¢SP),RO SRESTORE THE OEF POI*TER, 

(HO) O,R2 JGET THE VARIABLE FROM THE OFF, 
ERRAGI 

RZ 

CRB) oy R2 

CRS), Ke 

(R2)4¢8,SVAR HUF THE O€F VARIABLE TS NUMESTC AND 
ERRMXL sTHE VALUE ISNT THEN ITS AN ERROR, 
20R2), 804 DIF THE VAR ISNT A STRING SCALAR 


' 

(R2),K2 sTHE' Q THIS, 

(R2),R3 gR3 “OW CONTAINS THE OLD VALI'E, 
(SP)%)(R2) 10¢K?) NOW CONTAINS THE NEW VALUE, 
R3_ (SP) HOCSP) NOW CONTAINS THE OLD VALUE, 
R2,0(SP) JTOPCSTK) 1S A TEMP FOR VAR ADNRESS, 
(R2),R2 pR2 “OW CONTAINS THE NEW VALUES 

R2 

FNNEWNL, SBPANCH IF THE NEW VALUE IS “ULL, 

RS 

FNOLNN HBRASCH IF THE OLO VALUE 1S “ONNULL, 
ACSP), (R206 OLD VALUE IS NULL, NEW TS NAT, SOt 
(SP) 4) (R2) IMAKE AN ABS BACKPYR TO THE VAR, 
FNREPL, SCTHE NEW VALUE 1S NOW PROTEPTED) 
CRI) (RZ) & JOLO AND YEW ARE BOTH NOMNULL SOF 
(R3)» R2d HPUT OLD BACKPTR INTO THE NEW VALUE, 


(SP)e GET RIO OF THE TEMP, 


FNREPY, ’ (CHECK NULL STRING!) 

R2 HSET THE BACKPTR OF THE OLD VALUE 
R2, (R34 sTO 17S CURRENT STACK ADRESS, 

R2 


R2, (RS) 


CRO), 8 Comma 
FNNOCOM 
CROP CRIDS 
FNSWAP 
EKRARG 


SLONGER 
‘UFNE 


BASICL 


3492 
3493 
RID7) 
3495 
3496 
3497 
3498 
3499 
3500 
3504 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3909 
3518 
3514 
3512 
3513 
3514 
3515 
3516 
3517 
3318 
3519 
3520 
3524 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3349 
3541 
3542 
3343 
3544 
3545 
3546 


BASICL 


3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3359 
3560 
3561 
3562 
3563 
3504 
3565 
3566 
3507 
3568 
3569 
3979 


MACX12 


313823 


313024 
813030 
3133352 
913054 
313856 
213840 
313844 
013246 
813059 
013052 
313056 
313060 
013062 
313064 
213066 
348272 
9135274 
813376 
613109 
813192 
813106 
013119 


915212 
813116 
813129 
813422 
913126 
813138 
0435152 
13134 
913136 
813140 
813142 


MACX1 


013144 
913146 
013150 
813152 
813154 
843156 
813160 
913162 
913166 


Ve2i 


121927 
381379 
310046 
122921 
381365 
122927 
204362 
710146 
310001 
384767 
183492 
495903 
309432 
442603 
124127 
301300 
912684 
912608 
114046 
114966 
912602 
964582 


422227 
904403 
A1LL202 
012662 
012612 
00444 
022622 
320046 
911208 
164502 
295202 


veeL 


305220 
861404 
280302 
119228 
BBO3G2 
118220 
212620 
124027 
2013544 


22eMARe73 


380237 


208454 


175540 


@88201 


990003 


477775 


800882 


22-MARe73 


990255 


813178 200167 176076 


16105 = =PAGE 44044 


vTFOr 
VASCII 
+ENOC 
:BYTE B 
+EVEN 
FNNOCOMSCMPB 
BNE 
Moy 
CMPB 
BNE 
cMPe 
BNE 
MOV 
mov 
JSR 
cs 
CLR 
BR 
MOV 
CMP 
BNE 


FNRLUPI MOVE 


FNRSSCi MOV 


FNRSTRt TST 


16325 PAGE 44015 


FNRComt INC 
BEO 


SWAB 
MOVB 
SWAB 
MOVB 
FNRSNUL MOV 
FNCHK} CMP8 
BNE 


, LFNOF 
TST 
BEQ 
MOV 
cMP 
BNE 
UMP 
Jue 
1ENOC 


FNNUMERS UMP 
,E0T 


SLONGER 


"UNDEFINED FUNCTIONS 


(RB), #,RPAR 
ERRAGL 

RO, e(SP) 
(ROS, (RID 
ERRAGL 
(RB) +) 8,E 
ERRAGL 
Rhy et SP) 


1e4 

(SP) o,R3 
RL), 8, E04 
ERRSXA 

CSP yO, Ra 
(SP) +, Ro 
*(RB)pe(SP) 
*(ROVALCSP) 
(SP)o,R2 
(RS), R2 


SNOSTK 
(R2),#,SVAR 
FNRSTH 


(R2)4)#, SCALAR 
1o4 

(R2),K2 
CSP) ey 2(R2) 
(SP) 4, ¢R2) 
FNCHK 
(SP) 4%) (R2) 
RO, ~(SP) 
(R2),KO 
(RS) K2 

R2 


SNOSTR 
FNRCOM 
(R2)6 
2(R2), 891 
FNRSSG 
CR2),R2 
(SP), (R2) 
RO,e(SP) 
(R2),KO 


Re 
FNRSNYL 
R2 
RZ, (RO)> 
R2 


R2, (ROIS 
(SP)4,Ro 
9(RB)¢#,LPAR 
FNRLUP 


SNOSTR 
RS 


FNNUMER 
A3,0( SP) 
R3,8477777 
16 
SOPRATR 
STPRO 


OPRATOR 


sCHECK NULL STRING 


BASICL 


3574 
3572 
3573 
3974 
3575 
3576 
3577 
3578 
3579 
3580 
3584 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3599 
3994 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 


BASICL 


3oo8 
3601 
3602 
3683 
3604 
3605 
3606 
3607 
36068 
36e9 
3618 
3612 
3612 
3613 
3614 
3645 
3616 
3617 
3618 


MACXA1 


@13174 
813176 
013280 
813282 
815206 
813219 
813214 
813228 
0135222 
913224 
013226 
8132359 
013254 
813236 
815248 
913244 
813246 
01325¢ 
813252 


MACX14 


013254 
813256 
013260 
813262 
013264 
913266 
813270 
013274 
813276 
813308 
BLSIA2 
343304 


veas 


#12682 
285716 
@84413 
203765 
981821 
916546 
304467 
2g0e086 
214279 
13306 
190418 
205765 
081406 
305726 
004467 
8809096 
913306 
aooes4 
300112 


ve2t 


112102 
100447 
880302 
152122 
261502 
912200 
620027 
193402 
800264 
90227 
aege4y 
488207 


22eMARe7S 


988048 


88a042 
6oo114 


090048 


290878 


22eMAR@7S 


177775 
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ae ee ee eee 


TxuPy) MOV 


FIXTST} TST 


WORD 
rixcuzy CL2 
FIXRETY UMP 


16185 PAGE 46 


SOURCE FILE #6 


cane cceen cece cece ecweecg gece sen esoccsosegessssoe= 


SUBROUTINE ‘FIXUP! CALLED BY VSR PC 


MATCHES TYPES OF O(SP),2(SP) ANO FACA(R5),FACQCRS) 
RO,RL UNUSED 
R2 DESTROYED 
A3,R4 UNUSED 
R5 MUST POINT TO USER AREA 
SP GOES NO DEEPER AFTER JSR 
(SP)4)R2 
(SP) 
FIXTST 
FACL(RS) 
FUXRET COND CODESSNONZERO MEANS FLOATING, 
FAC2(RS), (SP) besee 
R4, FPPSAV 
sjr 
POP 
FPPRES 
FUXCLé 
FACLCRS) 
FUXRET COND CODESs@ MEANS INTEGER, 
(SP) jeeee 
R4,FPPSAV 


sCONT CODESSNONZERO MEANS FLOATING, 


J ececcccccqecesecenccowcensecwsccwccensecerecssensees 


LINE? Move 
aM! 

SWAB 

B1se 

aod 

MOV 

cMP 

BLO 

FLet SEC 
RTS 

FLX Cyc 
RTS 


SUBROUTINE FLINE! CALLED BY YSR PC 


FINOS THE AGORESS OF THE LINE NO 
REFERENCED BY (R1) IY R2, 
IF THE SYMAOL TABLE REFERENCE IS NOT A LINE “0, 
SETS CARQY, ATHERWISE, THE CARRY IS CLEAR, 

CRE) PRE 

FLE 

R2 

CRL)O)R2 

CHS) M2 

(R2)4,RB 

RB, #, SCALAR 

FUX 


eC 
Pg 


BASICL 


3619 


3628 
3622 
3622 
3623 
3624 
3625 
3626 
3627 
3626 
3629 
3638 
3634 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3648 
3641 


BASICL 


3642 
3043 
3644 
3645 
3046 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3637 
3658 
3659 
3668 
366% 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
36708 
3672 
3672 
3673 
3674 
3675 
3676 


MACXLL 


913306 
013312 
913316 
318322 
213326 
813332 


313334 
813349 
913344 
813350 
813354 
013369 


MACXL1L 


013362 
313366 
318370 
313374 
813400 
013482 
313406 
013419 
013414 
913416 
813420 
813422 
313426 
313430 
8134354 
313436 
213449 
613442 
0135444 
13446 


V@2d 


616500 
016502 
016502 
216503 
2716546 
20204 


240905 
810165 
@40265 
210365 
242665 
0001354 


VO22 


942703 
889402 
822783 
912722 
911246 
412712 
360103 
322361 
281412 
113320 
305243 
021364 
181422 
916133 
412622 
400244 
6BQ207 
912612 
280261 
OBO227 


22eMARW73 


080044 
885846 
880850 
000052 
000054 


802044 
000046 
800058 
882052 
200854 


22eMARe7S 


200004 


TD 
477776 


000340 
og0e108 


oe00e2 
002008 
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J powegenne eee sere ger ccenpcnnpocensenccccnc cen gceccesescce 


}) ROUTINE ‘FPPRES? CALLED IN POLISH MODE 
, RESTORES RA THRU R4 SAVED BY FPPSAV 
! AND RETURNS IN NORMAL EXEC MODE 
FPPRES| MOV ROSAVE(RS), RO 

MOV RASAVE(RS) RL 

MOV R2SAVE(RS) ,R2 

MOV RISAVE(RS) ,R3 

MOV R4SAVECRS) ,=(SP) 

RTS R4 
lesen sqece reser e ce eew sewn acme ccceseewc er eceeeserecewceccocece 
} ROUTINE ‘Fpepsave CALLED BY JSR RG 
) SAVES RQ THRU R4, ANO RETURNS IN 
] POLISH MODE 
FPPSAV} MOV RB, ROSAVE(RS) 

MOV RA RISAVE (RS) 

MOV R2,R2SAVE(RS) 

MOV RS, RISAVE(RS) 

MOV (SP); R4SAVE(RS) 

JMP OCRA)e SENTER POLISW MODE 
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GETABYT (GEY2BYT) © GET BYTE QUT OF RING BUFFER USING 
GEY POINTER 2 (R2), 8 cay 


CALLE #CBUFF, HOR, BASE), RL 
#CBASE OFFSET OF GET PYR,J,H% 
JSR PC,GETBYT 


USES RORLRZKS 
RETURN CHAR, IN RO, 


"Cl BIY IS} CLR IF CHAR, OBTAINED 
SET IF BUFF, WAS EMPTY (NO CHAR,) 


GEPLBYTIMOV MBGETI,RS 
BR GETBYT 
GEP2BYTIMOV #BGET2,R3 
GETBYT) MOV #PS,R2 rSTaTUS 
MOV CR2),9¢SP) 
MOV #PRI,(R2) JHIGHEST PRIORITY 
400 RL, RS 
CMP CR3) ,BPUTCRL) VANYTHING IN BUFF? 
BEQ BUFEMP 
MOVE @(R3)%,RO IGET BYTE 
INC =(R3) yPT, TO NEXT BYTE 
CMP «5 (R39), BEND(R4) WRAP AROUND? 
BLOS NOWRP 
MOV BSTRT(RLIG(R3) PT, TO NEXT BYTE TO GET 
NOWRPS OV (SP)#)(R2) HSTATUS BACK 
cue tSIG"AL SUCCESS 
RTS PC 
BUFEMP MOV (SP) 44 (RQ) ISTATUS BACK 
sec WSHOK FAILURE 
RTS PC 


BASICL 


3677 
36768 
3079 
3688 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3698 
3092 
3092 
3O93 
3094 
3695 
3696 
3697 
3698 
3699 
3788 
3703 
3782 
3703 
3704 
3795 
37286 
3707 
37068 
3729 
3718 
3712 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3728 
3724 
3722 
3723 


BASICL 


3724 
3725 
3726 
3727 
3728 
3729 
3738 
3734 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3749 
3742 
3742 
3743 
3744 
3743 
3746 
3747 
3748 
3749 
3758 
3752 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3764 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3778 
3772 
3772 
3773 
3774 
3775 
3776 
3777 
3778 


MACXLL 


213450 
813452 
013456 
013460 
013464 
013466 
213478 
813472 
813476 
013508 
813504 
013506 
013518 
913512 
013514 
813520 
013522 
013524 
013526 
8135352 
815536 
313544 


813546 
813552 
813560 
013562 
013579 
813572 
813576 


013600 
913602 


MACKXLL 


313604 
313618 
313614 
813020 
813624 
8136350 
813632 


8136354 


813648 
13644 
313650 
315652 
313668 
213662 
813664 
013678 
813672 
213676 
813708 


313704 
913710 
313714 
@13716 
213724 
313726 
213732 
313734 
213736 


813742 


VO2d 


010246 
304767 
103405 
016102 
303011 
942602 
280207 
016108 
301423 
305962 
690261 
800767 
819846 
019208 
004767 
193801 
200020 
842608 
95961 
116502 
812772 
200750 


116502 
332772 
001005 
812772 
ETT TE 
204767 
200725 


177568 
177558 


ye2s 


610265 
12722 
310265 
910265 
121127 
301043 
305204 
084767 


304767 
305765 
284034 
916565 
120438 
122102 
120227 
704423 
120227 
901017 
204767 


204767 
185765 
081912 
316565 
180406 
122127 
301004 
200227 
300167 


OBN167 


22eMAR@73 


177704 


90R12 


990012 
eognr2 


O9SB64 


opoei2 
890077 
980201 


800077 
394008 
890191 
098514 


22eMARO7S 


990022 
177777 
oeaee4 
090026 
880255 


174736 


088140 
080040 


080042 


000257 
000245 
174712 


eeon74 
300848 


agense 
800257 


475786 


175206 


915608 


815608 
913608 


808024 


808926 
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goeseesaces 


GETCHAR © RETU 
CALLE #CBUFF, 
JSR 


USES R3p (RO, 


RETURNS CHAR, 
IF PAPER TAPE 


GETCHARIMOV 
GETCHAI ySR 
acs 
MOV 
act 
GETX! MOV 
RTS 
NOCHAR} MOV 
BEQ 
CLR 
SEC 
BR 
XCWARS = MOV 
MOV 
JSR 
Bcc 
HALT 
MoV 
CLR 
MOVE 
MOV 


BR 
‘ RESENABL 
REENABY MOVE 

e1T 

BNE 

MOV 
GOwAIT? WAIT 

JSR 

BR 


s TABLE OF 
Tyas! =, WORD 
WORD 


16105 PAGE 38 


deeeecesseecese 


1 IGETVARE SUBRO 
' 
' 
' 
4 
’ 
U 
’ 


’ 
GETVARI Mov 
MoV 


MOV 
MOV 
CMPB 
BNE 
TNC 
JSR 


+ UFNOF 
8cs 
,ENDC 


vSR 
Ts? 
BNE 
MOV 
aml 
MOVE 
CMPB 


NOSUBS} RTS 
ERRSX3t JMP 


ERRMX3) UMP 


ERRSSI1 UMP 


RN A CHAR, IN RO OR WAIT UNTIL You CAN 


WOR, BASEI,AL 
PC, GETCHAR 


R1L,R2) 


IN RO 
READER EQ? FOUND, EXIT TO (MEAD! 


Raye Sp) 

Pg, GeTiayT 

NOCHAR HNOTHING THERE YET 
AFSPEC(R4),R2 sCWECK IF READER STOPPED 
XCHAR $3 09 + 1S OK, BRANCH IF CHAO 
(SP) 4, R2 

PG 

BFSPEG(R1),A®  JCHETK EOF OR EXTRA CHAR 
REENAD 


BFSPEC(RY) 

GETX 

RO, e (SP) }PUSH OLD CHAR 

R2,RO sPOSITION NEXT 

PC, PUTBYT 

1o4 HMAKE SURE IT GOT IN! 
(SP) 4) RO 4GET BACK OLO CHAR 
BFSPECCRY) 

TDEV(RS) , RO 

#201, @1TAG(R2) sSRE@ENABLE INPUT DEVICE 
GETX 7 (CARRY {S CLEAR) 

£ PROM A OEAD START 

IDEV(R5) ,R2 

#004000, *1 TAB(R2) ICHECK BUSY BIT 
GCWALT 

#101, EO, TAB(R2) 

: PWALT FOR AN INTERRUPT 
PC, IOWAIT SWASTE TIME 

GETCHY 

spapul DEVICE STATUS REGISTERS 

Ks 

PRS 


TINE 
THIS SUBROUTINE PEADS A VARIABLE NAME OR 
AN ARRAY ELEMENT, ANO ADDRESSES THAT 
VARIABLE JIN CORE, SO THAT A SUBSEQUENT ‘STOVAR? 
CALL WILL STORE THF FAC IN THE VARTABLE, 
DESTROYS FaCd AND FAC2, 
CALLEO BY JSR PC,GETVAR 
Ri POINTS fO THE CODE NAMING THE VARTABLE 


RZ, VANSAV(RS) 
#94 ,R2 

RZ, SSISAV(RS) 
R2,SS2SAV(R5) 
(RO) p% ,LPAR 
NOSUBS 

RL 

PC,EVAL 


SNOSTR 
ERRMXS 


pC, INT 
FACL(RS) 
ERRSS2 
FAC2(N5),SSLSAV(P 5) 
ERRSS1 
(RL) oy RZ 
R2,#,KPAR 
NOSUBS 
R2,#, COMMA 
ERRSXS 

PC, EVAL 


SNOSTR 
ERRNXS 


PCG, Int 

FACACKS) 

ERRSSL 
FAC2(R5),SS2SAV(95) 
ERRSS2 
(RL) O gH RPAR 
ERRSXS 

PC 

ERRSXD 


SNOSTK 
ERRMIX 


ERRSS2 


BASICL 


3779 
3780 
3782 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3799 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3808 
3803 
jane 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
38128 
3812 
3012 
3813 
3814 


BASICL 


3a15 
3816 
3817 
3818 
3019 
3628 
382% 
3622 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3832 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3349 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3648 
3849 
3850 
3852 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3868 
3862 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 


MACX14 


313746 
443758 
813752 
813754 
813756 
213768 
813762 


013764 
043779 
813774 
813776 
o14002 


MACX12 


314004 
8144016 
014912 
14816 
014020 
914924 
814050 
14932 
914036 
814040 
314842 
314046 
314050 
814952 
014054 
314068 
314064 
214066 
314070 
314872 
314074 
814076 
014190 
814104 
814106 
14112 
914114 
814116 
014128 
G14122 
914124 
914126 
214132 
814156 


314140 
014144 
214246 
914159 
914152 
314156 
314168 
314164 
314170 
314474 
314176 
314299 
814282 
314276 
314210 
314212 


Ve@22 


812203 
205722 
240322 
205722 
019322 
985822 
200207 


2165090 
22728 
019015 
849065 
200207 


va2s 


216500 
201452 
804567 
310804 
042798 
820027 
103473 
220027 
181937 
995902 
162720 
283034 
BOO3SL 
195904 
156594 
052704 
2g0244 
2O6004 
295720 
092905 
206204 
905522 
262700 
082773 
805765 
190905 
095702 
904402 
085221 
192447 
985404 
210165 
985965 
402207 


929027 
202005 
380264 
296122 
362738 
280778 
216529 
340265 
205765 
120360 
836200 
981756 
294467 
314256 
14322 
2900006 


22eMARe73 «16305 = PAGE 54 
ee ee ee Se aaa 


y 
) INITBF © INIT, BUFFER HORS, 
J 


5 CALLE Mov *#CHOR, ADDR, JaR2 
vSR PCLINITOF 
USES R2,R3 


’ 
' 
’ 
U 
: LEAVES R3 POINTING To WARD AFTER LAST IN BUFF, HOR, 
if 


NITBFI Mov CR2)e;R3 HBUFF, START ADOR, 
TST (R2)e PT, TO BGETL 
MOV RS, (R24 
Ts? (R2}6 sP7, TO BPUT 
MOV RS, (R206 
CLR (R2)o 1OFS°EC 
RTS PC 


Rite ee ee a ae ee 


j 
J INI ysCe © sCrATGH USER AREA 
; 3 


5 CALLI JSR PG INL TSCR 
) 
i) 6YSES RO 
f 
800016 ant yecnr tay CODEC KS) Ra 
3ge225 MOV #, EOF, (RO) + 
Mov RO,(RS) 
oo0o14 MOV RO, LOFREE(RS) 
RTS PC 


22eMARe73 16105 8 =PAGE 52 


Jecece Seem emewwce cece ccw ccc seceseeccces 


}) SUBROUTINE f INTE CALLED BY JSR PC 
' COMPUTES INTCFAC), CONVERTING THF RESULT 
1 TO A LeWORD INTEGER, IF POSSIBLE 
og904e. INTE MOV FACLCRS) RO 1GET HIGH ORDER WORD IN 96 
BE INTRTS PALREADY AN INTEGER 
003044 JSR RO, SAVREG sSAVF ®PEGISTERS 
MOV RO,RL 
108177 - OTe #200177,RO HEXTRACT EXPONENT 
e4o2ee CMP RO, #49200 sCHECK ABS VALUE < 4 
BLO INT? 
846900 CMP RO, #40009 JCMECK INTEGER BY TRUNCATION 
BHI INTRTS sYES, RETURN 
CLR R2 
843008 sua #43600,R0 ICHECK MORE THAN 15 AITS INTEGER 
BGT INTS HYES, PRODUCE FLT INT ANSWER 
Swag RY 
CLRB RL 
eooues B1se FAC2+1(R5),R1 = RL 1S 16 BITS OF MANTISSA 
129000 BIS #100000,R1 }SET HIQOEN BIT 
cLc 
ROR RY GET 15 BITS OF ABSOLUTE VALUE 
TsT RB sTEST ALREADY INTEGER 
8GE INTAA rYES 
INfit ASR Ry ISHIFT MANTISSA 4 RIGHT 
AoC R2 yA0O CARRY BIT TO R2 
egezen aod #200,R0 PINCREMENT EXPONENT 
ALT INTS HLOC® UNTIL DONE 
090040 INTiay ST FACL(RS) sORIGINAL NUMBER NEG 
BPl, INT2 INO 
TST R2 HANY BITS ZEROED? 
BEQ INTA8 
INC RL HADJUST FOR NEGATIVE 
avs INT9 POVESFLOW 
INTIBS NEG RL 
290042 INT2t 9 MOV RL, FAG2(RD) 
oeoa4se - INT2A} CLR FACA(RS) 
INTRTSE RTS PC 
ae2200 InfS! = CMe RO, #2200 iCHECK DONE 
BGE INTO VYES 
sec SET CARRY BIT 
ROL R2 HCREATE PATTERN OF BITS TO CLEAR 
2380200 aod 4280,K0 
BR INTS 
0B0042 INT64 MOV FAC2(R5), KO HSAVE CLO FAC2 IN CASE NEG ARG 
090042 B1C R2,FAG2(R5) sCLEAR BITS 
008048 TST FACACKS) SCHECK NEG ARG 
BPL, INTRTS HNO, DONE 
ByT R2,RO NCHECK EXACT INTEGER ALREADY 
BEO INTRTS HYVES, RETURN 
8900006 JSR R4,SPOLSH JNO, MUST SUBTRACT 4 
sWORO = PUSH JPUSH FAC 
,WORD = PUSHY JPUSH FLOATING 1 


, WORD SSBR sSUBTRACT 


BASICL 


3879 
3872 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3081 
3082 
3803 
3084 
3885 
3886 
3087 
3888 
3889 
3098 
3892 
3892 
3893 
3a94 
3095 
3896 
3097 
3898 
3899 
3908 
3904 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 


BASICL 


$912 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3928 
3924 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3936 
3939 
3940 
3942 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3958 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3968 
3961 
3962 
3963 
3964 
3965 


MACKXIL 


014214 
914216 
14226 
824222 
14224 
0144239 
814232 
914249 
814242 
814259 
014254 


914256 
814262 
914266 
214278 
814274 
914309 
014302 
014304 
614318 


024312 
314316 
014322 
014324 
814330 
014354 
814336 
814342 


MACX14 


314344 
014350 
844354 
014360 
914362 
814364 
014366 
814370 
914374 
314409 
214402 
314404 
2314410 
014412 
314414 
014416 
814422 
014424 
914426 
614438 
814432 
14434 
014449 
014442 
314446 


314459 


314453 
014455 


314456 


314460 


814462 


Veer 


9142790 
214136 
295791 
190493 
205965 
300746 
012765 
8897354 
842765 
805965 
300730 


816546 
816546 
200134 
212665 
312665 
080154 
295946 
312746 
880134 


985265 
195765 
091402 


980467 


988737 
781402 
900137 
788207 


VoaL 


904567 
116529 
916001 
205720 
abiode 
060504 
011292 
416502 
220265 
201401 
OB53A2 
004767 
103021 
200227 
113012 
204367 
900752 
200207 
290762 
800765 
899202 
020265 
103761 
194167 

o15 


as2is4 


e415 
088 


398744 


3p0ir2 
221242 
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080042 
477777 
143600 
890942 
098042 
900948 
030040 
090042 


049208 


090078 
890106 


164546 
990058 


80005e 


Int71 TST 


oeog42 NTS! MOV 
899849 INT9S MOV 
PUSH! Mov 
POPs MoV 


PUSHii CLR 


J qecwncccnrecere 


Pop 
INTRTS 
ay 


INTs 
FAC2(RS) 
INT2A 


SPQP ANSWER TO Fac 
JANO RETURN CouT OF POLISH MnDE) 
PABSCARG) € 2 


VIF + THEN ANS IS 4 


#177777, FACQ(RS) JIF © THEN ANS [S of 


INT2A 


#443608,FACL(R5) 


FACZ(KS) 
INTRTS 


FAC2(K5) 9 9¢SP) 
FACLCHS),9(¢SP) 
O(R4)e 
CSP)*),FACL ORS) 
(SP)*,FAC2(R5) 
Ol Raye 

°(SP) 
#40208,-(SP) 
O(R4)% 


Ce errr 


j 
! ToWALT © WASTE TIME TILL NEX? INTERRUPT 


) CALLE JSR 

, 

TowAlT# INC 
TSTB 
8£Q 
JMP 

WrRETE TST 
Bea 


JMP 
RTS 
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092512 
809877 
014468 


090028 
900020 


177048 


1730902 


909016 


804020 
gi2 


114 


o12 


PEL TOWALT 


RNOCT (RS) 
CNCFLG(RS) 
WIRET 
READY 
easg 

1*6 

0052 

PC 


CHECK WAIT OOP ADDR 
SSPECIAL WAIT ROUTINE 


Jee ncwccwc gece cece nce cene sewn s ewe cereceneccececnecncccsoecece 


JSR 


ASCII 157, 


LINGETH JSR 
LINAL = MOVE 
MOV 
TST 
BNE 
ado 
MOV 
LINEIND “OV 
LINRUBY CMP 
BEQ 
oEec 
OOCHAR: JSR 
ace 
RTS 
GOTONE MOVE 
JSR 
BR 


' 
‘ 
’ 
U 
U 
4 
' 
4 
| 
Hy 
' 
U 


TABS! 


CALLI USER AREA BASE INT A5 


PC LINGET 


PRESERVES ALL REGISTERS 


R35, SAVREG 
IDEV(RS) RO 
TABS(RD) RY 
RO 

LINEIN 
R5,RL 

CRAY RL 
LINE (KS) ,R2 
R2,LINE(RS) 
DOCHAK 

Re 

PC, GETCHAR 
GOTONE 

PG 

RB, (RE) 
R3,CHKCHR 
GINA 

PC 

LINRUB 
DOCHAK 

RZ 
R2,COVE(RD) 
DOCHAK 

RL, MSGERR 
CRLF 
SLONGER 
UTES 


SLONGER 

*L INE TOO LONG! 
CRaLF 

LINEIN 


KBHWO 


+ 
LIFNOF SNOPTP 


> 
yENOC 


PRAFNO 


5 
LINGET e E€DIT A LINE INT LINE BUFFER USING GETCHAR 


RECOGNIZES fe! ANO <RUB OUT> FoR A9Y7 OUT AND <ALT MQDED 
AND feUl FOR LINE DELETE) <C®> AS LINE TERMINATOR, 
THROWS AWAY ALL OTHERS BELOW ASCII 4@ AND ABOVE 


HSAVF QEGS, 
sCURR, INPUT DEV, CODE 
110 SELECT DEV, 


SUSE? PASE 
SHAVE USER BUFF, HOR, 


yOCN/T RUB OUT TOO MUCH 


pOON'T COME BACK fTILL YOU GOT ONE 


JINOICATE INCOMPLETE LINE (CARRY SET) 
}PUT HER IN 

JRETURN EXEC, ONE OF NEXT FIVE LOCS, 
stF LINE DELETE 

SONNE (<CRD>) (CARRY CLEAR) 


IMEANINGLESS CHARS, 
sGOOM CHAR, 
sCHECK LINE SPACE OVERFLOW 


BASICL 
3966 


BASICL 


3967 
39668 
3969 
3978 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3989 
3984 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
399B 
3994 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4982 
4003 


MACX{1 


MACKXA4 


314464 
814466 
914472 
814476 
914502 
344504 
814510 
914512 
o14514 
614516 
814522 
014524 
014539 
914532 
814536 
0145490 
814542 
014544 
014559 
314554 
214569 
014564 
014566 
914570 
314574 
014576 
314602 
914604 
014612 
014616 


VO2i 


Ve2s 


205900 
095ge5 
385065 
124327 
701404 
121327 
881982 
205108 
395283 
122327 
301416 
124327 
204404 
122327 
084426 
290207 
385203 
112365 
112365 
112365 
112365 
#05708 
004411 
905765 
384003 
205465 
080403 
262765 
9627146 
390207 


22aMARa73 


22eMARe73 


280040 
290042 
990252 


agn23e 


690375 
090374 
090576 


280044 
280040 
890043 
288042 


990040 


ooeg4e 


190008 
Oonb2 


808849 


16105 PAGE 5304 


16105 PAGE 54 


oe a es 


mee wee 


ITEVALICLR 
CLR 
CLR 
CMPB 
BEO 
CMPB 
BNE 
COM 
LEVPLUSSING 
LEVLIT: CMPB 
BEQ 
CMPB 
BEO 
CMPB 
BEQ 
RTS 
GLEVFLTS INC 
MOVB 
MOVB 
LEV2LTI MOVB 
LEVaLTi MOVE 
TST 
BEQ 
TS? 
BNE 
NEG 
BR 
GEVFNEGSA00 
LEVPOSt Add 
RTS 


"LITEVALS SUBROUTINE 


CALLED BY JSP PC,LITEVAL 
R42 POINTS TO THE Cor 

THES SUBROUTINE 1S CALLED TO EVALUATE A 
LITERAL IN THE CADE, 

FACA(KS) 

FAC2 (NS) 

(R3),8, PLUS 

LEVPLUS 

(R3) 8, MINUS 

LEVLIT 

RO 

RS 

CR3)e pM IL ITS 

LEVALT 

PCRS) #,FUIT 

GEVFLT 

CRI) op #,ILIT2 


(R3)% pF ACL 41 (R5) 
(RIS PFACIERS) 
(R3) op FACZ41(R5) 
CASLSAFACEIRS) 


QEVPOS 

FACL(NS) 

LEVFNEG 

FAC2(KS) 

LEVPOS 
#190080,FAC1(R5) 
#2, (SP) 

PC. 


See 


BASICL 


4004 
4005 
4026 
4007 
4ee08 
4009 
4010 
4011 
4012 
4015 
4014 
4a15 
4816 
4017 
4018 
4049 
4020 
4024 
4022 
4823 
4024 
4025 
4026 
4027 
4026 
4029 
40398 
4031 
4032 
4833 
4034 
4035 
4036 
4037 
4038 
4039 
4048 
4041 
4042 
4043 
ape4 
4045 
4046 
4047 
4948 
4n49 
4058 
4051 
4252 
4053 
4954 
4055 
4056 
4057 
4058 


BASICL 


4059 
4060 
4961 
4062 
4263 
4064 
4065 
4206 
4067 
4268 
4069 
4072 
4e714 
4072 
4073 
4074 
4075 
4076 
4077 


MACXL1 


014629 
314624 
914626 
814632 
414634 
314636 
814648 


914642 
014646 
814659 
014652 
014654 
014660 
814662 
814664 
314666 
614672 
014674 
814676 
014790 
014704 
314706 
314712 
314714 
014728 
014722 
314724 
314738 
0146732 
014736 
014749 
014744 
014746 
914750 
014752 
014754 
314756 
014768 


MACX12 


914762 
914764 
314778 
014772 
314774 


314776 


215001 


ve2i 


321227 
201403 
385762 
180015 
310246 
310446 
18346 


12703 
041604 
100403 
210304 
304767 
812603 
912604 
022682 
920062 
181040 
985703 
1280427 
205762 
100433 
820362 
101030 
816246 
295226 
018346 
912746 
286323 
086366 
1030802 
066603 
903316 
083378 
922626 
805726 
569300 
095208 
886326 


vo2s 


286300 
846202 
760802 
900227 
280024 


947523 


22emMARe7S 


177775 
780004 


090022 


172676 


908004 


980906 


288806 
BQ0004 


000028 
99e002 
999004 


22eMARe73 


390802 


102 


16185 PAGE 55 


SUBROUTINE 


' 
' 
U 
‘ 
5 
' 
’ 
‘ 
‘ 
U 
\ 


OCGETs CMP 
EQ 
rst 
oP, 

LOCALOCIMOV 

MOV 


MOV 


LOCSSit CMP 


MOV 
LOCLOOPTASL 
ASL 


Bcc 
00 
DEC 
BGT 
chp 
TsY 
400 
LOcNo2t INC 
ASL 


wT FNOF 


16165 = =PAGE 55-4 


cMP 
BEO 
sENOC 


ASL 
Moy 
400 
RTS 

ERRSS3i JOT 
vTFNOF 
ASCII 
ENOC 
vlFOF 
sASCIE 
+ENOC 
18YTE B 
1 EVEN 
,€0T 


eae enccrcnesawesecesecesccesccercses 


Loccer! 


CALLED BY JSP PC 


GE 


SP 


LOC OF ELFMENT IN ARRAY (CHECKS SUBSCRIPTS) 
MUST CONTAIN SS2 GETS OESTROVED 

UNUSED 

MUST POINT TO VAR GETS SET TO RESULT 
MUST CONTAIN SS2 GETS DESTROYED 

UNUSED 

MUST POINT TO USER AREA 

GOES 7? NEEPER AFTER JSR 


(R2),8,SCALAP 


LocaLoc 
4(R2) 
Locss2 
R2,0(SP) 
R4,20SP) 
R3,0(SP) 


SNOSTR 
PC,ONPAC 


OL2,R5 
CSP) )K4 
104 
R3,R4 
PC, ALLOC 
(SP) 4, RS 
(SP) oyR4 
(SP) yR2 
RO, 4¢K2) 
ERRSSS 


ERRSSS 
RS, 6(R2) 
ERRSSS 


44R2),2(SP) 
(SP) 


R3,0(SP) 
#20,9(SP 
R 


3 

2¢SP) 
1*6 
408P) RS 


(SP) o)(SP)e 


(SP)* 
RS,RO 
RO 
RB 


SNOSTR 


(R2),8,SVAR 


144 


K 


’ 


2¢R29,R2 


RB, RZ 
PC 


SLONGER 
\508\ 


SLONGER 


MYULTIPLY SS2 BY SS1imAx 
RESULT IN R3 


eesesesees 
Sesesesesces 


beee 


*SUBSCRIPT OUT OF ROUNDS: 


BASICL MACX11 ve2es 22eMARe73 16105 PAGE 56 


4976 } SQURCE FILE #7 
4979 l eawcwcrowqecccwwe soc ewcrgccnnswccccoccnsccceosesee 
4088 J SUBROUTINE ‘LSTPROG! CALLED BY JsP PC 
4081 ’ LISTS THE USER PROGRAM THROUGH /®UTCHAR/ 
4082 H] 83 © R4 OESTROYED 
4083 ' RS MUST POINT TO USER AREA 
4084 } SP GOES 7? NEEPER AFTER JSR 
4085 015002 216501 200816 LSTPROGIMOV CODE( HS), RE 
4086 915006 112172 USTLOOP I MOVA (R44, R2 
4287 015018 302142 8GE LSTPTR 
4088 915012 120227 opo201 cMPB R2,8,60L 
4089 015016 a91444 Bea LSTEOL 
4090 915029 129227 oge225 core R2,8,€0F 
4091 915924 381903 ONE 104 
4092 815826 390207 RTS PC 
4093 815030 129227 2980374 cMPB Re,8,FLIT 
4094 315034 193964 BHIS LSTSPEC 
4095 915936 342702 177400 BIC #477400 ,R2 
4096 315042 2139703 MOV PG,RS 
4097 315044 962703 163348 LsfPpcy apo BKEYWOS@LSPPCARS 
4098 915059 019304 LSTSRCHIMOV R3,R4 yR4 1S START OF KEYWORD 
4099 915052 1123008 MOVE (R3) 4, RO 
4408 315054 190376 BPL 192 yLOOP TILL GET ENO KEYWORD 
4201 815056 120002 CMP8 RO,R2 COMPARE VALUES 
4102 915969 094373 BNE LSYSRCH 
4103 315062 112400 LSTKWOI MOVB (R44) RD 
4404 015964 180403 aM! LSTCHK 
4405 015066 904767 324604 usr PC, PUTCHAR 
4196 913072 989773 aR us twa 
4407 015974 124127 ag0211 LSTCHK) CPB a (RL) 94, NEXT 
4108 015198 301410 BE LSTNEXT 
4109 915102 122127 seee2o2 cMPa (Roo) 8, FN 
4410 015186 984337 BNE LSTLOOP 
4112 915419 1122190 ' LSTFNI MOVE (RL) oy) RO 
4412 015112 262708 agozeo apo BAe AeZ, RO 
4113 915116 aB6ae9 ROR Ra 
4414 915129 990427 8R LSTCHAR 
4415 015122 262701 980015 LSTNEXTIAOD #13,R2 
4116 915126 980727 BR LSTLOOP 
4117 015138 111192 LSTEOL) Move CRE) K2 
4218 015132 190019 apy, LSTLIN 
4419 015134 129227 og0225 CMPB R2,8,C0F 
4428 915149 301015 BNE LSTB8S4H 
4121 015242 004167 220354 LSTCRLFIUSR Ri, MSGODEV 
4422 325146 015 o12 Boo :BYTE CRLF ,@ 
4123 315152 pEVEN 
4424 015152 290715 8R LSTLOOP 
4125 915154 090322 LSTLING SWAB R2 
4126 015156 395291 INC Ry 
4127 015468 154192 BSB (RL) HZ 
4128 915162 305301 ogc Ry 
4429 015164 964522 aoo (RS), R2 
4138 915166 024227 477775 CMP (R2),#, SCALAR 
4232 845172 183763 ao LSTCRUF 
4432 0615174 912799 «390134 LSPESLHIMOV at, RO 
BASICL MACX11 Va21 22eMARe73 46105 PAGE So0y 
4133 015209 294767 994472 USTCHARTYSR POyPUTCHAR 
4134 915204 390700 BR LSTLoop 
4435 915206 120227 2990374 LSTSPECiCMPB R2, a, FIT 
4136 915212 201425 BEG LSTFLIT 
4437 915214 120227 290376 cure R2,0,1L1T2 
4438 915220 193446 BLO LSTILL 
4139 915222 991412 Bea LSTIL2 
4148 915224 112199 LSTTEXT I MOVE (R4)e,RQ 
4141 915226 391667 BE0 LSTLOOP 
4142 315230 094767 091442 JSR PC,PUTCHAR 
4143 915234 990773 BR USTTEXT 
4144 315236 105965 90043 LSTILA4 CLRB FAC2+2(R5) 
4145 915242 112165 ag0042 MOVB (RL), FAC2(R5) 
4146 915246 390424 BR  USTILE 
4447) 315250 112165 o00043 LSTIL21 MOVE (R4)*,FACZH1(R5) 
4248 915254 112165 ag0042 4OVB (RE) ee FACZERS) 
4159 0152609 285965 a99n40 LSTILBI CLR FACA(RS) 
4150 915264 180410 BR LSTFLB 
4151 315266 112165 goo042 LSTFLITIMOVE CRA) * yp FACLOL ORS) 
4152 915272 112165 90040 MOVB (RL) )FACLERS) 
4153 315276 112165 300043 MOVB (RE) OP FACZ41 (RS) 
4154 015302 112165 290042 MOVB (RL) 4) FACZ2(RS) 
4455 315306 294767 290434 LSTFLB} JSR PG, NUMOUT 
4156 315312 0980167 177470 LSTUMP} JMP LSTLOOP 
4157 315316 190302 LSTPTRI SWAB Re 
4458 335329 152102 B1SB CHL) 4) R2 
4159 915322 364502 ago (RS) RZ 
4468 915324 924227 177775 CMP (R2))#,SCALAR 
4161 315330 193030 BHIS LSTVAR 
4162 015332 311202 MOV (RZ), R2 
4463 915334 292405 BLT LSTLNO 
4164 315336 310265 00042 MOV R2,FAC2(R5) 
4165 315342 295965 o00040 CUR FAGA(RS) 
4166 015346 300434 BR LSTLNX 
4167 915359 110265 og0043 LSTLNOT MOVB R2,FAC2+4(R5) 
4168 015354 195965 o90042 CLRB FAC2¢R5) 
4169 045369 300322 SWAB R2 
4172 015362 110265 aag04e MOVB R2,FAGACRS) 
4171 315366 185065 g90041 CLRE FACLO1(RS) 
4472 315372 362765 043000 aoe0sg ado #43600,FACK(R5) 
4473 315400 284767 990342 LSPLNXI USR PC, NUMOUT 
4174 215404 «212700 200040 MOV #8, Ro 
4175 315410 282673 BR LSTCHAR 
4176 915412 126238 so0019 LSTVAR} MOVE 10(R2),RO 
4477) 915416 204767 931254 JSR PE,PUTCHAR 
4178 315422 116209 990011 MOVE 11¢R2), RO 
4479 315426 301402 8EQ +6 
4488 915439 204787 204242 JSR PG, PUTCHAR 
4181 
4182 vlFOF SNOSTR 
4183 815434 790726 6R LST IMP 
4184 ,ENOG 
4185 ,IFNOF SNOSTR 
4166 CMP (R2),%,SVAR 


4187 BNE LST IMP 


Neer 


BASICL 


4188 
4189 
4198 
4492 


BASIC. 


4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4204 
4202 
4283 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
42i4 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4228 
4223 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
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MOV 


8R 
,ENOC 


MACX11 ve2s 22emMARe7S §=16105 PAGE 57 


eTFNOF 


#($,R8 
LSTCHAR 


SNOSTH 


Swecwgeccsconsccccncesccoccccteccscnceecezcces 


SUBROUTINE ‘MAKESTH! CALLED BY JSR PC 


MAKES A BASIC STRING FROM A STRING OF CHARACTERS 

R® DESTROYEN 

RL UNUSED 

R2 MUST POI"Y TO A WORD WHICH CONTAINS 3 LESS 
THAN THE ADDHESS OF THE FIRST CHARACTER 

RS NESTROYEN 

R4 UNUSED 

RS MUST POINT TO USER AREA 

SP ON ENTRY @(SP) MUST CONTAIN # CHARACTERS 

ON EXIT 7(SP) CONTAINS POINTER TO THE STRING 


AKESTREVSR PC, MAKETRY BWILL NEW STRING FIT? 
BLOS MAKGOT VYES 
WSR PC, ONPACK 1NO, GARBAGE COLLECT 
JSR PC, MAKETRY HTRY AGAIN 
BLOS MAKGOT HFITS THIS TIME 
ERRSOVE LOT 
vIFNOF = SLONGER 
sASCIT NSSON 
,ENOC 
vIFOF = SLONGER 
sASCIY ‘STRING STORAGF AVERFLOWS 
,ENOC 
. :BYTE 2 
EVEN 
MAKCHKY JSR PG MAKETRY 
BHI ERRSOV 
MAKGOT} MOV RO HISTR(RS) SAVE NEW HIGH STRING ADDR 
MOV 2(SP),RO sR “OW CONTAINS # CHARS, 
“OV (R2),R2 
400 #3,R2 1R2 "OW CONTAINS ANDRESS OF CHARS, 
MOVE RB, (RS)+ JRE PUTS CHARACTERS IN 
CMPB CRB), CR3DG 
“Ove (RAV SE(R3)DO 
DEC RO 
acT 104 
MOV 2¢SP),RO 
“Ove RO,(RS) 
sue RO,RS 
MOV SP,RO 
Ts? (RO)* 
MOVE RO, eC KS) 
Swag RO 
Move RO, e(K3) 
DEC RS 
MOV R3,20S9P) 
RYS PC 
j SUBROUTINE TO CHECK ROOM ENONGH FOR STRING 
MAKETRYSMOV HISTR(RS) 120 
MOV RO RS 
aod 4¢SP),RO 


BASICL MACKX14 ve2s 222eMARs73 16185 = PAGE S704 


4247 aod #4,R8 

4248 CMP RO,HIFREE (RS) 

4249 RTS PC 

4250 ,ENOC 

4254 

4252 

4253 

4254 

4255 J ecwwcccccrecccce wewscocsencscceeccces 
4256 } SUBROUTINE ‘MpYy CALLED BY Jsr pC 

4257 J MULTIPLIES R3,R4@ BY DECIMAL 19 
4258 ’ RO,R1,R2 UNUSED 

4259 | R3,R4 IS THE 32 BIT UNSIGNED INTEGER TO MULTPLY 
4268 ’ R5 UNUSED 

4263 ’ SP GOES 4 DEEPER AFTER JSR 
4262 015436 010346 MPYTENT MOV R3,0(SP) 

4263 915449 219446 MoV R4,eCSP) 

4264 215442 396304 ASL R4 

4265 015444 396103 ROL RS 

4266 015446 396304 ASL Rr 

4267 835459 206103 ROL RS 

4268 015452 262004 apo (SP) 4,R4 

4269 215454 995503 aoc R3 

4272 815456 162603 aoo CSP) O,RS 

4274 315469 106306 asl, R4 

4272 015462 306103 ROL RS 

4273 015464 990207 RTS PC 


4274 


BASICL MACKXi1 vaes 22aMARR7S 16185 PAGE 58 


4275 ' 
4276 1 MSG e@ OUTPUT A LINE 10 Try 

4277 § MSGODEV © OUTPUT A LINE FO CUR, O''TPYT DEV, 

4278 ' 

4279 ) CALLI JSR RL,MSG (MSCQDEV) 

4280 | cASCIL "CMESSAGEI" 

4281 ) BYTE @ 

4282 4 EVEN 

4283 , RETURN WERE 

4284 1 

4285 USES RO 

4286 ' 

4287 ) SEY YP LINE WITH NUMBER OF AYTES TERMINATED 

4288 } «BY A BYTE OF G00, 

4289 J 

4290 MSGERRI 

4291 wIFNOF SLONGER 

4292 015466 112709 00045 Move ate, RO 

4293 915472 090461 BR MSGCOM 

4294 ,ENOC 

4295 815474 112109 MSG! MOVB CRE) RB 

4296 915476 195065 900107 MSGCOMI CLRB CNOFLG(RS) 

4297 315502 016546 390034 MOV COLUMN(RS),@(SP) ISAVE FOR TEMP SWITCH 
4296 915526 912765 o90056 ognas4 MOV aCLMNTTY, COLUMN(95) 

4299 915514 060565 090034 a00 RS, COLUMN(RS) 

4308 215529 ape4e4 BR FRSYOUT 

4381 915522 216546 so0854 MSGODEVIMOV COLUMNCRS) ,@(SP) 

4302 915526 112198 OOmMSG} MOVB (RL) o, RO 

4303 345530 024403 BEQ NOUN 

4304 815532 904767 01140 FRSTOUTIYSR PG, PUICHAR IPUT CHAR, TO TTY 
4385 815536 289773 BR OOMSG 400 NEXT CHAR 

4306 315540 385283 LINOUNS INC RL TO INSURE RETURN ON 
4307 315542 296203 ASR RY + EVEN WORD BOUNDARY 
4308 915544 296301 ASL RL 

4309 315546 212665 200054 MOV (SP) o,COLUMN(RS) 

4318 315552 200221 RTS RY 


4311 


BASICL 


4312 
4313 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
43268 
4329 
“A330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4349 
4341 
4342 
4343 
43a4 
4345 
4346 
4347 
4348 
4349 
4358 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4369 
4362 
4362 
4363 
4364 
4365 
4366 


BASICL 


4367 
4368 


MACXLL 


315554 
015568 
015562 
15564 
915566 
815578 
815572 
815574 
015608 
815602 
815604 
015686 
915618 
015612 
915614 
915616 
015629 
015622 
815624 
915626 
015630 
8156352 
015654 
015636 
015648 
815642 
815644 
015646 
015650 
015654 
015669 
015662 
015664 
015678 
915672 
215674 
315676 
915700 
015704 
845726 
215718 
915712 
815716 
015722 
915724 
815730 
015734 
015736 
815748 
215742 


MACXL1 
015744 


yoes 


312746 
303703 
284443 
1890833 
886003 
206604 
385216 
O3a327 
994018 
286304 
486193 
295316 
300771 
35704 
881367 
989726 
800207 
00572 
281425 
180416 
986203 
906004 
806203 
986004 
306203 
NB6004 
886203 
206904 
062716 
094767 
305372 
380744 
084767 
995202 
790749 
886203 
306004 
838327 
091373 
205716 
283082 
822726 
821627 
101402 
012726 
110366 
P42603 
082393 
086093 
386004 


veer 
080227 


22eMARS7S 


800257 


240800 


B8ORO4 
177556 


472078 


177908 


0890001 
0903577 


090377 
8oeRe1 


22aMAR@73 
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zee ewe 


ORME = MOV 
TST 
BEO 
BPL 
ROR 
ROR 
INC 
LITNORMIBIT 
BNE 


GITTST) TST 


LItdks TST 


LITOIVE JSR 


LIPSHR} asR 
GITSTON BIT 


16105 PAGE 5904 
RTs 


SunhddueeesaSeedsevanewseionsdeweteactersessesaesiness 


SUBROUTINE ! NORMS 


NORMALYZ°S INTEGER CONTAINED IN 
RI AND R4, MILTIPLIEO By EXPONENT 
IN R2, ANSWER IS IN RS, R4, 
CALLED BY JSR PC 

#237,9(SP) 

RS 


LITTST 
LITNORM 


(SP) 

RS, #40002 
LUTOK 

R4 

RS 

(SP) 
LITNOKM 
Rq 
LUTNOKM 


a4, (SP) 
PC, MPYTEN 
RZ 
LUTNORM 
PC,OIVTEN 
R2 


LIYNORM 
RS 


Ra 
RS, 8177000 
GITSHR 


' 

#3, (SP) 
(SP), #377 
1*6 

#377, (SP) 
R3,1¢SP) 
(SP) 4,RS 
RS 

RS 

R4 


Pc 


BASICL 


4369 
4378 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4382 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4399 
4394 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4418 
4414 
44n2 
4443 
4an4 
4415 
4446 
4447 
4448 
rye) 
4428 
4424 
4422 
4423 


BASICL 


4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4444 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4456 
4459 
4460 
4461 
4462 
4463 
4464 
4465 

4466 

4467 

4468 

4469 

4470 

4474 

4472 

4473 

4474 

4475 

4476 

4477 

4478 


MACXLL 


335746 
015752 
015756 


013768 
015764 
915779 
015774 
015776 
816802 
016004 
316806 
916014 
916016 
816922 
816024 
246250 
816052 
0168356 
816040 
916046 
916852 
816856 


816060 
816064 


816066 
816072 
816074 
946108 
016102 
816106 
846110 
916112 


MACKXLL 


816116 
016126 
316122 
816124 
316126 
216138 
916132 
816136 
016142 
816146 
3161590 
916152 
916154 
516160 
016162 
916164 
316166 
316178 
316172 
016174 
916176 
916250 
816282 
916204 
216206 
916212 
316216 
316220 
016222 
916226 
816250 
016254 
916236 
216249 
316242 
316244 
16246 
916252 
846254 
216260 
316262 
16266 
316270 
916272 
216276 
316329 
916304 
316306 
016310 
216314 
316316 
316320 
916322 
316324 
316326 


vVa2. 


304567 
242721 
390443 


917600 
362716 
004567 
1000s 
885765 
001430 
100825 
062765 
284816 
995965 
AB1816 
985765 
180813 
295465 
102985 
812765 
085065 
12720 
300402 


312709 
304741 


816524 
305902 


- 836583 


881020 
012700 
305724 
901016 
912700 


Va2s 


306711 
28207 
210328 
206308 
105900 
80300 
162738 
342793 
2527083 
305320 
286324 
286183 
838327 
204772 


985700 


793016 
296293 
286004 
386233 
386004 
086203 
286004 
306203 
286004 
262720 
204767 
295382 
080755 
920027 
903427 
084767 
395202 
200746 
295208 
326223 
386004 
829927 
982772 
320327 
183363 
362754 
103010 
9952035 
320327 
193404 
BL2703 
905004 
885222 
312700 
910346 
320316 
286016 
206016 
306016 
942716 


22eMARe73 16105 PAGE 63 


BOLi10 
816676 


999002 
ogagee 
001066 


980040 


te00e8 BBe049 
800842 
890842 
200042 
044992 990040 


890042 
880055 


600040 


090042 
2o0840 
990037 


890060 


bf NUMQUT! ~SUBROYTINE 
f 


' 

NUMOUTE JSR 
MOV 
BR 


' 
1 
U 
U 
4 
4 
) 
U 
N 


UMSGNY MOV 
400 
usr 
MOV 
TST 
BEO 
PL 
aod 
BNE 
CLR 
BNE 

NUMFIXE TST 

BPL 
NEG 
Byc 
MOV 
CLR 

NUMNEGI MOV 

BR 

NUMPOS} 

LFNOF 

CMP 

8E0 

+ENOC 


MOV 
NUMPRS| JSR 


NUMSTTE 
MOV 
CLR 
MOV 
GNE 
MOV 
TST 
BNE 
MOV 


22eMARe73 16195 PAGE 6804 


80472 
177600 
980200 


245000 


298084 
177220 


208004 
172324 


280904 
959900 
884250 


(50000 
004900 


ogog06 


177760 


ySk 
RTS 
NUMFLT1 MOV 
ASL 
CLRB 
SWAB 
suB 
gic 
81s 
NUMSHF TS 0EC 
as 
ROL 
NUMNORMI8{T 
BEQ 


NUMBIG) CMP 


NUMOIVI JSR 


NUMALNE INC 


NUMOK} CMP 


INC 
NORNODOVEIMOV 
NUMDIGE MOV 

SWAB 

ROR 

ROR 

ROR 

aIC 


CALLED 8Y JSR PC,NUMOUT 

OUTPUTS AN UNSIGNED NUMBER FROM THE FAC 
Via THE SUBROUTINE PUTCHAR, 

R>,SAVREG 

#PUTCHAR, RY 

NUMSTT 


eee ei in i ee en nnn te none 


‘NUMSGNI SUBROUTINE 


CALLEQ BY JSR PC,NUMSGN 
SWORD OUTPUT 
WHERE OUTPUT IS THE OUTPUT ROUTINE, 
WHICH MAY BE PUTCHAR OR SAVCHAR, 
OYTPUTS A SIGNED NUMRER FROM THE 
FAC VIA THE OUTPUT ROUTINE, 
@(SP),RO 
#2, (SP) 
RS, SAVREG 
RB RL 
FACS (KS) 
NUMF IX 
NYMPOS 
#109008, F ACLCRS) 
NYMNEG 
FAC2(KS) 
NUMPOS 
FACQC(KS) 
NUMPOS 
FAC2(K5) 
NUMNEG 
#44008,FACL(RS) 
FAC2(RS) 
ate, RO 
NQMPRS 


SNOSTK 
RL, #SAVGHAR 
NUMSTT JOON/T OUTPUT BLANK FOR STRS 


#81,,Rb 
PC, (RA) 


FAC2(RS),R4 WR4 #9 LOW OROER MANTISSA, 
R2 yR2 # NECIMAL EXPONENT, 
FACLCHS) RI RZ = HIGH ORDER MANTISSA, 


#37, RO pRO = BINARY EXPONENT, 


NUMSHFT 
610,R6 


pgs the 


R3, RO 

Re 

RB 

RO 
#471,K0 
#177600,R3 
#200,K3 
Rg 

RA 

Rg 

R3, #40000 


#4,R0 
PG yMPYTEN 
R2 


NYMNOKM 
RO, a4 
NYMOK 

PC, DIVTEN 
RZ 


NYMNORM 
Re 

R3 

a4 

RO, 84 
NUMALN 

RS, #50008 
NUMOLV 
#2250,R4 SROUNDING, 
NQRNOUV 

RS 

RS, #50000 
NORNDOV 
#4000/R3 

Re 

R2 

#6,RO 
R3,0(SP) 
(SP) 

«SP) 

(SP) 

(SP) 
#177700, (SP) 


\l 


ree) 


Se 


BASICL 


4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
449g 
449. 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4508 
4504 
4502 
4503 
4504 
4595 
4506 
4507 
4508 
4509 
4312 
4511 
4512 
4513 
4544 
4545 
4516 
4517 
4518 
4549 
4328 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 


BASICL 


4534 
4535 
4536 
4537 
4338 
4539 
4548 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 


MACXL1 


316332 
916336 
916342 
316346 
016350 
816352 
016354 
016360 
916364 
916366 
916379 
816374 
016376 
9164098 
916402 
016486 
216419 
216414 
016416 
016428 
016422 
016424 
0164398 
846432 
816436 
816449 
916442 
016446 
016450 
016452 
016456 
016462 
016464 
816466 
916470 
816472 
016474 
916508 
016582 
816504 
016519 
816512 
816516 
016520 
816524 
916526 
3165352 
816534 
016536 
046549 
016542 
816544 
816546 
6165590 
016552 


MACXLY 


916554 
216556 
816560 
816564 
216566 
916570 


346572 
816574 
316576 
316602 


veed 


262716 
242783 
2B4767 
205300 
883364 
810633 
362783 
720227 
402404 
201446 
920227 
302453 
014308 
04741 
012720 
084712 
212704 
214300 
OO4741 
205304 
383374 
812729 
eO4721 
012700 
695702 
199803 
912700 
005402 
984744 
012700 
162702 
188422 
285200 
280773 
204741 
610208 
262700 
204741 
200435 
912700 
304711 
212706 
204742 
212704 
228609 
822927 
362802 
4BS304 
288773 
020402 
ag3ee2 
910204 
995204 
385292 
985202 


ve2s 


385362 
201003 
212730 
004742 
314388 
204741 


385304 
303367 
262736 
280207 


22eMARe73 


230060 
174900 
177078 


ooge14 
177776 


380006 


880036 
oeee05 


396125 
800053 


998855 


990860 
og8012 


opeg72 


o99856 
ogeseo 
TITTY 
ogegeo 


22eMARe73 


888856 


rego14 


16185 PAGE 6802 


NUMFMLI 


NUMLPSE 


NUMFM21 


NUMF MS} 


ado 
gic 
JSR 
ec 
ac? 
MOV 
apo 
cP 
aut 
BEO 
CMP 
BLT 
mov 


16185 PAGE 6803 


NUMLPS] 


NUMEXITE 


SAVCHARI 


oEc 
BNE 
“OV 
usr 
MOV 
JSR 


oec 
act 
aoo 
ATS 


epFNOF 


JSR 
MOV 
MOVE 
MOV 
TNC 
RTS 
ENO 


#18, 09P) 
#474900,R5 
PC, MPYTEN 
RO 

NUMOIG 
SP,R3 
244,R5 
RZ, 802 
NUMFM2 
NUMFM2 
R2,86 
NUMFMS 
(RS) GRO 
PG, (RL) 
at, RO 
PC,CRR) 
#5,R4 
(RSD GRD 
PC,(R2) 
R4 


NUMLPS 
ERB 
PG, CRI) 
81o,RO 
R2 

1*48 
Hta,RO 


R2 
Pasta) 
#16,Ro 
#42,R2 
1*6 

RO 

het 
PG,CRS) 
R2,R8 

st Ge12,R0 
PG, (RY) 
NUMEXTT 
aly RO 

PG ACRYL) 
#f0,RO 
PC, (RA) 
#6,R4 
SP,RO 
CRAY HED 
106 

R4 

2948 
R4,R2 

%6 

R2,R4 

R4 

R2 

R2 


R2 

1°40 

wt RO 
PC, CRA) 
(RS) ERB 
PC, Rd) 


R4 
NUMLPS 
#44,5P 
PC 


SNOSTH 


R9,SAVREG 
TZURS URL 
RO, (RLS 
RL, T2ER5) 
TACRS) 

eg 


SASICL 


4556 
4557 
4958 
4559 
4560 
4561 
4562 
4563 
45604 
4565 
4566 
4567 
4566 
4569 
4578 
4574 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 


BASICL 


4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4608 
4601 
4602 
4603 
4004 
4605 
4606 
4607 
4008 
4609 
4610 
4611 
4612 
4615 
4614 
4615 
4616 
4617 
4618 
4019 
4629 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4035 
4636 
4037 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 


MACK11 


216604 
016618 
816612 
816616 
916622 
916624 
816630 
016632 
016636 
916642 
916644 
816650 
816652 
016656 
916662 
816664 
816666 
816678 
916672 
016674 


MACXL2 


316676 
616702 
816786 
16712 
316716 
216728 
316724 
316730 
816732 
916736 
316740 
O16744 
316746 
916750 
916752 
916754 
916760 
316762 
016766 
916778 
616772 
916776 
217200 
317004 
317012 
917316 
317022 
317224 
217026 


817030 
3172332 


17034 


Veet 


812722 
811246 
212722 
916123 
285203 
920363 
101422 
916103 
020363 
084412 
3820361 
301427 
120071 
310364 
812622 
300243 
280227 
322612 
280264 
380207 


V@2i 


204567 
212746 
285275 
105765 
201402 
380167 
126524 
281023 
195765 
201032 
716401 
205704 
204022 
C6504 
C2222 
384767 
193097 
204767 
505316 
301371 
105064 
280422 
195064 
242774 
205265 
195761 
281810 
085726 
200207 


388128 
121376 


24352 


JCANDJOATE FOR NEW POSITION 


VIF EQUAL TO EITHER GET PTA,, 


pLF NOT TYY, CONTINUE 
VIF SET EXIT IMMEDLATELY 


NEES CURR, YSER‘S BUFF, 


VENABLE INTERUPT ON CHOSEN OFV 


22aMARe73 16185 PAGE 61 
iy 
} PUTBYT © PUT BYTE INTO RING RUFFER 
° f 
3 CALLI MoV COUFF, HOR, J.RY 
' MOV CCHARD,RO 
’ vSR PC,pureyT 
' 
1 USES RBWRLRZRS 
' 
AISE prlgalry SINCE rHIs MAY BE CALLED Ar 
i RA AINSTREGH, Buy ACCESSES POINTERS THAT MAY CHANGE AT 
> ~~ INTERYPT LEVEL, 
} REYURNS WITH °C! BIT! CLR IF AYYE GOT IN 
' Se’ IF 80 ROOM 
’ 
7776 PUTBYTI MoV #PS,RE 
x at mov (R2),e(SP) SAVE STATUS 
098540 MOV #PR7,(R2) pREPLACE WITH HIGHEST 
AOORLO MOV BPUT(RL) RS 
INC RS 
0008B2 cMP R3,BEND(RY) yNEED 70 WRAP AROUND? 
BLOS NOWRAP 
90808 MOV BSTRTCRL) RS VYESt NEW POS, aT TOP 
000084 NOWRAP} CMP RS,BGETACRL) 
CT] NOROOM 1 THEN NQ ROOM 
800006 cup RS, BGET2(R4) 
80 NOROOM 
090018 Move RO, @BPUT(RY) 
280019 MOV RS, BPUT(RI) sUPOATE PTR, 
MOV (SP) e9(R2) STATUS BACK 
cue HSIGMAL SUCCESS 
RTS PC 
NOROOM! MOV (SP), (R2) STATUS BACK 
‘ Sec #SHOW FALLURE 
RTS (44 
22eMAR*73 16185 = PAGE 62 
’ 
} PUTCHAR © PUT CHAR To CURRENT AUTPUT DEV, 
’ 
} CALLE (LOAD ODEV(RS)) 
} MoV CCHARI,RO 
’ JSR PC,PUTCHAR 
’ 
}) SAVES ALL REGS, 
' 
} TRIES To FIT CHAR INTH PROPER BUFFER, GOES To IQWAIT ON 
, FAILURE, 
' 
080160 PUTCHARIUSR Rd, SAVREG 
047777 MOV #47777, 20¢SP) sIMET TIME QUT COUNT 
6a0054 INC @COLUMN(RS) 
880106 TST8 CNCFLG(RS) 
BEO PUTCCU 
162152 JMP READY 
200876 Purccor MOVB ODEV(R5),R4 HOUTPYT DEVICE CODE 
BNE WORSTUP 
090107 TST8 CNOFLGERS) HCHECK FCR /90¢ 
_ BNE ouTeLe 
017930 WORSTUPIMOV TABL(R4) RY 
TS? R4 DWHICH DEVICE? 
8NE PUTIT yNOT TTY 
400 RO,RL 
MOV CRO) ) RL yNOW, ACTUAL HEADER 
177624 PUTITS JSR PC,PUTBYT 
acc LTSIN 
175524 JSR PC, LOWALT INO SOOM! WALT 
pec (SP) ITIME SUT 
BNE PUTST 
agoe12 CLRB BFSPECIR1) 
8R DEVERR 
aeso12 ITSINE CLRB BFSPEC (RA) 
220108 017036 MOV #400, PTABZCR4) 
800978 INC RNOCT (RS) 
aeoo12 TSTB BFSPEG(RL) 1170 EPROR? 
BNE OEVERR 
oufesa: TST (SP)> sPOP TIME OUT COUNT 
RTS PC 


JRESTORVES REGS, AND SETYQINS 


f 
} AOL © DEV, BUFFER HORS, (TPHO Is nFFSET INTO USRAREA 
} FOR ADDR, TO TPRTR, BUFF, HDR) 


U 
TABLE 


+ TPHO 
,TFNOF SNOPTP 
+ PPBFHY 
+ENOC 

LIFDOF SNOPTP 

a 

1ENOC 


LTFNOF SNOLPT 
+ UPBFHU 


BASICL 


4047 
4048 
4049 
4658 
4651 
4652 
4053 
4654 
4055 
4656 
4657 
4058 
4059 
4668 
4061 
4662 
4663 
4064 
4065 
4666 
4667 
4068 
4069 


BASICL 


4678 
4071 
4672 
4073 
4674 
4678 
4676 
4077 
4078 
4079 
4688 
4081 
4082 
4683 
4084 
4685 
4686 
4687 
4688 
4689 
4698 
4091 
4092 
4093 
4694 
4095 
4696 
4697 
4698 
4699 
47238 
4701 
4702 
47983 
4704 
4705 
4706 
4707 
4708 
4709 
4710 
4711 
4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 
4720 
4721 
4722 


MACKLL 


817936 
017848 
017042 


817044 
917046 


347054 


MACX11 


017052 
817854 
817062 
847064 
817866 
017078 
317072 
017074 
817076 
947182 
O171284 
317106 
947110 
317112 
17114 
B17116 
317128 


317122 


417124 
317132 
317134 
447149 
917142 
317146 


Veet 


177564 
177554 
177544 


300884 
B47104 


VO2i 


211646 
412766 
410446 
010346 
710246 
#10146 
919046 
18546 
316695 
804736 
712608 
312601 
942602 
312623 
342604 
312605 
A90207 


289892 


312765 
305231 
122127 
201402 
400167 
980207 
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122 


sENOC 


a IF OF SNOLPT 


,ENOC 


5 
} YAB2 © DEV, STATUS KEG, 


J 

TAB21 bd 
. 
* 


DEVERRE oT 
TPN 
sASCIT 
+ENOC 
LIFOF 
ASCII 
,ENOC 
*BYTE 2 
:EVEN 
{£07 


22=MARO7S 16185 PAGE 65 


017122 sgooe2 


eeoo14 


177775 §=880830 
908261 
172502 


Comores vocencsocages 


SAVREG # SAVE ALL REGISTERS 


JSR 


TPS 
PPS 
LPs 


SONGER 
\ONRA 


SRONGER 


\DEVIGE NOP READY 


PGs SUbR,) 
RS, SAVREG 


SOURCE FILE #8 


qQuenqcenedencccccc ewes ceccccesccercoseces 


MUST CALL SAVREG From SuBRTM, 


HES ALL REGS, AND EXITS WITH ADOR, ON STACK 
Puntce BRINGS CONTHOL BACK WHEN SUBR. DOES ¢*RTS PCr, 


THEN, RESTORES REGS, AND DOES (RTS PCI WHICH RETURNS Yo JUST 
AFTER CALL TO INITIAL SUBROUTINE (MODIFIED BOWERING SPECTAL) 


t 
5 
‘ 
J 
4 
} CALLE CVSR 
I 
‘ 
' 
' 
‘ 
' 


| 
AyrGlt Mov 
SAV Hov 


SAVREG} MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
RESREG! MOV 
MOV 
MoV 
MOV 
MOV 
MoV 
RTs 


J 
INTEXT] RTT 


f 

' 

f 

5 CALLE MOV 

i] JSR 

' 

)  YSES RL 

' 

SCANPNOIMoV 
TNC 
cura 
8EO 
JMP 

PNOGOS RTS 


Csp),esp) 
MINTEXT, 2¢8P) 
R4,0(SP) 
RS, 0(SP) 
R2,0(SP) 
RE, 0(SP) 
RB,eCSP) 
RS, e(SP) 
12, (SP) ,R5 
PC,@(SP)> 
(SP) oyRO 
CSP) ) RE 
(SP) o,R2 
(SP) 6,R3 
(SP)4,R4 
(SP) 4) RS 
PG 


SCANPNO @ SCAN TOKEN For ‘af 


}FOR RETURN TO SUBR, 
1GET OLO RS 
sSTACK NEXT LOC,! 


sBACK TQ CALLER OF INIT, SUBP, 


poee scene geen een e renew eng seen cece ences ener ecesenteesnseoccces 


CPTR, TO BYTE BEFORE f#! TOKENI,RL 


PG, SCANPNO 


#, SCALAR, LINENG( RS) 
RL 


(RL) Oe, #, POUND 


PNOGO 
ERRSXD 
PC 


BASJCL MACX11 vO2s 22eMARe73 16185 PAGE 64 


4723 PIII rire rere rrr triers 
4724 J SUBROUTINE 'SKIPEOR! CALLED BY JSR PC 
4725 ' MOVES Ra PASY THE NEXT EOL! 
4726 ’ R@ UNUSED 
4727 f R4 MODIFIED TO REFLECT OPERATION 
4728 ' R2,R3.R4,R5 UNUSED 
4729 4 SP GOES NO OEEPER AFTER VSR 
4738 917150 262701 290003 SKIPS) AOD #3,R4 
4731 317154 «205201 SKIPA2) INC RY 
4732 017156 285201 SKIPOLt INC Rt 
4733) 017168 195721 SK{PEOLITSTB CRLYo 
4734 017162 302375 8GE SKIPOS 
4735 817164 124127 090374 cMPB eGRa #,FEIT 
4736 817172 381767 Bea SKIPES 
4737) 847172 «191034 BHI SKIPHY 
4738 917174 122127 ago2e2 cMPB (RL) O98, EOL 
4739 017200 201429 BE0 SKIPRTS 
4740 317202 124127 aa0202 cMPB o(R1),8,FN 
474% 317206 391762 8E0 SKIPRE 
4742 017218 «122127 go0211 cMPB (RY) Oo, 8, NEXT 
4743 947214 304361 BNE SKIPEOL 
4744 947216 862781 990912 apo #12,R2 
4745 917222 2990756 BR SKIPEOL 
4746 ’ EITHER ,TGITL( 375), VILIT2C376) OR , TEXT(SI7) 
4747 617224 «122127 298376 SKIPHI1 CMPB CR) w, ILET2 
4748 037230 004752 BEQ SKIPO2 
4749 917232 193754, BLO SKIPOL 
4750 317234 105721 SK{PTXTITSTS (RY) 
4754 817236 381376 BNE SKIPTXT 
4752 917240 «290747 BR SKIPEQL 
4753 317242 390207 SKIPRTSIRTS PC 
4754 
4755 
4756 
4757 J pc cwec ccc cece screw ccew ena sen sence seseessssecsocce 
4738 §  'STOVAR! SUBROYTINE 
4739 } CALLED BY JSR PC,STOVAR 
4768 H STORES FACd, FAC2 IN THE VARIABLE OR 
4762 ' ARRAY ELEMENT LAST ADDRESSED BY THE 
4762 4 SUBROYTINE /GEFVARE 
4763 917244 «316502 aeave2 STOVAR} MOV VARSAV(RS) ,R2 
4764 
4765 ,IFNOF SNOSTR 
4766 CMP (R2),#,SVAR 
4767 8Eo ERRMX7 
4768 »ENOC 
4769 
4770 017258 236509 ogene4 Mov SSISAV(RS) RO 
4772 817254 «100485 aM! STONOSS 
4772 847256 216503 og80z6 MoV SS2S4V(R5),R3 
4773 847262 404767 «175332 ysr PC, LOGGET 
4774 317266 290404 6R STOCOMM 
$775 647270 922227 177775 STONOSS! CMP (H2))8, SCALAR 
4776 027274 «704404 BEO STOCOMM 
4777 017276 3114202 MOV (R2) M2 
BASICL MACX22 VO2L 22eMARe73 16185 PAGE 64e4 
4778 917388 016522 999040 STOCOMMIMOV FACL(KS), (R200 
4779 917304 216512 se0042 mov FAC2(R9), CR2) 
4780 917319 290207 RYS PC 
4781 
4782 vTFNOF = SNOSTK 
4783 ERRMX74 UMP ERRMIX 
4784 sENDC 


4785 


BASICL 


4786 
4787 
4788 
4789 
4798 
47914 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4608 
4001 
4802 
4603 
48e4 
4805 
4806 
4807 
4808 
4009 
4610 
4842 
4832 
4813 
4614 
4615 
4816 
4817 
4818 
4619 
4829 
4824 
4822 
4825 
4824 
4825 
4826 
4827 
4826 
4829 
4838 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4a40 


SASICL 


4841 
4842 
4843 


MACKLL 


917312 
427316 
817329 
817326 
917332 
817336 
017349 


MACXLL 


317346 
917352 


ve2s 


095766 
794405 
262766 
700167 
385466 
182373 
412766 


ve2s 


205066 
360765 


22eMAR@73 16185 PAGE. 65 
\IFNOF SNOSTK 


aeg02 
190908 ageoe2 
470836 
ageee4 


044908 ogoge2 


22eMARe73S 16505 


900004 


TOSVARSMOV 
CMP 


STOSSNOITST 
CMP 
aea 
MOV 

STOMMCOIMOV 
MoV 


STOVTABIMOV 
MOV 
MOV 
TNC 
sus 
STOVCOMEINC 
BEO 


aod 
MOVE 
SwaB 
Move 
STOSX}| JMP 
ERRMX6 UMP 
sENOC 


Peccccccncnccconwecnccecggecysecesaceseveqeceseese 


*STOSVAR’ SUBROUTINE 


CALLEU BY JSR PC,STOSVAR 
STORES A STRING VARIABLE AS ADDRESSED BY 
VARSAV 

VARSAV(RS) R2 
(R2), 8, SVAR 

ERRMXO 

SSUSAV(R5),RO 

STOSSNO 

SS2SAV(R5),RS 

PC, LOCGET 

STOMMCO 

(R2)e 

2(R2), Hed 

STOVTAS 

(R2),K2 

(SPO, RS 

(SP) o,RO 

RO, (RZ) 

sTOvCoM 

(SP), RS 


STOSX CHECK NULL STRING 


AZ, 0( RO) 
R2 

R2, (KB) 
¢R3) 
ERRMIX 


Jeneecccweqocesconocepewcecacpsccesecesovcgecageces 


J 
5 
J 
J 
' 
I 
' 
s 


uastK) TST 

Bea 

400 
AOSTK11 JMP 
SUBINT! NEG 
ave 
MOV 


CLR 
5R 
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SUBROUTINE 'SUBSTKf CALLED BY JsR PC 


NEGATES (SP), 2(SP) THEN CONTINUES IN *#ADDSTKE 
R@,R1 UNUSED 
R2,R3  OESTROVED 
RO MODIFIED TO REFLECT STACK USAGE 
RS MUST POINT TO USER AREA 
SP GOES 7? NEEPER AFTER YSR 

2(8P) 

SUBINT 

#1800B0,2(SP) 

AOOSTK 

4¢SP) 

AQSTKY . 

944900,2¢SP) 


4¢SP) 
AOS TKE 
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4844 | pecccqencgeeneqeocqeegeceqas evegecerecsa 
4845 Jf TRAN! SYBROUTINE 

4846 H GALLEQ BY JSR PC, TRAN 

4847 ' TRANSLATES FROM INPUT ASCI! CODE 

4848 i TO [NTERNAL CODE, CONSISTING OF TOKENS, 
4049 ) LINE NUMBER REFERENCES, SYMBOL TABLE 
4a50 ' REFERENCES, AND LITEPALS, ALWAYS RETURNS, 
48514 ’ NQ MATTER WHAT IS INPUT, 

4852 ' AS NEW SYMSOLS ARE ENCOUNTERED, BUILDS NEW 
4853 ' ENTRIES INYO THE SYMAOL TABLE, 

4654 ' ERRORS ARE TRANSLAVEM 70 CiTEXTs 444] 
4655 217354 214502 sageeo TRANE = MOV QINE(KS) RO 

4856 817369 239201 MOV R2,RL 

4857 317362 122127 990025 CMPB CREO ACR 

4858 017366 201375 BNE 104 

4859 917378 214500 sao00%6 MOV CODE(RS), RO 

4860 017374 1124149 Move (RT) pe CRB) 

4861 317376 922102 CMP RYARZ JR? 1S WHERE ORIGINAL TEXT IS, 
4862 917409 2904375 ANE 106 HR4 1S WHERE TRANSLATED TEXT GOES, 
4863 017402 205965 390056 TRANLUPICLR TACRS) SPREVIOUS ITEM WASN/T A VAR, : 
4864 917406 122927 on0040 TRANVARIGMPB (RO) 0, #84 

4865 917412 081775 Bea TRANVAR 

4866 927414 124927 AgoetS cure =(RO),ACR 

4867 017429 91003 BNE TRYNUM 

$668 917422 112714 sgg203 MOVB #, EOL (RL) 

4669 017426 290207 RTS PG 

4879 917438 121927 aoe856 TRYNUM| CMPB CRO) ,e!, 

4874 917434 704406 BEO NUM UMP 

4872 917436 121827 o00060 céMPS CRO), ete 

4873 817442 193405 BLO TRYKWY 

4874 817444 121927 ogou71 CMPa CRA), BIg 

4875 217458 191902 BH TRYKWO 

ears 817452 880167 200632 NUMJMP} UMP TSNUM 

487 

4878 217456 012704 160700 TRYKWD] MOV SKEYWOSeTRNPC IRS 

4679 917462 124927 900101 CMPB (RO) wea ICHECK ALPHA KEYWORDS 
4882 217466 193405 BLO COMTAB 4780 LOW 

4881 337478 124927 300432 CMPS (RO), #t2 

4882 0147474 184992 BHI COMTAB 1700 HIGH 

4883) 317476 112704 160772 MoV OKEYAGTRNPE,RG =| JUST RIGHT 

4884 317522 9190703 COMTABI MOV PC,RS 

4885 217504 260403 TRNPCI 00 R4,RS HADORESS TABLE 

4886 317506 330822 TRYAGNE MOV RO,RZ 

4887 017519 122223 REPRY! CMPB (R270, (AS) 

4888 317512 701776 BEO RETRY 

4089 017514 1246306 “Ove (RSD ARE 

4898 017516 180414 BMY AMATCH 

4091 317529 901559 BEQ NOTKWO 

4892 817522 295302 oe R2 

4893 6147524 122227 o00040 CuPS (R296) #8L 

4894 G17539 204767 BEO RETRY 

4895 917532 385302 oee Re 

4896 917534 122327 o90040 CMPS (R3) 0, #84 

4897 917549 191763 BEO RETRY 

4898 817542 195723 ys78 CRS)O, 
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4899 917544 190376 BPL 192 

4982 917546 300757 8R TRYAGN 

4984 817559 995302 AMATCH} O€C Re 

4902 817552 7120208 MOV RZ,R2 

4903 017554 119424 MOVE R4, (RL )0 

4904 817556 120427 oo0220 CMPB R4,6,KEM 

4905 917562 791549 BEO REMPACK 

4906 917564 120427 000262 cura R48, FN 

4907 317578 704464 BEO TRNFN 

4998 017572 120427 opo211 CMPB R4,8,NEXT 

4909 917576 72015205 REO NEXFILG 

4918 617629 129427 000257 CMPB R4,0,S5QU0T 
4911 217604 282403 BEO QUOTPAK 

4912 917606 120427 200256 cMPB R4, 8, 00N0T 
4913 817612 384273 BNE TRANLUP 

4914 017614 122704 900257 QUQTPAKICMPS #,SQUOT,R4 
4915 817628 2381482 BEO 1o6 

4916 817622 912704 g90252 MOV OOM al fe, SQUOT IRE 
4917 817626 062704 177570 A0D site, SQuot,R4 G)- Sayer 
4918 617632 112721 090377 MOVB we TEXT, (ROQ6 aN 
4919 017636 220129 CMP RL, RO 

4920 817649 103076 BHIS ERRTRN 

4921 817642 121924 STOSTR} CMPB (RO), Ke HSAME AS INITIAL QUOTE CRAR,? 
4922 317644 301425 BEO ENDQUOT 

4923 017646 121927 200015 cMPa (RO), #CR 

4924 817652 001415 80 ENOGR 

4925 817654 112924 MOVE CRB) HP (RADS 
4926 317656 280771 8R STOSTR 

4927 817668 105924 ENDQUOTICLAB (Rope 

4928 017662 298229 INC RO 

4929 017664 129427 990047 CMPB Ra,ert 

4932 817679 081423 BEG ENnosayo 

4931 217672 112721 290256 MOV #, OQUOTE, (R1)+ 
4932 217676 090644 BR TRANLYP 

4933 617708 112721 990257 ENOSQUOIMOVB B,SQUOTE, (Ride 
4934 217704 990636 BR TRANLYP 

4935 0617796 405924 ENOCRE CURB (Rte 

4936 217710 4112711 300201 MOVE #,EOLg (RL) 
4937 817714 B1ts92 MOV RY,R2 

4938 817716 124227 990377 cups o(R2) 8, TEXT 
4939 847722 204375 BNE a4 ; 

4940 217724 119412 MOVB R4,(R2) 

4941 917726 112742 099377 MOVE #, TEXT, 0( RQ) 
4942 017732 190227 ars PC 

4943 317734 122927 090040 TRNFNG = CMPB (RO) oO, #BL 

4944 347748 904775 5EO v4 

4945 917742 124927 o00101 cMPB CRA), atA 

4946 317746 193441 BLO TRPNBAD 

4947 817758 121927 og8152 cMPs (RO), #be 

4948 017754 191046 BHI TRENBAD 

4949 317756 112002 MOVE CRO) SyRZ 

4950 917769 186302 AS, R2 

4951 917762 162702 se0200 suB #OAetAe2,RI 
4952 317766 110221 MOVE ROa (RI 


4953 817770 200604 BR TRANLYP 


ee 
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4954 347772 112748 990116 TReNBABIMOVA BIN, @(RO) 

4955 9147776 112749 290106 Move atP,o(Ra) 

4956 d2s982 385301 pec Ri 

4957 920094 220100 CMP RY, RO 

4958 920986 104913 BHI ERRTRN 

4959 929918 100425 BR REMPACK 

4960 920012 120129 NEXFILL CMP RL, RO 

4901 920914 103010 BHIS ERRTRN 

4962 820016 185021 CURB CRA)S 

4963 920020 1059011 CLLRS (Ra) 

4964 329822 762731 00011 400 B11, R21 

4905 920026 20100 cmp RL, RF 

4966 920039 193002 BHIS ERRTRN 

49607 920032 300167 177344 vMP TRANLUP 

4968 9829936 100167 090266 ERRTRNG UMP ERRTR7 

4969 920042 121027 200132 NOTKWOT CMPB CHO), we 

4973 929046 101006 AMI REMPAGK 

4973 320050 1214927 900101 cpa CRO), BOA 

4972 020054 103483 BLO REMPACK 

4973 320056 205765 ogaose Ts? TAERS) 42 VARS IN A ROW JS AN ERROR SO DONT 

4974 G20062 994415 SEQ - Svar WWASTE SYMBOL SPACE ON IT, 

4975 920064 112724 900577 REMPACK MOVE a TEXT, CRIS 

4976 920979 020100 cmp RL,RO 

4977 920072 103363 BHIS ERRTRAN 

4978 929974 124927 90015 STOTXT? CMPB (RO), BCR 

4979 320100 204462 BEO CARRET 

4980 920192 112924 MOVE (RODS, (RID * 

4981 920104 900773 oR STOTXT 

4982 020106 195921 CARRET] CLRB CR4)> 

4983 920119 112711 900201 Move #,COLaCRL) 

4984 028114 309227 RTS PG 

4985 320116 112002 ISVARI | MOVB (ROO PR 

4986 029129 122927 sg0048 cure CRO) Oe, #BL, 

4987 920124 901775 BEQ se4 

4988 920126 1246927 009071 cMPB ofRO) Hd 

4989 9208132 101926 SHI NODIGIT 

4999 920134 121927 000060 cups CHO) #10 

4991 920148 103423 BLO NODIGIT 

4992 023142 1090302 swag R2 

4993 920144 152922 8tse (RO) OpRZ 

4994 920146 989392 Swag R2 

4995 920158 911503 NODIGITIMOV (RB) KS 

4996 920152 122027 ao0049 cMPB (RO) O, BL 

4997 020156 104778 Bea 104 

4998 920168 905309 Dec Re 

4999 020162 29365 200014 VARSRCHICMP R3,LOFREE(RS) 

5008 020166 103920 BHIS PUTITIN 

590% 020178 324327 177775 GMP CR3), 8, SCALAR 

5002 220174 193003 BHIS NOTTT 

5QV3 920176 262703 coeued aoo #4,RS 

5Sg04 920292 290767 aR VARSRGH 

5885 620204 162793 90019 NOTIT: 400 #10,RS 

5906 

5907 LTPNOF = SNOSTH 

5208 cMP wiB(R3), 8, SVAR 
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5009 geo TRYSVaR 

5818 ,ENOC 

501% 

5012 020210 922392 CMP (RS) Oy RZ 

5013 420212 «204363 ANE VARSRCH 

5014 920214 121927 o90044 é cura (RO), 84S 

5015 320228 301766 BEO VARSRGH 

5216 

5017 ,IFNOF SNOSTK 

5018 BR FOUNOY 

5019 TRYSVARICMP (HS), R2 

5020 BNE VARSRCH 

5024 cMPa (HO), etS 

5022 ane VARSRGH 

5023 INC Ro 

5024 ,ENOC 

5025 

$026 320222 162703 90012 FOUNOV! SUB #42,R5 

5¢27 920226 200415 aR RETVAR 

5028 PUTITING 

5029 LIFNOF = SNOSTH 

5030 400 #14, RS 

5031 CMP RS, LOSTRERS) JMAKE SURE STRINGS ARE NOT THERE 

5032 BLO PYTAOK 

5033 Jsr PG, UPPACK HUF THEY ARE, PACK THEM UPWARDS 

5234 CMP AS, LOSTRERS) yANO TRY AGAIN 

5835 BHIS ERROVE yNO 6000 

5036 PUPAOK) TST a(R3) HRS 1S END OF ENTRY 

5637 ,ENOC 

5038 

5039 vIFOF = SNOSTK 

5040 120230 362703 sgen12 aod 042,23 SADDRESS END OF ENTRY IN R3 

$041 ,ENOC 

5242 

5043 323234 220365 agpur2 CMP RS, HIFREE (AS) 

5¢44 223248 101044 BHI ERROVE 

5845 s29242 a423465 gears MOV RS, LOFREE(RS) 

5046 720246 312243 MOV RZ, 0( KS) 

5247 320258 185843 CLR (RZ) 

5048 027252 205943 CUR 0(R3) 

3049 223254 195943 CUR o(R3) 

5050 320256 212743 177775 MOV # SCALAR, 9(R3) 

5051 

5052 1JFNOF = SNOSTK 

5053 cure (ROD HES 

5054 BNE RETVAR 

5055 INC RO 

5056 MOV @,SVAR,(RSyo 

5057 COM (RS)o 

5058 com CR3)o 

5e59 tom (R3) 

5060 sus #8O,RS 

5064 ,ENDC 

5062 


5863 920262 719565 9090056 RETVART MOV RS, TLRS) SSOMETHING NONZERO, 
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5964 
5g65 
5266 
3067 


3066 - 


5269 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5084 
5082 
5083 
5084 
5085 
5086 
5987 
5988 
5089 
5090 
5993 
5092 
5093 
5996 
5095 
5096 
5097 
5098 
5999 
5420 
5491 
5492 
5403 
5404 
5105 
5406 
5107 
5108 
5109 
5412 
5143 
5412 
5113 
5114 
5415 
5416 
5117 
5118 
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5119 
5128 
5121 
5422 
5423 
5126 
5425 
5126 
5427 
5128 
5129 
5130 
5131 
5432 
5433 
5134 
5435 
5136 
5437 
5138 
5439 
5140 
5442 
5142 
5143 
5444 
5145 
5146 
5447 
5448 
5449 
5458 
5154 
5152 
5453 
5154 
5455 
5156 
5157 
5158 
5159 
5168 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5173 
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020266 
323270 
820272 
920274 
320276 
329309 
320302 
928304 


820310 
328312 
328316 
820322 
920324 
820326 
320330 


O20334 


820337 


820340 
320344 


929350 


828353 


229354 
820360 
920364 
323366 
920370 
829372 
828376 
0209400 
020482 
a20404 
820406 
820418 
020414 
O28416 
920422 
820424 
628426 
828432 
020434 
929436 
920442 


MACX14 


220444 
029459 
320452 
928456 
820469 
820464 
028466 
820470 
020472 
920474 
020476 
820582 
320504 
20510 
329512 
220516 
023528 
820522 
920524 
029526 
8205350 
928532 
820534 
320536 
920549 
020544 
220550 
320554 
820556 
829568 
020564 
822566 
920572 
820574 
920608 
8223682 
220606 
920606 
923612 


020614 


920628 


voes 


164523 
99343 
140324 
280393 
124321 
220100 
101255 
ABGLS7 


819046 
304767 
121927 
AB1946 
812609 
898656 
004267 


846124 


080167 
004167 


952120 


300167 
920327 
104127 
205702 
483404 
304767 
085302 
280767 
981120 
985703 
084116 
422427 
183113 
016503 
885304 
020103 
108452 
124427 
coisa? 
121127 
904444 


Vo2a 


124127 
WO4444 
124127 
201436 
124127 
984433 
295204 
295903 
295704 
902483 
220427 
203083 
112721 
200407 
122721 
388304 
720100 
103018 
119421 
2BO3A4 
119421 
288726 
120120 
184002 
300167 
380157 
200467 
785204 
11503 
328365 
193013 
324327 
183423 
962793 
390767 
224304 
aaiase 
262703 
380762 


362703 


220365 
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1772376 


830504 
800056 


1754352 
124 


160574 
175216 


162 


160560 
944650 


175040 


477775 
990020 


280204 
298205 


22eMARa73S 
908224 
208242 
088277 


968377 
098375 
098376 


176636 
177266 
177576 


090014 
177775 
ageeie 


2080R4 


080004 


900012 
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RETLNOT SU 
SWAB 
“Ove 
Swas 
Move 
CMP 
BHI 
ume 

ISNUMY 


ERRTR7} JSR 


ERROV2} JSR 


EXPTEN) CMP 


EXPNEG) SNE 
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BGT 
LITZEROMMOVE 
BR 


MAKET2) MOVB 
LITCOMNE SWAB 
CMP 
BHIS 
“Ova 
SWAB 
MAKEOK! MOVE 
TST 
CMP 
BHI 
JMP 
TRNER4) JMP 
ERROVS} JMP 
MAKLNOE INC 
MOV 
LNOSROW ICMP 
BHIS 


TSLNOY = CMP 


STOLNO} 


STOAOK! TST 


(R35) KS 
rs 


TRANVAR 


RO, e($9P) 
PE Val 
CRO) wt, 
EXPTEN 
(SP) o,RB 
REMPACK 
RL MSGERR 
SLONGER 
NTLIN 


SLONGER 


SAVE PTR IN CASE OF BAD NUM 
FINS MANTISSA AND EXPONENT 


"LINE TOO LONG TO TRANSLATE? 


REAOY2 

RY MSGERR 
SRONGER 
\PTa\ 


SLONGER 


'PROGKAM TOO BIG! 


REAOY2 
RS.914630 
MAKFLIT 

R2 

EXPNEG 

PC, MPYTEN 
R2 

EXPTEN 
MAKFLIT 

RS 

MAKFLIT 
R4,8, SCALAR 
MAKFLIT 
LINE (KS), RS 
Ra 

RA,RS 
MAKUNO 
(4), #,G0SU8 
MAKUNO 
(R4),#, GOTO 
MAKLNG 


CRO) eB CabL 


MAKINO 


MAKFLIT 

RO, 0377 
MAKEL2 
MyILITLe CRi de 
MAKEOK 

wy VIT2e CRA) + 
R4 : 


RA, RO 
TRNERG 
R4,(RLI® 
Req 


R4, (RL) 
(SP)o 

RL, RO 

TRNERS 
TRANLUP 
ERRIRN 
ERRQVE 

Ry 

(AB) RS 
R3,LOFREE( RS) 
STOLNO 
(R3),8, SCALAR 
TSUNO 

#12,A5 
LNOS&GH 
(R3),R4 
FOUNDLN 

#4,R3 

LNOSRCH 


SNOSTK 
#4, R3 


SNOSTK 
#O,RS 

RS, LOSTROKS) 
STOAOK 

PC, UPPACK 
RS, LOSTRIRS) 
ERROVS 

aGR3) 


RO, HIFREE(RS) 


CHECK THAT THE SYMTAB SPACE 
y1S “OT OCCUPIED BY STRINGS 


HIF (7 1S, MOVE STRINGS UP 
SAND CHECK ROOM ENQUGH ARAIN 


VADJUST SYMTAB ADDRESS 


Pei” 
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5474 320624 104351 BHI ERROVS 
5175 020626 719365 ogoa14 mov RS, LOFREECRS) 
5476 828632 205943 CLR otRS) 

5177 9206034 219443 Mov R4,0(R3) 
5178 920636 295726 FOUNOLNITST (SP)o 

5179 920649 300167 177422 JMP RETLNO 
5180 920644 295703 MAKFLITE 1S? R3 
5181 020646 081902 BNE CALNRM 
5182 020659 705704 TST R4 

5483 920652 201714 BEG GITZEKO 
5184 920654 094767 174674 CALNRM} JSR PC, NORM 
5185 020660 112721 300374 Move OPLIT A GRIDe 
5486 020664 220303 SWAB R3 

5187 020666 720199 CMP Ri, RO 

5188 920679 193325 BHIS TRNERS 
5109 920672 119324 Move RS, (R16 
5199 920674 280303 SWAB RS 

5191 929676 119324 MOVB RS, (R10 
5192 828709 090776 BR LLTCOMN 
5193 

5194 
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5495 LTFNOF  SNOSTK 
5196 


a 
e 
e 
ry 


5197 } SUBROUTINE fUPPACK! CALLED BY JSP PC 

5198 ' PACKS STRING STORAGE TOWARO HIGH CORF 
5499 5 R@ UNUSED 

5200 ' R1,R2,R3_ PRESFRVED 

5201 ' R4 UNUSED 

5202 ’ RS MUST POINT TO USER AREA 

5203 } SP GOES 1% NEEPER AFTER JSR 

S204 UPPACK} MOV R4ge(SP) 

5205 MOV R2,0(SP) 

5206 MOV R3,0(SP) 

5207 CLR <(SP) 

5208 MOV WESTR(RS) RE 

5209 MOV WUPREECRS) ,R2 

5218 MOV R2,HISTR(RS) 

52a UPPLOOPICLR (SP) JGET END OF THE NEXT STRING 
5212 ayse o§R4),¢SP) 

5213 BNE YPPNZKO H(LAST BYTE CONTAINS THE LENGTH) 
5214 UPPBADS CMP. RL, LOSTRERS) 

5215 BHI UPPLOOP 

5216 MOV R2,LOSTRERS) 

5217 TST (SP)e 

5216 MOV (SP)o,RS 

5219 MOV CSP) O,R2 

5220 MOV (SP)o,R4 

$221 ars Pp 

5222 UPPNZROISUB (SP), KY FAPORESS BACK PTR 

5223 CLR RS 

5224 BSB CRA GRS 

5225 . SWAB RS 

5226 8188 @(RLIRS sGET IT IN RS 

5227 SWAB RS 

5228 oEc Ry 

5229 arr RS,e4 ICHECK REL TO SYMBOLS 
5230 ; aEQ 196 

5232 DEC RS 

5232 apo (RS) ) RS yYES, ADD BASE OF SYM Yaa 
5233 : cMP R3,POLCRS) IMAKE SURE IT#S NOT TOO WY 
5234 BHIS UPPBAD 

5235 cmp R3,SP sIN STACK IS OK 

3236 BHIS vPPGooo 

5237 cme R3,ARNAYS(RS) FIN ARRAYS 1S GOOD 

5238 BHI UPPBAO 

5239 CMP RO, HIFREE (RS) yIN FREE STORAGE IS BAD 
5240 BHI UPPGOOD 

5241 CMP R3,LOFREE(RS) 

5242 BHIS UPPBAO 

5243 cur R3,¢R9) 

5244 BL0 YPPBAO sGELOW SYMBOL TACLE [S Ba0 
5245 UPPGOOD! ADD #4, (SP) sGOOM STRING, MOVE IT UP 
5246 CMP CAS) AS 

5247 BNE UPPBAG (DONT GARBAGE COLLECT 1T) 
5248 400 (SP), Kt 


3249 sue RL, (RS) 


BASIC. 


$250 
5251 
5252 
5253 
5254 
5255 
35256 


BASIC, 


5257 
5258 
5259 
5260 
5264 
5262 
5263 
5264 
5265 
5266 
52607 
5268 
5269 
5278 
5272 
5272 
5273 
5274 
5275 
5276 
5277 
52378 
5279 
5280 
528s 
5282 
5283 
5284 
5285 
5286 
5287 
5288 
5289 
5298 
529. 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5308 
5304 
5382 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5340 
5314 


MACXL1 


MACX11 


320702 
920704 
220786 
929710 
320714 
020716 
320722 
820724 
920730 
920732 
820736 
920748 
322742 
920744 
320746 
820758 
920752 
823756 
920768 
929762 
020766 
820778 
820772 
820774 
322776 
821928 
821002 
221926 
621018 
21912 
921014 
221920 
g21822 
321024 
821038 
321032 
24036 
321048 
321044 
921946 
321858 
321052 
821856 


321060 
321262 
321066 
824970 
321374 


vee. 


ye2s 


385092 
495003 
oO5gn4 
122027 
201775 
124927 
103427 
121027 
101924 
020327 
184405 
285290 
95702 
302764 
885222 
800757 
084767 
095046 
1129126 
162716 
862604 
085583 
905702 
001745 
205202 
280743 
122927 
204024 
293792 
281003 
712702 
680733 
383008 
122027 
304775 
124927 
103495 
121927 
191992 
903249 
980765 
122027 
201409 


395046 
124927 
281056 
320165 
BOL453 


22aMARe73 


22mMARC7S 


080048 
280068 
000072 
014630 


474460 


9o0008 


800856 


190000 


200040 
oengea 


000071 
999056 


980495 
260020 


16185 PAGE 6704 


aoo 
“ove 
bec 
aGcT 
BR 
1 ENOC 


16425 = =PAGE 68 


, 
' 
J 
’ 
’ 
VAut 
CLR 
CUR 
CLR 
NUDIGITICMPB 
BEO 
CMP 
ayo 
CMPB 
BHI 
CMP 
BLOS 
INC 
TST 
aLT 
INC 
BR 
CANFITI JSR 
CLR 
MOVE 


NOTDIG! CMPB 


8R 
DOTROT! BGT 
DOTIGNOICMPB 
BEO 
cmPB 
8,0 
curs 
BHI 
INC 


aR 
PASTOOTICMPB 
Bea 
DOTBADy 
NOTDOT] CLR 
CMPB 
BNE 
CMP 
8EQ 


R2y (RZ) 
eCRZIPeCR2) 
csr) 

104 

UPPBAQ 


SUBROUTINE ‘VAL? 


CALLED BY JS 
CONVERTS AN ASCII STRING AT (RQ) 


R7 


TQ A VALUE IN R3,R4, ANDO 
AN EXPONENT IN RZ 


R2 

RS 

Ra 
CRO) O. HBL 
104 

CRO) 88 
NOTOIG 
(RO), #E9 
NOTOIG 
RS, #14630 
CANF IT 

Re 

R2 
NUOIGIT 
R2 


NYDIGIT 
PC,MPYTEN 
wo (SP) 
(RB) 4, (SP) 
#10, (SP) 
(SP)o,R4 
RJ 


R2 
NUDIGIT 
R2 


NYOIGIT 
(ROO ME, 


oOTROT 
#300000,R2 
NUOIG)T 
DOTIGNO 
(RO) 4) #8L, 
a4 

(RO) IG 
PASTOOT 
(RO), 89 
PASTOOT 
RO 
DOTIGNO 
(ROO; Ht, 
OOTBAG 


e(SP) 

OCR) ate 
NOEXPON 

RA LINE (RS 
NOEXPON 


HDEC PLACES+100942 OR TRAILING ZERDES, 
HHIGH ORDER OF 32 B17 INTEGER, 
yLQw ORDER OF S52 BIT INTEGER, 


JIF HIGH WORD GREATER THAN THIS 
ITHEN CANT FIT ANOTHER OIGIT IN 32 BITS, 


ICANT FIT DIGITS IN MANTISSA, BIT ITS 
SHAFTER POINT SO NEEDNT COUNT THEM, 
ICANT FIT OIGITS IN YANTISSA SO MUST 
HKEEP TRACK OF TRAILING 7EROFS; 


JAMU ADO IN THE DIGIT, 


SFITS IN MANTISSA, 
JFITS IN MANTISSA 3UT AFTER POINT SO 
SCOUNT DECIMAL PLACES, 


sO0OT COMES AFTER SHORT NUMRER SO GET 
VREAMY TO COUNT DECIMAL PLACES) 


HOOT COMES AFTER FULL MATISSA WITH 
STRAILING ZEROES SO IGNORE MARE DIGITS, 


SOOT COMES WHILE IGNORING TRAILING 
HAFTER POINT WITH FULL MANTISSASERROR, 


tNO (El AFTER THE NUMBER 
JTF ITS THE FIRST THING ON THE LINE IT 
IMUST RE A LINENO SO fE4 IS TLLEGAL, 


Seed 


BASICL 


5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5328 
5324 
5322 
5323 
5324 
5325 
5326 
5327 
5328 
5329 
5330 
5331 
5332 
5333 
5334 
5335 
5336 
5337 
5336 
5339 
5340 
5344 
5342 
5343 
5344 
5345 
3346 
5347 
5348 
3349 


BASICL 


535¢ 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 
5383 
5384 
5385 
5386 
5387 
5388 
5389 
5390 
5394 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5404 


MACKXA 


821076 
821198 
21104 
821126 
B21112 
B21114 
321120 
821122 
921124 
821138 
821134 
621136 
322142 
021144 
921150 
821152 
621154 
0214156 
021160 
822164 
921166 
021174 
622176 
821209 
821202 
921204 
21218 
021212 
821214 
B21216 
824222 
821224 
821226 
821230 
824234 
321236 
021248 


MACX11 


021242 
021244 
921246 
021250 
921252 
21254 


821306 
921310 
21312 
821314 
821316 
321329 


821352 
821354 
021356 
021360 
21362 
821364 


vo2s 


285200 
1212927 
804774 
122927 
201406 
124027 
901003 
205200 
312716 
122027 
904775 
124927 
183423 
121827 
101020 
411646 
086316 
396316 
366616 
986316 
942766 
062616 
095946 
112016 
962616 
162716 
380747 
895716 
882903 
942716 
085416 
AB5782 
802983 
442782 
905422 
262602 
499207 


VO22 9 22eNAR7S 


021256 
921325 
821256 
900008 
921256 
999000 
#21256 
921396 
824305 


024322 
824351 
824322 
200000 
821322 
980009 
21322 
821352 
822353 


B21366 
924425 
021366 
200028 
424366 
cages 
221366 
024426 
922425 


22eMARe73 16165 PAGE 6804 
ING RO 
090040 Cupe CRO), 88) 
Bea 106 
880055 CMPB (RO) Oo, ate 
Bea EXPOIG 
ee005s CuPS (RB) Rts 
BNE EXPOTG 
INC RO 
1980008 MOV #309080, (SP) 
98040 EXPOIG) CMPB CAG), BL 
REG 184 
agoneo cMPa (RO), ee 
8,0 EXPOUN 
080071 CMPB (RO), #09 
BHI EXPOUN 
MOV (SP), 0¢SP) 
aS (SP) 
ASL CSP) 
090002 ado 2¢SP),¢SP) 
aS, (SP) 
877777 «=geEEe2 ayc 877777 ,2¢SP) 
aod (SP) 0, (SP) 
CLR =(SP) 
mova (RO)O, (SP) 
400 ($P)4, (SP) 
geese SUB #18, (8P) 
BR EXPOIG 
EXPOUN| TST (SP) 
BGE NOEXPON 
190008 Bye #108000, (SP) 
: NEG (9?) 
NOEXPONITST R2 
BGE ExPOK 
190008 arc #409000,R2 
NEG R2 
EXPOK{ ADO (SP) o,R2 
ars PG 
16105 §=PAGE 69 


4 
} SYSTEM 3/0 BUFFERS ANO HEANERS 
U 


’ 
} pApER 
’ 


PRBFHO} 


PROUF 
PRBEND 


4 
} paper 


' 
PPBFHD} 


PPBUF 
PPBEND 


1[PNOF = SNOPTP 


’ 
} LINE PRINTER 


U 
LPBFHO! 


TAPE READER 

* pRByF jiBeTRY 
+ PREEND 
WORD PRBUF 
od 8 
»WORD = PROYF 
WORD @ 

s, 

=, eSPROSZ 

8,01 

EVEN 

TAPE PUNCH 

* peour 
e PPBEND 
;WORD = PPBUF 
> a 
WORD = PPBUF 
WORD oo 

, 

8, +SPPBS2 

s,e1 

EVEN 

sENOC 

vIFNOF = SNOLPT 
bd LP8YF 
2 LPBEND 
,WORD = | PBUF 
e a 
WORD LPBUF 
sWORD 

‘, 

©, oSLPBSz2 

aed 

rEVEN 

,ENOC 


1BEND 
sOCETL 
sBGET2 
sBPur 
sOFSPEC 


yOSTRT 
1BFND 
sOCETL 
sBGET2 
sOPUT 
1BFSPEC 


sBSTRYT 
1BEND 
1BGETS 
sBGET2 
s9ryr 
JBPSPEC 


BASICL 


5402 
5403 
5404 
5405 
5426 


BASICL 


CALLM2 
CALLA 
CARRET 
CHKCHR 
CLMNLP 
CLRFRE 
CNCFLG 
COLUMN 
cos 

DEFOUN 
DJMOON 
DIMSCL 
OOCHAR 
DOTBAD 
ECHOSP 
EDJ UMP 
EDIMVY 
EDIRLC 
EDISKI 
END 

ENOSQY 
EREXP 
ERRAGL 
ERROEE 
ERREXP 
ERRMIX 
ERROV2 
ERRPDS 
ERRRUN 
ERRSXA 
ERRSX4 
ERRSX8 
ERRTR7 


FORNEX 


MACX11 


MACX11 


807438 
937519 
287610 
eneeee 
883222 
988992 
280049 
019862 
099010 
010206 
023122 
803230 
820196 
910224 
809492 
818508 
980106 
908034 
eneres 
802506 
982692 
002462 
o14494 
021060 
000104 
001744 
GA1632 
804700 
001274 
O83254 
917700 
911666 
Gyse12 
004040 
812516 
011650 
020344 
283666 
902634 
12674 
911966 
886234 
820338 
987734 
619616 
821130 
821236 
099014 
8135250 
13276 
843162 
B13144 
843132 
204620 
084412 


ve2s 


921426 
Bdagag! 
9oo0ee! 
724426) 
JOaeeL 


Vvo2a 


G 


22eMARe73 


22eMARw73 


ADOOVF 
ADSTKL 
ALLOC 
AMATCH 
ATAN s 
8FSPEC s 
BOMS 
BOMBNX 
BSYRT #8 
CALL 
CALLNM 
CALNRM 
CCEXIT 
CHKISE 
CUMNPP 
CLALOO 
CNOFLG 3 
COMGHK 
COSFN 
DEPGOT 
OJMGOT 
O1VvL00 
OO{TNO 
OOTIGN 
EDICHG 
EOEMME 
EDLOVE 
EDIRLO 
EDISRC 
ENOAB 8 
cor 
ERLOG 
ERRARA 
ERROEF 
ERRFNY 
ERRNEX 
ERROVS 
ERRPOS 
ERRSSY 
ERRSXY 
ERRSXS 
ERRSXD 
ERRTRB 
ERSTAR 
EXECUT 
EXPOUN 
EXPTEN 
FILLCH s 
FIXRET 
FLINE 
FNFN 
FNREPL 
FNSWAP 
FORGTL 
FORNOL 


16105 PAGE 78 
ENOAB oy 
rCSECT 
BEGIN 8, 
; 8, eENOAB 
1ENO 
16405 PAGE 7804 
097458 aQOPOS 
817326 ALLEXT 
087556 ALLOCL 
017550 arce 
eeeeen G AYNFN 
809012 BGETS 
807742 BOMBOO 
913082 BOMBOK 
008090 BUFCLR 
003012 CALLCK 
003474 CALLP 
020654 CALOG 
O19322 COMES 
918324 CHKOSE 
900490 CLMNTT 
010442 CLROK 
008107 COOE 
B10336 COMES 
011792 CR 
862550 DELMSG 
082544 OTMLOO 
049564 OLVTEN 
011490 DOMSG 
224024 DOTROT 
201418 EOICON 
824262 EDIMOD 
881436 EDIPAS 
881736 EOIROO 
201390 err 
021426 ENDCR 
803254 ERAOD 
827734 ERPOG2 
887726 ERRARG 
882542 ERROIM 
BB5164 ERRFPY 
805144 ERROVR 
820550 ERRPOL 
842670 ERRPOS 
O43742 ERRSS2 
883178 ERRSX2 
011650 ERRSX6 
@12122 ERRSYN 
906242 ERRUFN 
811666 ERSXio 
202654 EXITa2 
21212 EXPFN 
828360 FACS 
800112 FILLCO 
0135252 FIXTSY 
013254 FULT 
@12700 FNNOCO 
B4seeo FNRLUP 
612724 FOR 
B84568 FORLOO 
024336 FORONE 


007524 
097744 
oo2300 
011650 
a41724 
waeeus 
010014 
019142 
010152 
033070 
0a3nd2 
42644 
087073 
849352 
090056 
012470 
080046 
007076 
oaoa1s 
007200 
wa2254 
019500 
045526 
o24022 
004472 
ooeda 
204340 
go1620 
081400 
047706 
011606 
M1166 
007734 
202534 
eeoece 
011606 
011120 
211404 
811254 
085452 
00404 
041690 
o13e46 
004506 
007404 
842752 
ooaged 
000110 
043230 
811052 
o13024 
013100 
O04134 
094342 
284276 


ADOSTK 
ALLLOO 
ALLOC? 
ARRAYS 
SECIN 
AGET? 
ROMBJM 
SPOL 
AUFEMP 
FALLS 
ALLY 
CANFIT 
CEXP 
CLEAR 
CLRECH 
ALRVAR 
COLo"c 
fOMTAB 
CRLFME 
MEVERR 
AIMNON 
MOALLO 
NOPYT 
FECHORA 
EOIGRO 
EOIMAY 
POLPUT 
FOTSAM 
FOITL 
ENAGUO 
ERCHAN 
FRPOGL 
FRROAT 
ERROLV 
FRAGA 
FRROVY 
FRRPN2 
FRRRET 
FRRSS3 
ERRSXS 
ERRSX7 
ERRTRN 
ERRANO 
FERSX12 
EXP 
FXPNEG 
FAC2 
FILUNO 
PIXUP 
FLY 
FNNUME 
FNRSNU 
FORGO 
FORLTL 
FORSK] 


807370 
397600 
882432 
goon12 
OnGuB4R 
anenge 
910126 
810636 
215442 
20310" 
BA3132 
28752 
012656 
oe1r64 
806732 
810424 
Bo52u6 
G17582 
O87478 
O17"44 
a02z54 
202444 
006262 
907052 
BY1956 
OA1%02 
981434 
0166" 
B01222 
017668 
B10410 
@11762 
O4u642 
o12230 
924046 
go1ei4 
211662 
024126 
O14776 
0137356 
805236 
820436 
gnaags 
910404 
eeaane 
020402 
aagns2 
@OG111 
O13174 
813302 
@131740 
213160 
904622 
OA4972 
O043506 


S 


BASICL 


FORBER 
FPPSAV 
FUNRET 
GETCHL 
GET2BY 
GOTECH 
GSBCTR 
TOEV 
TFL EQR 
TFNUME 
ILyTco 
IMMSTM 
TNPEOL 
TNPNGU 
INPSTO 
INT 
INTS 
INT2A 
uNTS 
TSLNO 
ITABLE 
KBHWO 
KEYWOS 
LEVLIT 
LEV2LT 
WIENDUN 
LINGET 
LITGOM 
LITOK 
LITZER 
LOCLOO 
LOGFN 
LPSENO 
LPINT 
LSTCHA 
LSTFLB 
GSTILa 
LSTLIN 
LSTNEX 
LSTSPE 
MAKEI2 
MAKLNO 
MSGCOM 
NEXENO 
NEXLTL 
NOCNC 
NOQML 
NOROOM 
NOTIT 
NOWRAP 
NUMBIG 
NYUMP IX 
NYMFMS 
NUMNEG 
NUMPOS 


BASICL 


NYMSTT 
010803 
OTABLE 
PC 
PNOGO 
POWUP 
PPBUF 
PRB 
PREC2 
PREOT 
PRI IMP 
PRISEM 
PRITB 
PRNTOE 
PRG 
PUSH 
PYTCCO 
QYOTPA 
READGO 
READY? 
REMPAC 
RETRY 
RNOCT 
HUN 
RISAVE 
RSSAVE 
SAVCHA 
SCANPN 
SJNFN 
SK [PTX 
SLASH 
SPECME 
SS2SAV 
STOCOM 
STOSTR 
STPRO 
S,8102 
TABLE2 
TABL 
TOL 4EN 
TKS 


UPARRO 


MACX11 


804576 
813334 
012056 
813452 
013370 
886770 
= 928032 
2 089077 
003472 
003552 
041042 
802232 
086240 
086220 
806136 
014004 
B14074 
844132 
844232 
029692 
19422 


§ 989192 


009404 
044516 
914554 
015540 
B14344 
020516 
915622 
920504 
044730 
011746 


= 821425 


907256 
045200 
915306 
815236 
015154 
845122 
015206 
020512 
0290554 
015476 
085070 
085862 
062672 
086014 
016670 
829294 
016636 
016222 
916024 
916528 
016052 
816060 


MACXi4 


016866 
002136 
018416 
5%000007 
017146 
887340 
s 021322 
8 177552 
911372 
807174 
885452 
905434 
005550 
807036 
= 209208 
014256 
16724 
047644 
086314 
901140 
820064 
017510 
8 909970 
Be2224 
§ 909046 
3 900052 
011658 
617124 
011674 
817234 
011972 
006702 
2 929026 
8173008 
017642 
911658 
806604 
911416 
017038 
882030 
8 177568 
= ongioe 
017354 
820544 
806734 
011624 
2 009056 
812536 
812552 
812342 
012412 
012472 
812690 
612250 
612126 


a 


Veer 


Ve2a 


22eMARe7S 16105 PAGE 7002 


FOUNOL 


MAKEOK 
MINYS 
MSGERR 
NEXFIL 
NEXT 
NODIG] 
NoquoT 
NOSUBS 
NOTKWO 
NOWRP 
NYUMOIG 
NUMFLT 
NUMUMP 
NUMNOR 
NUMPRS 


820636 
915532 
843576 
043604 GC 
ab6216 
003754 
046740 
083316 
803676 
823466 
gi18g4 
843746 
886262 
006384 
805650 
847422 
044106 
o14140 
a44242 
820310 
047098 
886626 
gas2ie 
844514 
o80e12 
gage2e 
944374 
045664 
045674 
820560 
014756 
0eBg72 
821352 
907322 
015074 
015266 
945250 
015350 
915044 
045250 
020530 
011470 
045466 
g20012 
004644 
820150 
840716 
043734 
920042 
843434 
836314 
946422 
@47452 
046154 
916064 


22eMARe73 = 461 85 


OOEV = 900076 
OPERAN 040640 
OUTO1B =A 7B24 
POL s 900084 G 
POP 044278 
PPB = 177556 
PPERR 007242 
PROEND ® 921305 
PRECS O11364 
PRUBOT 895336 
PRIMOR 995350 
PRISJ 805506 
PRITBQ 925600 
PRNTOL 025228 
PR? 8 B00S40 
PUSHF B11634 
PUTCHA 016676 
READ 606246 
READOY 906376 
REAFIN 886426 
RESREG 817104 
RETURN 824060 
RNOGOT 282596 
RO 8x000000 
R2 3X000082 
R4 8X000004 
SAVE 082442 
SCRATC 201054 
SKIPEO 047168 
SKIPOL 017156 
SOPRAT 911658 G 
SQRFN 011710 
STAR 021542 
STOLNO 920614 
STOSVA 011650 
SUBINT 817332 
$,0102 986622 
TABLES be2016 
TAB? 017836 
TBLSEN © BL1a92 G 
TPB 8 177566 G 
TPINT 806642 
TRANGY 017492 
TRNFN 047734 
TRYKWO 817456 
TSTs2 11632 
v2 = 900060 G 
UANJMP 012532 
UAd 012152 
YALRC 812352 
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FOUNOV 
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GETOYT 
GETX 

GONOSA 
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IFSGY 
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INPYES 
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NUMFML 
NUMLPL 
NUMOK 
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PPBEND 
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PRBFWD 
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PRICM 
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READBA 
READY 
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RETVAR 
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ROSAVE 
R2SAVE 
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UA2R 
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O43374 
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911024 
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OL4424 
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886470 
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ee22e0 
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045700 
014654 
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811094 


§ 622396 
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035110 
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011690 
645436 
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645594 
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FUNOK 
RETCHA 
GErLay 
eosur 
ROTONE 
WISTR 
TFLENO 
1FLOOP 
IGNOSE 
IMMER 
TNPEXD 
INPNEW 
INPRTR 
INPY"4 
INTRTS 
INT2 
IN?7 
TQWAIT 
1Tag 
«aco 
KEYA 
LEVFME 
LEVALT 
LINA 
LINENO 
LISTSV 
LITNAR 
Lirtst 
LOCGET 
LOFREE 
LPe 
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Lsras, 
USTEAL, 
LSTILB 
LSTK¥O 
LS?LO0 
LSYPTR 
LSTVAR 
MAKELI 
“SG 
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NORNOO 
NOTUOT 
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MUMALN 
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MUMPM2 
NUMLPS 
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NUMSHF 
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OPRFN 
PASTNO 
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POWLP 
PPAFUD 
PPS 
PRAYF 
PRECS 
PRICOM 
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PRISTL 
PRITES 
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PYRINT 
pyrayT 
PUTITI 
PEAODU 
PEAOYS 
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RETLNO 
REVRSE 
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RL 

R3 

P5 
SAVRGL 
SIN 
SKIPRT 
SKIPS5 
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SS4SAV 
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STOVAR 
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TARLS 
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KA 
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VAPRBLE 


813396 
O12024 
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013362 
203754 
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aoon76 
903450 
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814312 
813620 
006942 
onge7e 
914004 
14560 
9143552 
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ga2a7e 
Ai5974 
015612 
0144629 
200014 
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007314 
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015260 
215062 
915006 
@15316 
g15412 
820844 
g15474 
826746 
9a5052 
@67250 
ov6noo 
916310 
a21960 
282778 
016240 
816576 
916394 
016954 
015746 
816246 
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012116 
21052 
B11534 
067342 
821306 
177554 
21256 
811550 
825356 
025156 
225906 
905444 
gue14e 
G07104 
316604 
820230 
806332 
081972 
13946 
820266 
212022 
BO0766 
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a17752 
eeneen 
417242 
g1745¢ 
990113 
aoge24 
O11506 
303276 
317244 
aooaus 
002718 
guss2n 
202766 
177362 
g47e22 
17764 
817772 
317306 
o11is2n 
206724 
a12524 
g12542 
G12320 
g12492 
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a12916 
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011474 
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XCHAR 
syR 
SPOLSH 
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oa04n 
013518 
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22eMARe7S 
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011240 
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200030 
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080266 
900256 
gao2g2 
BOB274 
920246 
200296 
900274 
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ge025e 
080232 
929222 
900264 
900304 
908275 
900257 
477777 
g0242 
021426R 
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VaRSRe 
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SOVR 
SMLR 
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:CLEAR 
;OATA 
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eaeeee 
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8o0030 
889273 
Oagse4 
280223 
099247 
oag225 
809374 
Bag204 
099375 
aog244 
9992539 
909234 
998203, 
gag220 
809203 
477775 
gag265 
oa92s0 
009276 
oag24a 


a1414352 
014330 
aeooee 
aeaaas 
angen 
avgz2s 
900262 
gagzz2t 
200245 
goazer 
023262 
900205 
200376 
gee2108 
gog252 
177776 
gnoz.2 
028217 
900237 
920303 
O20z34 
goe24y 
920235 
gng233 


ADDINT 
apoove 
ADOPOS 
ADOSTK 
AQDZER 
AOSTKY 
ALLEX] 
ALLLOO 
ALLNOA 
ALLO 
ALLOCS 
aLLoce 
AL OG 
AMATCH 
ARGS 
ARRAYS 
ASSIGN 
ATAN 
ATNFN 
BEGIN 
BENO 
BFSPEC 
BGETS 
UGET2 
BL 


8Qme 
80mMB00 
BOMBUM 
BOMBNE 
SOMBNX 
BOMBOK 
aPoL 
BPUT 
BSTRT 
BYFCLR 
BYFEMP 
BYFTP 
CALL 
CALLA 
CALLCK 
CALLML 
CALLM2 
CALLNM 
CALLP 
CALLX 
CALNRM 
CALOG 
CANFIT 
CARRET 
CCEXIT 
COMES 
CEXP 


CHKCHR 
CHKISE 
CHKOSE 
CLEAR 
CLMNLP 
CLMNPP 
CLMNTT 
CLRECH 
CLRFRE 
CLRLOO 
CLROK 
CLRVAR 
CNCFLG 
CNOFLG 
CODE 


COLONG 
COLUMN 


ComCHK 
COMES 
COMTAB 
cos 
COSFN 
CR 


CRLF ME 
OEFOUN 
OEFGOT 
DELMSG 
OEVERR 
OJMOON 
OIMGOT 
OyMLOO 
OIMNON 
OIMSCL 
OlVLOO 
OLVTEN 
OOALLO 
DOCHAR 
OOLTNO 
OOmMSG 
DOPUT 
OOTBAD 
OOTIGN 
OOYTROT 
ECHOBA 
ECHOSP 
EDICKG 
EOLCON 
EDIGRO 
EDIyMP 
EDIMME 


2088 
885 
a93 
6468 
3678 
3668 
3258 

20708 

2605 

26048 

2607 
646 
34848 
3498 
3178 

4859 

1607 

76 

2408 

2539 

2198 

4889 

63 

2785 
297% 

4857 

2126 
9308 
924 

2103 
684 
928 
922 
9140 
915 
969 

26488 

26478 
954 

3934 

2918 

43028 

2023 

5305 

5295 

5292 

2094 
3478 
7354 
7588 
756 
827 
O94 


22498 
22468 
22598 
22298 
22568 
4839 


2294 
22888 
22768 
gaye 
963" 
3186 
49240 
3Oo3# 
314s 
11638 
3184 
318.8 


3667 
293% 
3656 
3658 
1238 
53135 
24038 
24208 
24418 
24348 
2429 
24378 
27458 
3663 
3669 
653 
36738 
2456 
19808 
19960 
1155 
1124 
1133 
eer 
104 
11558 
51840 
33978 
S2798 
49828 
2583 
24158 
33998 


25008 
1768 
1605 
868 
877 
876 
326 
20778 
262746 
2625 
26248 
883 
349 
359 
318 


16298 
3248 
4297 
25448 
24178 
4882 
3176 
31768 
668 
4866 
2148 
1012 
10230 
2120 
4625 
10138 
9320 
934 
9218 
972" 
2654 
4349 
9678 
39368 
2928 
4305 
2025 
53268 
52968 
52958 
21098 
348 
742 


7618 
84on 
696 


2973 


4842 


40308 


“3397 


sas 


4976 
2033 
4579 
4583 
1245 
5324 


4574 
4578 
2822 


24798 


12538 


2505 


7038 


4837 


2627 


2142 


1679 


4583 
24508 


2597 


4648 
4647 
875 


zoo." 

4836 

4296 
697 


657 
4299 


1189 
4978 


40598 


983 


3947 
29498 


20298 


2065 


2629 


2146 


1736 


4584 


2518 


To13 


{038 
4642 
870 


658 
4301 


1195 


2165 


4174 


2513 


4704 


2022 
913 


1606 
4309 


1742 


2185 


4412 


2549 


1846 


3905 
1047 


1639 
4on0 


1803 


3692 


4864 


2518 


2407 


4627 
1186 


1677 


1855 


3696 


4893 


2328 


4298 


1759 


1792 


2443 


3698 


4896 


23228 


1897 


1702 


2439 


3727 


4943 
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1716 


2529 


4624 
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3809 


4729 


3949 


4626 


4996 


3946 


1745 


3956 


4629 
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2407 


4122 
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EOtmov 
cOIMvy 
EQIOVE 
EOIPAS 
&OLPUT 
EOIRLC 
EDIRLO 
EOTROO 
EDISAM 
DISK] 
EDISRC 
EIT 
EOuTL 
ENO 
ENDAB 
ENOCR 
ENDQUO 
ENOSOU 
€or 
ERACO 
ERCHAN 
EREXP 
ERLOG 
ERPOO2 
ERPO1L 
ERR4QWO 
ERRAGL 
ERRARA 
ERRARG 
ERROAT 
ERROEE 
ERROEF 
ERROIM 
ERROIV 
ERREXP 
ERRFNY 
ERRFPY 
ERRGO 
ERRMIX 
ERRNEX 
ERROVA 
ERROV2 
ERROVS 
ERROVR 
ERRPO2 
ERRPOS 
ERRPOS 
ERRPOS 
ERRPOL 
ERRAET 
ERRRUN 
ERRSS1 


ERRSS2 
ERRSSS 
ERRSX2 
ERRSX2 
ERRSX3 
ERRSX4 
ERRSX5 
ERRSX6 
ERRSX7 
ERRSX8 
ERRSX9 
ERRSXA 
ERRSYN 
ERRTR? 
ERRTRE 
ERRTRN 
ERRUFN 
ERSQR 
ERSTAR 
ERSX412 
ERSX12 
EVAL 


EXEGUT 
EXIT92 
EXP 
EXPOIG 
EXPOUN 
EXPFN 
EXPNEG 
EXPOK 
EXPTEN 
Facy 


FAC? 


FF 
FILUCH 
FILLCO 
FILLNO 
FIXCL2 
FLUXRET 
FIXTST 
FIXUP 
FLE 


7498 
7628 
ores 
723 
7218 
709 
8268 
829 
8a58 
757 
7068 
699 
O8oK 
684 
1849 
54028 
4924 
4922 
4930 
1968 
2232 
2544 
31618 
23838 
SO5oe 
3194s 
1449 
3425 
2287 
73 
1792 
1336 
9948 
933 
2983 
3257 
1228 
82 
1329 
73 
1538 
TI3# 
793 
31458 
31648 
3058 
1209 
34049 
2955 
73 
1366 
18208 
3749 


754 
784 
640 
7438 
725 
728 
839 
435 


780 
741 
722 
704 
6858 
11858 
5405 
49350 
49278 
49330 
11868 
$2634 
2558 
3184 
3187 


14638 
34878 
2289 
23848 
1896 
13440 
1904 
938 
32798 
33498 
1115 
259 
13508 
Seeo78 
1532 


3044 
S174 
3283 
Sa47a 
1273 
3443 
29628 
1299 
1372 


3754 


2893 
4035 
1097 
1548 
3769 
28258 
1263 
43i4 
12638 
4774 
3240 
3418 
984 
5079" 
16568 
1886 
2789 
$179 
31628 
15078 
25578 
4166 
2885 
1819 
2137 
3183 
3318 
3326 
31834 
5106" 
33478 
50998 
3268 
2253 
2815 
33288 
3974 
4402 
32748 
2244 
2884 
3309 
3886 
4396 
897 
353 
3598 
352 
35978 
3592 
35940 
358p0 
3oide 


731 
7458 


o5e8 


i908 
747 
737" 
849 


2553 


3498 
2294 
3487 
19268 


1908 
943 


1217 


4341 
50898 


3194 
12998 
3439 


2745 
13898 


3765 


2897 
4039 
1099 
45998 
37748 
2883 
1359 
1325 
1269 
4842 
32438 
352 
1149 


4920 
3205 


3284 


1202 
3195 
1936" 
2139 
3399 
53218 
53398 


5105 

327 
2254 
2876 
3318 
3998 
4408 

328 
2249 
2896 
3323 
3975 
4398 
2072 

331 
2974 


35988 


749 
889 


25598 


3304 
2302 


1028 
945 


22128 


4543 
5145 


26538 


3767 


29008 
4041. 
1106 
2642 


2095 
$507 
4327 
12714 


ye5ow 
sod. 


4958 
3445 


4211 
3233 
io43 
2144 


5338 


4275 
2287 
2892 
3444 
3994 
4778 
4274 
2259 
2903 
3443 
3992 
4408 


2060 


£192 


3383 
2305 


953 


1137 


4545 


2869 


37778 


2904 
4067" 
{149% 
{709 


2922 
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13598 


{8990 


4964 
34868 


1277 
3447 
1975 
21448 


1499 
2262 
2944 
3583 
3996 


1423 
2256 
2945 
3585 
3993 
4483 


2262 


2307 


959 


11488 


15908 


2962 


3777 


1159 
4715 


4859 
1363 


1925 


4966 


1403 
3506 
1175 


1424 
2263 
2956 
3594 
4000 


4422 
2259 
2953 
3759 
3998 
4446 


2074 


23558 


963 


3447 


1165 


2557 
1394 


4966" 


1415 
3744 
1320 


1490 
2264 
2964 
3748 
au 


4492 
2268 
2968 
3766 
4444 
4779 


966 


34ae 


1173 


2825 
1399 


4977 


4427 
3757 
1340 


4491 
2429 
2966 
3764 
4151 


1493 
2428 
2974 
3833 
4145 


968 


1295 


32124 
140. 


5o72 


19a 
1374 


1495 
2434 
2979 
3649 
4152 


1497 
2434 
9996 
3859 
4447 


971 


1207 


3243 
1442 


9144 


1629 
1514 


1532 
2435 
2997 
3843 
4165 


1553 
2432 
3226 
3868 
4448 


976 


3427 
1426 


1724 
$581 


1564 
2436 
3225 
3851 
4472 


1563 
2545 
3266 
3861 
4153 
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3774 
1434 
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1585 
2543 
3258 
3862 
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1986 
2en7 
3262 
3674 
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4729 
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FLX 
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FNNUME 
FNRCOM 
FNREPL 
FNRLUP 
FNRSNU 
FNRSSC 
FNSWAP 
FOR 
FORGO 
FORGOG 
FORGTL 
FORLOO 
FORLTL 
FORNEX 
FORNOL, 
FORONE 
FORSK! 
FORZER 
FOUNOL 
FQUNOV 
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FPPSAY 
FRSTOY 
FYNGTI 
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FYNRET 
GGWAIT 
GeTaBY 
Ger2ey 
GEYBYT 
GETCHS 
GETCHA 
GETVAR 
GETX 
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GONOSA 
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IFSGT 
IGNORE 
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INPEND 
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INPLOO 
INPNEW 
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INPQK 
TNPPC 
INPRTR 
INPSTO 
INPYT 
TINPY®L 
INPYES 
INT 
INT? 
INTLA 
INTS8 
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INTS 
INTO 
INT7 
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INTS 
INTEXT 
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INTRTS 
IOINIT 
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TSUNO 
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TTABLE 
ITSIN 
JMPROY 
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3613 
3530 
2862 
3484 
35688 
35468 
3444 
35158 
3549 
35318 
34168 
1859 
1585 
1502 
15048 
1437 
1303 
1452 
1448 
1424 
14368 
1586 
5155 
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2237 
2233 
4309 
3175 
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3215 
3714 
2261 
2086 
3657 
369g# 
36898 

75 
36948 
1845 
1334 
1854 
2984 
1252 
2764 
3937 

3238 
4641 

3150 

3498 

3448 
1853 


1233 
1235 
12548 
1286 
1267 
12328 
1203 
1242 
1264 
10358 
2749 
2754 
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859 
2460 
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18448 
1772 
1836 
417734 
17828 
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1781 
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17798 
4829 
1054 
1765 
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7 
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3838 
3846 
3844 
3a5ie 
3830 
3855 
3825 
3873 
3848 
4684 
2794 
3a20 
6698 
3717 
5154 
4876 
4974 
3709 
2538 
4628 
1187 


1324 

26128 
36168 
35558 
34008 
34978 


34838 
3556 
35548 


3486 
$3948 
1509 
15358 


14398 
15088 
44720 
1446 

14330 
1433 

15188 
51768 


2984 
2976 
43068 
3177 
S2i30 
32228 
37168 
2189 
2083 
36598 
3718 
3936 
£163 
3729 
18478 
43398 
13230 
29668 
1257 
20028 
39398 
326 
46440 
316 
343 
723 
12020 


1239 
12430 
1285 
43078 
12878 
1237 
12688 
4244 
43050 
1968 
2aae8 
2aig8 
28148 
aso 
869" 
2462 
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18854 
19398 
1840 
1658 
1838 
16169 


4ea7 
18320 
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17798 
17628 
4725 

3842 

38430 
yesge 
3a508 
3875 

38544 
36608 
38728 
38768 
38768 
47048 
32538 
3627 


S926 
51540 
5a72e8 
49a5e 
3713 
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46260 
11998 
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1456 


2989 
2984 


3189 
3598 


3o5en 
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4776 
3718 


1259 
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794, 
2306 
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1246 


12498 
1064 
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2877 


3877 
3859 


3a52e 
4623 


3715 


4462 


3242 
3208 


3182 
34008 


3699 


1894 


4264 


748 


2363 
2632 
4844 


12648 


4063 


37908 


2894 
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$737 
SB64 
4943 
4129 
4178 
4528 
4777 
4938 
S134 


744 
811 
1154 
1367 
1547 
1637 


RSSAVE 
R4 


R4SAVE 
RS 


READ 
READBA 
REAOOU 
READGO 
REAODOU 
READY 
READYS 
READY2 
REAFIN 
REASRC 
REENAB 
REMPAC 
RESREG 
RESTOR 
RETLNO 
RETRY 
RETURN 
RETVAR 
REVRSE 
RNOL 
RND2 
RNOCT 
RKNOGOT 
KUN 
SAVCHA 
SAVE 
SAVREG 
SAVRGI 
SCANPN 
SCRATC 
SETLFE 
SIN 
SNFN 
SKIPOL 
SKIP@2 
SKIPAS 
SKIPEO 
SKIPHI 
SKIFPRT 
SKIPTX 
SLASH 
SOPRAT 
SP 


1895 
1953 
2451 
2552 
2938 
3666 
39998 
4096 
4337 
4435 
4485 
4684 
5043 
5114 
5180 
3318 
2748 
1016 
2042 
2651 
3329 
3866 
4274 
4443 
4618 
4912 
5139 
3328 
2758 
694 
789 
875 
1071 
1368 
1479 
1529 
1688 
1777 
1924 
2972 
2249 
2314 
2435 
2654 
2884 
2997 
3388 
3534 
3639 
3821 
3885 
3992 
4153 


1897 
1956 
2433 
2648 
2957 
3667 
3994 
4097 
4339 
4436 
449g 
4085 
5945 
5123 
5186 

332 

707 
1159 
2965 
2739 
3362 
3884 
4322 
4445 
4614 
4922 
$154 

333 

648 

697 

798 

aa. 
41074 
1379 
1486 
1538 
1635 
1782 
1927 
2074 
2258 
2354 
2436 
2632 
2892 
3239 
3309 
3583 
3728 
3633 
3886 
3993 
4154 


4329 
4607 
4835 
5175 
1889" 
1913 


1952 
1954 
6548 
683 
1029 
19488 
19478 
37120 
4959 


13198 
5179 
4888 
13628 
SQ6se 
33888 
3368 
3378 
339 
9808 
9128 
sev2ws 
agen 
3925 
2058 
892 
867 
21268 
3174 
34740 
4734 
474g 
4736 
724 
47478 
47538 
4752 
2983" 
3oa5ea 
644 
1419 
1208 
1266 
1497 
4558 
1586 


1899 
1956 
2454 
2650 
3283 
3009 
3992 
4998 
4341 
444g 
4496 
4887 
5946 
5126 
5489 
se2y 

735 
4245 
2066 
2744 
3363 
3887 
4326 
aaa7 
4925 
4944 
5477 
3027 

641 

783 

794 

vis 
4448 
4397 
4487 
4546 
4677 
4793 
£937 
2978 
2232 
2404 
2459 
2633 
2696 
3228 
3328 
3585 
3712 
3843 
3902 
3996 
4499 


4374 
4640 
4059 
5340 
1923 
1920 


990 
2204 
4762 
1960 


4970 


4094 


337 
338 
989 


4374 
2u29 
A7L68 


a7ay 
4748 


838 


644 
4120 
i210 
1272 
1498 
4559 
1771 


1981 
2088 
2455 
2682 
3392 
3796 
3993 
4099 
4343 
4442 
4538 
4889 
5047 
35147 
5199 
3397 

743 
1288 

967 
2954 
3364 
309g 
4330 
4459 
4627 
4946 
5182 
3639 

642 

745 

605 

948 
4144 
1492 
1488 
1552 
1702 
48n2 
4947 
2982 
2253 
2405 
2479 
2636 
2983 
3225 
3323 
3591 
3734 
3856 
3983 
3998 
4404 


4389 
4692 
4863 


19378 


909 
9088 


4972 


4897 


988 
2602 
3982 


4389 
2156 


930 


654 
1126 
$297 
1274 
1499 
1561 
1772 


£983 
222 
2480 
2655 
3394 
3792 
4028 
4262 
4352 
4aa4 
4574 
4896 
5048 
5148 
S92 
3399 
749 
{272 
2069 
2976 
3365 
4029 
4338 
4464 
4685 
4947 
5265 


644 

729 

866 

949 
1162 
i409 
i489 
{553 
i702 
1887 
2012 
2129 
2254 
2406 
2543 
2806 
2944 
3226 
3368 
3648 
3736 
3654 
3925 
4008 
4165 


4394 
4647 
4973 


1939 
5298 


49754 


981 
4628 


4604 
2175 


1235 


664 
{135 
1218 
4275 
4504 
{563 
{779 


1914 
2239 
2482 
2896 
3508 
3794 
4026 
4265 
4354 
4446 
4575 
48968 
5949 
5150 
5264 
3626 

758 
2604 
207% 
2984 
3374 
4927 
4349 
4478 
4697 
4921 
5283 


654 

733 

809 

936 
1186 
1449 
1499 
4559 
1783 
4948 
2013 
2156 
2256 
2407 
2545 
2807 
2915 
3258 
3366 
3623 
3737 
3860 
3926 
4085 
4467 


4394 
4628 
4995 


1199 


5078 


2634 


46a5e 
46830 


1438 


687 
1138 
1249 
1276 
4508 
1564 
1788 


4390 
4698 
4999 


2444 


4957 


oey 
4139 
4220 
1265 
4510 
1565 
1792 


1917 
2255 
2508 
2916 
3626 
3976 
4031 
4269 
4363 
4462 
4578 
4999 
5064 
5154 
5284 


820 
1896 
2096 
9999 
3396 
4932 
4344 
4498 
4883 
4948 


656 

747 

819 

984 
1275 
1424 
1492 
4563 
4728 
41618 
2824 
2475 
2259 
2428 
2604 
2818 
2956 
3262 
3397 
3625 
3758 
3862 
3932 
4144 
4170 


4398 
4691 
5043 


3905 


47330 


698 
1140 
1224 
4305 
1515 
1366 
4808 


1919 
2258 
2511 
2917 
3638 
3978 
4036 
4278 
43n4 
4466 
4579 
Sur, 
5965 
5156 


as2 
4897 
2170 
3278 
342 
4998 
4353 
4522 
4885 
Sing 


657 

748 

$33 
1006 
1349 
1422 
1493 
1564 
1729 
1876 
2076 
2176 
2268 
2426 
2642 
2692 
2964 
3268 
3399 
3626 
3764 
3874 
FIRS 
4145 
4a7n 


44rd 
4698 
5945 


4629 


4743 


708 
1144 
1224 
1596 
1916 
1967 
187 


1921 
2265 
2516 
2999 
3696 
3984 
4040 
4272 
4309 
44067 
4581 
5003 
5866 
5160 


gag 
1614 
2173 
3214 
3438 
4103 
4366 
4526 
4889 
3127 


698 

763 

891 
1935 
1332 
1436 
1495 
1572 
1749 
1827 
2098 
2199 
2262 
2428 
2603 
2813 
2906 
3284 
34u1 
3627 
37066 
3876 
3946 
4147 
4172 


44n2 
4716 
5063 


4745 


746 
1145 
1236 
1391 
1517 
1568 
18144 


1947 
2278 
2524 
2921 
3658 
3982 
444 
4348 
4418 
44459 
4584 
5995 
5267 
5173 


955 
2015 
2176 
3223 
3586 
4263 
4446 
4528 
4993 
5129 


664 

774 

852 
1016 
1334 
1444 
1497 
1575 
1756 
1644 
2959 
2201 
2263 
2429 
2604 
2814 
2968 
3285 
3428 
3635 
3aa9 
3878 
3974 
4148 
4296 


4443 
4763 
5064 


4752 


759 
1146 
1243 
1392 
1518 
1580 
1845 


1948 
2296 
2522 
2932 
3062 
3984 
4046 
4524 
4426 
4473 
4686 
5012 
5068 
5175 


968 
2635 
22@33 
3227 
3594 
4264 
4421 
4930 
ayaa 
S134 


669 

773 

653 
1047 
1535 
1460 
1498 
1985 
1742 
1846 
2668 
2238 
2264 
2431 
2027 
2845 
2970 
3209 
3441 
3636 
3614 
3879 
3975 
4149 
4297 


4416 
4779 


$112 


621 
1151 
1247 
1484 
1519 
1582 
1846 


1950 
2524 
2547 
2934 
3663 
3986 
4249 
4324 
4431 
44%Q 
4696 
5226 
5299 
5176 


962 
2037 
2279 
3253 
3628 
4266 
4434 
4531 
4976 
5437 


6R2 

775 

872 
1836 
1336 
1461 
1499 
1586 
1763 
1893 
2262 
2242 
23583 
2432 
2629 
2635 
2971 
3294 
3443 
3637 
3812 
3882 
3992 
4154 
4298 


4418 
4772 


5147 


bsg 
1152 
1249 
1485 
1555 
1983 
1832 


1951 
2325 
2548 
2936 
5665 
59RD 
4054 
4327 
4432 
44n4 
4772 
5048 
D107 
9177 


9AG 
2339 
2323 
3314 
3649 
4268 
aay 
4544 
4908 
5138 


Ca) 
731 
874 

1038 

1364 

1478 

1919 

1587 

1766 

1895 

2066 

2244 

2376 

2434 

2632 

2873 

2996 

335 

5518 

5638 

3a19 

3883 

3992 

4152 

4299 


4674 
4778 
2148 


Bry 
1193 
1252 
1494 
1956 
1584 


1834 


SPARE 
SPECME 
SQRFN 
SRT 
SS1SAV 
SS2SAV 
STAR 
STARL 
START 
stocom 
STOLNO 
STONOS 
STOP 
STOSTR 
STOSVA 
STOTxT 
STOVAR 
STPRO 
SYBINT 
SYBSTK 
SYMBOL 
S$, 0104 
$,8102 
Th 

T2 

3 

TAS 
TABL 
TAB2 
TABS 
TABLS 
TABLES 


TABLE2 
TABLE4 
TABLES 
TBLAEN 
TBL4EN 


TBLSEN 
TERMIN 
TKB 
TKS 
TPS 
TPCN 
TPCO 
TPHO 
TPINT 
TPNXT 
TPS 
TRAN 
TRANLY 
TRANVA 
TRFNBA 
TRNER4 
TRNFN 
TRNPC 
TRYAGN 
TRYECH 
TRYKWO 
TRYNUM 
TS?si 
TSTS2 
TSTSTK 
TYPE 
TYPEL 
UAy 
VASO 
UALZA 
UALS 
UASBC 
VALO,5 
VAL2 
UAL? 
UAZT7A 
VAL78 
UAL70 
UAZ7F 
UAL? 
UA2d 
VA2l 
yA2s 
Yad 
VAS 
VAB 
UA9 
UAASR 
UAQMP 
VAN GMP 
UATSTS 
VATST2 
VATSTA 


1843 
2352 
2925 
3182 
3248 
3394 
3516 
3679 
4019 
4033 
4358 
4484 
4688 
4849 
5329 
3534 
20698 
2786 
63 
3208 
3218 
2947 
29828 
69 
4774 
5449 
4774 
1059 
49218 
3006# 
49788 
75 
79 
4835 
1284 
3108 
2032 
20398 
78 
78 
78 
2948 
4614 
4627 
3927 
1608 
1044 
1061 
29468 
858 
74 
1044 
858 


74 
2952 
2828 
68 
68 
2092 
2095 
3454 
239 
2864 
2838 
685 
48638 
48648 
4946 
5136 
4907 
4878 
48868 
2068 
4873 
4867 
29938 
2992 
2977 
20720 
2064 
3249 
3259 
3298" 
3299 
3306 
3299 
3313 
3267 
3325 
33328 
3332 
3335 
3341 
3328 
33504 
3316 
32638 
3261 
32708 
3269 
33352 
3316 
33628 
3335 
3341 
33728 


1944 
2353 
2923 
3183 
3259 
3395 
3517 
3673 
4928 
4262 
4359 
4523 
4689 
4844 
3338 


2097 
31788 
3478 
321 
322 
29758 
2999 
203 
4776 
51560 
47758 
11948 
4926 


4984 
1174 
3ocge 
48584 
1592 
342 
205548 
2340 
3334 
3348 
3358 


46378 
46558 
39618 
16468 
19488 
1062 
2947 
8638 
2774 
10688 
688 


2774 
29608 
2016 
2810 
2848 
20948 
20988 
346 
29568 
206548 
2045 
1813 
4913 
4865 
4948 
5142 
49438 
4883 
4982 
20788 
4875 
4a708 
2998 
29958 
2985 
2986 
2073 
3254 
S289" 
3384 
33058 
33068 
3295 
33184 
33234 
33278 
3339 
33350 
33408 
33468 
3376# 
3373 
33798 
3286 
32668 
3280 
32848 
33608 
33359 
3366 
33668 
ARID 
3384 


1926 
2403 
2944 
3186 
3252 
3402 
3528 
3089 
4327 
4263 
4361 
43543 
4690 
3073 
3333 


2103 


1409 
44920 


espe 
47788 


1420 


1569 
2036 


334 
335 
336 


1049 
4063 
2948 
B64 
27628 


26058 


2041 
2038 


2082 


2085 
4550 
4932 
5074 
49548 
5144e 


48858 


2299 
48788 


29948 
2093 

20758 
S2s7H# 


3380 


3510 
3282 
3319 


3564 
3371 


1955 
2405 
2953 
3203 
3263 
3446 
3529 
3694 
40314 
4268 
4362 
4972 
4691 
5077 
5332 


2104 


3449 
4488 


1588 


2963 


4863 
4762 


4056 


10646. 


2949 
865 
2784 


3721 
2075 


2479 


4655 


4934 


3188 


2110 


3332 


3320 


33648 


{959 
2647 
2954 
3243 
3266 
3423 
3531 
3702 
4832 
4278 
4363 
4585 
4692 
5148 
5333 


2107 


1486 
1489 


1833 


48346 


4973 
1766 


1051 
{065 
2958 

866 
2785 


4637 


4953 


33428 


3367 


2231 
2653 
2956 
3214 
3312 
3438 
3532 
3726 
4033 
4297 
4387 
4588 
4693 
5478 
5334 


1487 
4498 


1945 


3063 
14782 


1952 
1866 
29514 

867 
2786 


4967 


3378 


2224 
2656 
2957 
3243 
3372 
3440 
3554 
3882 
4942 
4304 
4388 
4629 
4694 
5286 
5339 


4499 
41559 


47638 


1053 
1067 
2952 

366 
2787 


544s 


2248 
2739 
2993 
3216 
3376 
3442 
3580 
3883 
4043 
4309 
4473 
4622 
4695 
$284 
5336 


4587 
1561 


{354 
1966 


2788 


2244 
2744 
2993 
3247 
3348 
3499 
354 
3885 
4944 
4317 
4474 
4634 
4696 
5282 
8337 


3736 
1572 


1055 


2789 


2276 
2743 
2996 
3248 
3359 
3544 
3595 
3886 
4045 
4323 
4475 
4683 
4697 
5283 
5339 


3756 
1575 


1896 


2794 


2277 
2744 
2997 
3220 
3398 
3510 
3593 
3888 
4047 
4328 
4476 
4684 
4698 
5397 
5341 


4770 
3737 


1057 


2283 
2670 
3a74 
3272 
3594 
3943 
3627 
3eag 
4049 
4832 
4477 
4085 
4ar4 
5320 
5342 


37466 


1056 


2292 
2684 
3176 
3223 
3392 
3514 
3639 
4071 
4252 
4345 
4478 
4646 
4836 
5527 
5347 


4772 


12589 


2292 
2698 
3178 
3224 
3393 
$515 
3664 
4018 
gz 
4356 
4a4a7g 
4607 
4838 
2328 


1062 


UINTEG 
UMENUS 
UNARY 
UPARRO 
USRARE 
VAL 
VAROLE 
VARNOS 
VARSAV 
VARSRC 
VARSS 
VERNUM 
VONESS 
vTWOSS 
WIRET 
XCHAR 
' 


29668 
2757 
29648 
324ae 
640 
3074 
28338 
2847 
320 
5904 
26688 


2994" 
29040 
39068 
37038 
2048 
2388 
774 
1241 
1918 
3526 
4527 
$322 
432 
395 
429 
393 
649 
424 
4070 
3483 
427 
392 
399 
386 
4u9 
412 
410 
44 
375 
394 
3738 
1673 
4868 
4u7 
439 
2752 
423 
376 
au 
377 
378 


416 
379 
940 
942 
388 
433 
409 
384 
454 
434 
4uye 
445 
404 
413 
382 
967 
454 
399 
422 
383 
387 
394 
389 
388 
384 
425 
424 
40348 
3768 
452 
453 
695 
3612 
455 
433 
434 
426 
396 
428 
420 
397 
426 
385 
1398 
448 
402 
1098 
407 
405 
429 
396 
2235 
2987 


2013 
52628 


2vi4e 
14082 
5815 


504 
523 
956 
958 
544 
575 
499 
524 
009 
574 
418 
502 
478 
498 
534 
2328 
615 
468 
514 
543 
684 
549 
545 
603 
539 
559 
597 
404 


611 
643 
746 
4014 
647 
436 
577 
561 
474 
565 
540 
472 
535 
605 
1947 
379 
2744 
47268 
533 
529 
2743 
476 


3544 


2059 


$462 
5045 


2068 

2438 

779 
1253 
2284 
3907 
4535 
53678 


5119 


2612 
488 


1952 
923 
921 

3096 


798 
482 
744 

4983 

1164 

4993 

4903 

4452 
4%6 

1330 

4254 


1344 
2748 
2758 
492 
856 
478 
1294 
2756 


588 
1459 


2758 
1602 

925 
4904 


2772 
489 


738 
4138 


2645 


2926 
1994 
4425 


1625 
4948 
1252 
14as 


2924 


2157 


1479 


207 

2498 

783 
1289 
2309 
4328 
4858 
$368 


1769 
952 


1623 


722 

686 
i780 
{206 
4135 
2768 
{534 
{258 


5115 
1299 


3982 
$986 
1204 
3128 

546 
2928 


41296 
4187 


3976 
1764 


548 


834 
4168 


1695 


2936 
1622 


4938 
1288 


2924 


2476 


1546 


2088 

2568 

792 
1309 
2312 
4048 
4862 
5379 


973 


a9g2 


826 
975 
4837 
1268 


4735 
4109 


4322 
1348 


5431 
4437 


14256 


937 


2934 
1316 
4742 


4728 


958 


874 


4746 


4948 


4944 
1308 


2938 


2av 

237 

607 
1499 
2628 
4094 
4899 
53808 


4615 


4934 


873 
982 
1843 


4276 


518> 
4740 


2919 


e747 


1268 


ioey 


3978 


4908 


96> 


4072 


4779 


4944 


4979 
5423 


2942 


24a4 


1618 


2188 

2568 

815 
{550 
2637 
4108 
4945 
$384 


1675 


927 
1172 
4885 


1498 


4906 


$117 


$133 


1292 


2754 


1726 


1445 
500. 


4916 


3734 


2130 

2618 

818 
156¢ 
2649 
4479 
4939 
5396 


1928 


1018 
1376 
1899 


1544 


2836 


2823 


1549 
5250 


4947 


4763 


2238 

736 

622 
1636 
2779 
4397 
4ga4 
53978 


1835 


1448 
1382 
1947 


2930 


3409 


2680 


2420 
S129 


4935 


224 
736 
625 
1646 
2805 
4360 
4987 
5398 


4839 


1953 
1423 
1924 


2932 


3555 


2894 


2676 
5150 


2258 

744 

872 
1684 
sera 
a5n4 
4997 
5472 


1902 


3818 
1433 
29497 


3502 


3738 


3e76 


2614 


226 

752 
1223 
1717 
3436 
4010 
5267 
544 


1919 


4090 
1484 
3511 


3239 


2644 


2308 

766 
12277 
1804 
35%7 
4912 
3297 
Sansa 


1922 


4119 
1629 
4ge8 


5497 


$435 


SERVEC 
sir 
SLONGE 


Supesé 
SMLR 

SNOLPT 
SNOPOW 
SNOPTP 
SNOSTK 


SPOLSH 
SPPaSZ 
SPRUSE 
SPRORG 
SSOR 

SSTKS2 


BASICL 
2 


@ weveusn 


” 


64 = 2232 
59-2994 
986 989 
1594-4594 
2414 «2589 
3492-39590 
1935397 
6g 2979 
253 253 
215 219 
243 246 
2" 436 
1415-4429 
2365 «= 2609 
3a20 00-3923 
3558 89-3743 
5007-3047 
58-3866 
95 «8389 
99 5367 
94 262 
62 = 3889 
82 ay 
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2975 
3254 

995 
4753 
2563 
39535 


3334 
2171 
2194 
2124 

447 
1629 
2617 
3052 
3759 
5029 


22eMARa73 


2983 
3378 

998 
1756 
2854 
4068 


3337 
2464 


2150 

5a, 
4633 
2639 
3149 
3773 
5039 


15142 


3179 3184 3487. 3257 
3587 3595 ; 

1024 1924 454¢ 1345 
i969 1852 £929 4932 
2857 3043 3016 3165 
4071 4291 4060 4663 


3384 
2577 2588 4649 4649 


2458 = 2571 2574 2585 
795 4382 4.392 1168 
{652 1796 4799 1829 
2763 «= -2794 2a19 2827 
3190 3197) 32293235 
4022 496 4958 4182 4185 
5852 5159 = 5465 5195 
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COPYRIGHT 1973 


DIGITAL EQuipMENr Comporation 
MAYNARO, MASSACKYSETTS 71954 


1954 
4939 
$168 
5089 


53%6 


2548 
1177 
1661 
2639 
34e3 
4192 


1594 
1942 
3271 
5aB3 


3903 
1213 
1905 
2849 
3449 
44087 


1381 
2356 
3274 
5098 


4638 
1279 
1962 
2864 
3430 
4546 


1344 
2559 
3354 
5093 


4644 
1571 
2296 
2873 
3446 
4745 


1464 
2385 
3354 


5356 
1576 
2515 
2687 
3523 
A782 


1467 
2358 
Sang 


1475 
2529 
29n7 
$537 
4786 
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TITLE BASIC, VOALA EDIT #64 (REF) 03/01/73 
12 ’ ee nn SOURCE FILE #2 
13 ogeges sASECT 
14 
15 
16 
17 
18 
19 
28 
23 
22 
23 
24 
25 


BASIC CoNSIsTs oF THREE MQOULES! 
a sS°ossiee : LATERPRESER WITH SYSTEM 1/0 
2) FPMPei, © MATH PACKAGE CONDITIONAL J#E0 FOR USE IN BASIC 
3] BASICH » USER AREA AND ONCERONLY CODE 


ORIGINAL PAPER TAPE VERSION AY) LEN ELEKMAN 
MODIFICATION ANQ CoMMENTS RAY! 20¥ FOLK 


COMPLETION ANO FURTHER 
CoenenTe’ AY! ANN STANKARO 


eee ee er 
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36 PEI irr rrixrrrririrrirrityy 
37 RISOTTO rere rrrirrrririrrirrrrry 
38 J enseeseeoses : 

39 Jeeeeseseeeee GLOBALSI ASSY, PAPAMS,) 

40 DESCRIPTION; LOW CORES 

“4 GENERAL TASLES, 

a CONSTANTS, STORAGE 

4a 

“4 

45 590008 OOCCROO OES SOPHO ROOHHHEEHESEDEOOHTODOH OOD 
46 

“7 

46 

“09 

52 n 

54 } GLoBALs 

52 , 

53 } w=FpMpeit 

54 r] 

55 +Gho8L SpPoLsH 

56 1GL0BL SIR 

57 1GL08L = SMLR 

58 +GL0B8L $OVR 

59 1GL08 SADR, SSBR 

68 1GL08L SIN, COS,SQRT, ALO, ATAN, EXP 

6a 1GLO8L SERVEG 

62 n 

63 1 oeBASIC2 

64 f] ~ 
65 +GLO8L TPB, TKS 

66 +GL08L START 

67 +GLOBL USRAREA 

668 1GL0BL FILLCO 

69 sGLOBL LIMIT, POL, ARRAYS, POSIZE 

72 +GLOAL ERRPOL, ERRMIX, FRASYN, ERRANG 
71 1GL08L TABLES, TULSEN 

72 1GLO8L EVAL, GETVAR, STOVAR, MSG 

73 +GLOBL COLUMN, Faei, Fat2, ,RPAR, ,LPAR 
74 1GL08L INT, MAKEST, OPRATO, SCQPHAT 

75 1GL08L COMMA, T1, 12, 73, ,E£9L 

76 +GLOBL NYMOUT, NUMSGN, ARGB, STPRO 

77 +GLO8L SAVCWAR, VAL, NORM 

78 1GLOBL RNOL, RNDZ 

79 1GL08L SSIKSE, ERRFPU 


BASICL 


81 
82 
83 
84 
85 
86 
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126 
122 
122 
123 
124 
425 
126 
127 
128 
129 
138 
131 
132 
4133 
434 
435 
436 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
452. 
152 
453 
154 
455 
156 
157 
458 
159 
468 
161 
162 
163 
164 
165 
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J 
} ASSEMBLY PARAMS, 
t 
sUFNOF SSYKSE ISIZE OF STACK 
SSTKS2 8209 iBYTES 
sENOC 
' 
vTFNOF SPRORG PROG, OAIGI” AFTER VECTOR SPACE 
SPRORG 3488 ‘ 
,ENDC 
' 
vIFNOF SppBsé ipp AUFF, SIZE 
SPPBSZ 836 
sENOC 
U 
vIFNOF SprOsé IJpAPEReTAPE READER BUFF, SIze 
SPRBSZ 230 
sENOC 
4 
sUFNOF Sup8sé ILINEepRINTER AUFF, SIZE 
SLPBSZ 840 
,ENOC 
) 
} SNopTP © No PAPER TAPE] DEFINE To ELIMINATE CoDE For HIGH spEED 
' PAPER TAPE 
4 
1 SNQLPY © No LINE PRINTER! DEFINE To ELIMINATE LINE pRINYER Code 
! 
1} SLONGER © LONG ERROR MESSAGES! DEFINE To GET LONG, 
f] EXPLANATORY ERROR MESSAGES, 
J 
J SNOSTR © No STRINGS! DEFINE Tq ELIMINATE STRING VARIASLE CQ0E 
J 
J} SNQPOW © No POWER FAIL DEFINE Yo ASSEMBLE WITHOUT 
' POWER FATR/RESTART ROUTINE, 
J 
U 
s 
MACX11 year 22eMARe7S 45143 PAGE 6 
HO? POOP!! 


RS POINTS==> 


erUSER AREA MAP 
HIGH ADDRESSES#e-e-wenencennses 


1 GOSYB POINTERS! 
1 26 FN POINTERS! 
1 REAQ POINTER ! 


pe wwctcerecenecas 


1 pusH : 
1 DOWN ‘ 
rows? ! 
oe Peer 
rae 

ARRAYS 


! 
' 
! 
2 
{ 


! SYMBols ! 
eden werecesooace 
! A 

! vin ot 
YINterp, of! ! 
t Cooe . ! 
bq wweececesecncny 
1 USER * 
{ LUNE ! 
i SYFFER ! 


ogee quceqeoepony 
1 USER 1/0 BUFF! 
1 ANO BUFF’, HOR,! 
t SPACE (TTY) 1! 
pnweccewcesaneces 
} SER AREA ! 
! STORAGE CELLS ! 
' : 


bn eecesececcceces 


CeeLIMITCRS) NEEDED 


<eePML (RS) NEEDED 


POSIZEC(R5) NEEDED 
CPOL (RS) =ARRAYS(R5S) /P@STACK (INTERRUPT) 


! <e*ARRAYS(H5) NEEDED 


<eeCODE (RS) NEEDED 


CeeLINE (RS) NEEDED 
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466 ’ 

167 bes 

168 i 

169 1 egoe AREA CONTAINS STRING oF CoDE 8YVES WHICH CoMpRIse 

170 1 THE COMPILED CODE TO AE INTERPEYEN, THE SYNTAX SCAN OF THESE 

272 } CODE BYTES {S FACILITATED BY THE JUNICIOUS PLACEMENT 

472 1 OF CERTAIN OF THESE COOF BYTES YO 3F CALLEO ‘TOKENS, 

173 } IF THE HIGH BIT OF A TOKEN IS ON 

174 1 IY 18 aA SYSTEM SYMBOL (S,SYM), (SEE TABLE, BELOW,) 

175 } HIGH BIT OFF SIGNALS TOKEN aS THE HIGH ORDER SYTE OF a WORD 
, 276 J} (LOW ORDER BYTE FOLLOWS TOKEN) USED AS AN ADDRESS OFFSET INTO 

177 } THE USER SYMBOL TABLE (USPTR), 

178 ’ 

7 } e*SYMBoL TABLE ENTRIES 

1 ‘ 

282 } ARE MAOE FoR LINE NyMBERS, SCALARS, “UMERIC ARRAYS, ANT 

182 } STRINGS, AS SHOWN §3N ORDERS 

183 ’ 

184 ’ LINENQ 477775 177776 477777 

185 ) ADORESS VALVE  AODRESS ADORESS 

186 4 VALUE MAXSS2 “MAXSS1 

387 ' 8 MAXSS2  MAXSS2 

188 ' VARNAME VARNAME STRINGNAME 

189 j 

198 } weGENERAL REGISTER YSAGE 

192 J 

192 J pt ts BASIC EXECUTION PC . 

193 1 R4 1S THE EXECUTION STACK NEPTH 

194 ) RS 1S THE POINTER TO THE USER AREA 

195 
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196 ' 
197 } INyERUPY VECTORS ANY LOWEST CORE 
198 ’ 
199 overs ‘ tT’) 
200 aeaeee 780167 991076 vMP START pRESTART AT LOC, #2 
201 200804 ‘ 24 
202 o00e04 200026 sov0e0 . 19208 ITIMF OUT, BuSS ERROR 
203 aeeg1e ' #10 
204 990019 cOngi2 saeRee . 1%2,8 PRESERVED INSTRUCTION 
205 1B00%4 ' ey 
206 990014 790016 sp8e00 . 19248 HOFBUG, TRAP VEC, 
207 o0og29 ' =20 
208 900029 219329 se00K0 . BOMB,D s1OT TRAP VEC, 
209 
210 ooee24 ' 324 
Qua 
222 . 1IFNOF SNOPOW 
213 gone24 987562 290000 . POWQWN,@ JPOWER FAIL/RESTART 
214 ,ENOC 
215 
216 +{FOF = SNOPOW 
247 . 12,2 SHALT ON POWER FALL 
218 ,ENOC 
219 
220 900030 ' 830 
221 930038 209932 00000 + 192,08 sEMT TRAP 
222 780934 - 534 
223 990934 100936 sopoee . 192,8 SOTRAPE TRAP 
224 ' 
225 } eelSYSTEM! AREA 
226 ’ 
227 002040 ’ 548 
228 900040 BOL 183 VERNUM| , BYTE O04,'A SVERSTON NUMRER 
229 990042 apeeee oesBee oeD000 + B40, 290, 4,4,7 
980059 980920 aeeeBe se0000 
880056 300080 
2308 ' 
234 } es INTERUPT VECTORS 
232 ) 
233 880860 ' 560 
234 080869 206722 so0200 . KBINT, PRS HKEYADARD 
235 300064 ; 564 
236 200064 207974 sge200 . TPINTIPR4 HTELEPRINTER 
237 200870 i «70 
238 LIFNOF SNOPTP 
239 299079 207336 s90200 + PTRINT,PR4 sHSP, PT, REACER 
240 200074 ' a74 
241 200874 997436 a00200 . PRINT PRS SHEP, PT, PUNCH 
242 ,ENOC 
243 LIFOF = SNOPTP 
244 ry 2,0,00 
245 ENO 
246 909208 ' #200 
247 vIFNOF SNOLPY 


248 20020g 797519 Bg0200 > LPINT)PR4 
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249 1ENOC » 

250 sIFOF = SNOLPY 

251 . 8,0 

252 ,ENOC 

253 300249 ' 8248 

254 990248 290242 se0008 + 10298 iPIRA 

255 300244 i 9244 

256 900244 3209086 saoDeD . ERRFPY,o IFLOATING POINT TRAP 

237 

258 380439 , SSPRORG JSTART oF CODE (MAY HAVE To CHANGE, 
259 } DEPENOING UPON ATTACHED UFVS,) 
260 
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264 , 

ose 1 GENERAL ASSIGNMENTS: VARIABLFS, GuUnBALS, ETC, 
6 ' 

204 

265 J eeREGISTER ASSIGNMENTS 

266 , 

267 289008 RO 5x2 

268 BOAG81 RL xd 

269 AOGBS2 Re 8x2 

278 988023 RS ax3 

271 190094 R4 5x4 

272 088905 Rs ax 

273 280006 sP 8X6 

274 380907 PC 8X7 

275 1 

ore J esDEVICE REGISTER CONSTANTS 

27 ‘ 

278 177562 TKS 8177560 

279 177562 KB 8177562 

280 . 177564 YPS 8177564 

283 177566 "TPB 8177566 

282 177559 PRS 2477550 

283 177552 PRB #177552 

284 177554 PPS 6477554 

285 177556 PPB 0477556 

286 177514 LPs 8177514 

287 177516 \Pe 477516 

286 J 

289 J eeGENERAL CONSTANTS 

290 } 

29% 800011 TAB LPS' 

292 280012 LFe a42 

293 28044 FF eye 

294 300043 CRe 815 

295 088040 Bus 840 

296 179776 Ps 8477776 

297 200149 PRS 9440 SPRIORITY LEVEL 3 
298 890200 PRE #200 

299 000340 PRI 8348 

308 477775 +SCALAR 8477775 USER SYM, TABLE FLAG FOR SCALAR 
304 177776 ~NVAR = 8477776 JFLAG FOR NUMERIC ARRAY VARIABLE 
302 177777 ,SVAR 0477777 JFLAG FOR STPING VAR, 


303 
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304 
305 
306 
307 
308 
309 
310 
3a 
312 
313 
344 
315 
316 
317 
318 
349 
328 
323 
322 
323 
yaa 
325 
326 
327 
326 
329 
330 
334 
332 
333 
334 
335 
336 
337 
338 
339 
340 
344 
342 
343 
34a 
345 
346 
347 
348 
349 
350 
3354 
352 
353 
354 
355 
356 
357 
358 


BASIC, 


359 
368 
364 
362 
363 
364 
365 
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390400 
980402 


veed 


980008 
968802 
agaees 
288006 
200089 
200012 
580016 
300816 
998029 
98gR22 
980024 
0898026 
800859 
2880382 
808034 
8800S6 
990849 
390842 
800946 
908946 
200058 
890952 
200054 
800056 
890860 
888862 
099064 
899066 
888679 
200072 
AOBB74 


096076 
200077 
990100 
980102 
oe0104 
900196 
280187 
2090130 
290144 
090122 
aee11s 


Seeea9 
880802 
980004 
880006 
300018 


Vo2s 
BB0012 


990000 
408008 


22uMARe73 
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' 
J eeUSER AREA STORAGE CELL OFFSETS 
U 


SYMBOLS ® a CANTAINS ADOR OF THE Flest syMBol, 
LIMIT . SYMBOLS+2 1CONTAINS ADUR OF HIGHEST WO OF USER AREA 
POL s LIMITe2 CONTAINS AONR OF EMPTY STACK 
POSIZE # POLe2 SCONTAINS LOW LIMIT OF STACK 

ARRAYS 8 POSIZE42 HCONTAINS ADOR OF WIGHEST WORD OF ARRAYS 
WIFREE ® ARRAYSe2 CONTAINS ADOR OF HIGHEST FREE WORD 
LOFREE ® WUFREGO2 ICONTAINS ADOR OF LOWEST FREF WORD 
CONE s LOFREE+2 HGONTAINS ADOR OF INTERPRETIVE CODE 
LINE s CODES2 HCONTAINS ADOR OF USER LINE BUFFER 
VARSAV 8 LINES? sVAR SAVE FOR ASSIGNMENT 

SS{SAVE ® VARSAVe2 sSSt SAVE FOR ASSIGNMENT 

SS2SAVE ® SS4SAVES2 pSS2 SAVE FOR ASSIGNMENT 

LINENO 8 SS2SAVEs2 SCONTAINS THE LINE NUMBER 

GSBCYR 8 LINENO+2 CONTAINS S3*DEPTH OF ACTIVE GOSUBS 
COLUMN 8 GSBCTKe2 yHAS ADOW OF COL CT FOR CURKENT DEV 
CLMNTTY # COLUMNS? HLAST TTY COLUMN TYPED 

Faca s CLMNTTY 2 HHIGH ORDER FLOATING VALUE 

Face 2 FAC1 82 tLOW ORDER FLOATING VALUF 

ROSAVE ® FACoe2 JPLACE FOR R@ WHILE IN FPMP4y 
Risave « ROSAVE+2 sONTTO R21 

R2SAVE ® RLISAVES2 HOLTTO R2 

RISAVE © R2SAVEe2 VOITTO RS 

R48AVE 8 RSSAVES2 1OITTO R4 

Th s R4SAVES2 ySHOPT TERM TEMPORARY 

72 s TLe2 sOrTTo 

13 s T2e2 sOLTTO 

RNOL s T3e2 HISTORY OF KND 

RNOZ * RNDLo2 yOITTo 

RNOCT a RNOQ*2 JRANPOMIZER 

LOsTR s RNOCTe2 sLOW LIMIT OF STRING STORAGE 

HISTR 8 LOSTRe2 HHIGH LIMIT OF STRING STARAGF 


§ esTHESE NEXT TWO MUST BE LO BYTE AND HI BYTE, RESPECTIVELY, 
f) OF SAME WORD 


ooeyv ® HISTRe2 JOUTPUT DEV CODE (TTYaa,PTs2,LP24) 
IDEV . ODEVey HINPUT DEV CODE (TTY#@,PR82) 

TPWO s OOEVe2 JHOLOS START OF TELEPRT AUFF HOR 
KOu0 s TPHO%2 HHOLAS START OF KBD BUFF HOR 
ECwOSP « KBHDe? sANOR OF NEXT ECHO CHAR CIF MON@@) 
CNCFLG ® ECHOSP42 sleC! FLAG, NON@@ IF PENNING 
CNOFLG 8 CNCFL Got sleQe FLAG, OFTTO 

FILLCO 8 CNOFLG*L IFILL eCOUNT 

FILLNO 8 FILLCOeL INO CF FILL CHARS 

FILLGCH ® FILLNGeL VCHA® REFORE FILL 

SPARE a FILLCHSS y CSPARE BYTE) 


’ 
1 eet/o9 BUFFER HEADER OFFSETS 
' 


asery 96 wna) START oF BUFF, 

BEND "2 JBEND(RI) ENO OF BUFFER 
aGers s4 JOGETLCRL) FIRST GET POINTER 
BGET2 26 IBGETZCR1) SECO"D GET PTR, 
BPuT 210 PBPUT(RLD PUY PTR, 


15144 PAGE 1001 


BFSPEC si2 VBRSPEC(RI) SPECTAL WORD + USE PARTIF, TA DEV. 
’ 2 

} e°SYSTEM VARIABLES 

1 

CLMNPP} ,WORO PAPER TAPE PUNCH COLUMN POSITIO" 

CLMNLP] ,WORD  @ JLENE PRINTER COLUMN POSITION 
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366 ) 

367 } es SYSTEM TOKEN DEFINITIONS 

368 H 

369 i) 

378 080221 1Egls 28% BEGINNING OF SEQUENCE ysED BY ‘KEYWOSf AND ‘7ABLES? 
374 288252 1ENO® EOLeL . 

372 286283 iFORs =, END#1 

373 200234 1GOSUBs , FOR 

374 988235 1GOTOs ,GOSUB+4 

375 ARO206 IPs ,GOTOss 

376 000207 vINPUTS , [Fes 

377 980218 ehOT® INPUT SR 

378 age2ts sNEXTe  jLETOL 

379 880222 :PRINTs ,NEXT#4 

380 980213 sRETURNS,PRINTOL 

3an a00214 sSfOPs § ,RETURNGS 

382 800215 ,OtMe «=, STOP +4, 

383 388216 +RANDOM®,OIM42 

384 880217 sRESTORS, RANDOMSL 

385 880229 sREMe sRESTORGS 

386 880221 sOEFs =, REMOL 

387 888222 READS =, DEF Sd 

388 age223 ,OATAB ,READSS 

389 ORG226 rCALL® =, QATASL 

399 680225 ,COFs »CALLot JENO OF SEQUENCE USE RY FTABLELS 
394 980226 »AMPERS# EOF od 

392 888227 »UPARRO®, AMPERS*Z }BEGINNING OF SFQUE'CE USED BY /TABLE2! AND OPR PREC, 
393 oae2so :SPARS  ,UPARROS4 

394 oee2sy :SLASH® ,STARSS 

395 200232 sPLUSs «, SLASH@L 

396 020233 rVNARYS ,PLUSOL 

397 oa0234 aMENUSS ,UNARYO2 

398 8802355 vTERMz = ,MINUS#25END OF SEQUENCE USEN AY ITARLE2! 
399 889236 iSEMLs  , TERMOS 

400 080237 sRPARS =, SEMI os 

404 208249 170s pRPAROL 

402 oe0244 :STEPs  , TO%d 

403 089242 THENG =, STEP OL 

404 480243 COMMAS ,THENSL 

405 300246 sLE® 1COMMASL 

406 990245 1ELs bees 

407 088246 ,GEs vEbod 

408 580247 1EGa 1GEos4 

409 200230 iNEs 1EGed 

410 089234 ENS »NEod 

414 898252 ifs yENe4 

412 200253 1Gfs ab Tos 

413 980254 ,€Qs GTor JEND OF SEAUENCE USED RY OPERATOR PRECEDENCE 
44 208295 iLPARS § ,EQ¢4 

445 880256 ;DQUOT= ,LPAReS 

416 080257 sSQUOTs ,DQUOTes 

447 680260 COLON 5, SQUOTSs 

418 388263 sPOUNDs ,COLONS) 

419 408262 aFN® POUNDS? 

420 280263 sRNOLS FNL = BEGINNING OF SEQUENCE USED BY ‘TABLES? 
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424 000264 sRNOe =, RNOL#L 

422 200265 iSiN®  ,RNOOL 

423 AVI266 ,COSs sSINed 

424 OB8267 ,SQRs COSe, 

425 408278 sATNa »SQROL 

426 BBO274 ,EXP® | | ATNGL 

427 90272 shQGe ,EXPeL 

428 188273 1ABS8 1h 0G94 

429 AGA274 vINTs ,ABSo4 

430 889275 SGNS INT oL 5 
434 880276 1TaABs =, SGNeL 

432 

433 1{FNOF SNOSTH 

434 300277 ibENe 1YaGod 

435 688309 1ASCe =, LENOS 

436 BB0Se4 ,CWRSs , ASCoL 

437 880382 1PQSs eCHRS od 

438 289303 ,SEGs POS, 

439 880336 Vals ,SEGe4 

440 880325 :StRs  ,VALe1 JEND OF SEQUENCE USED BY I TABLES! 
444 280326 +LtSTe ,STRe1 JBEGINNING OF SEQUENCE USED BY ‘TAALESS 
442 ,ENOC 

443 

4a4 +fFOF = SNOSTR 

445 shiSTs Tages 

446 vENOG 

447 

446 800307 + RUNS ip istet 

44g 298310 SAVES = ,RUNOL 

450 OBO311 1OL0e ,SAVEoL 

453 988312 :SCRe_ —, OLDeL 

452 280343 :CLEARs ,SCRe1 jENO OF SEQUENCE USED BY ‘TABLES! AND fKEYwOSE 
453 200376 iFUIYs 376 

454 280375 rILI?ia 375 

455 483376 rILET23 376 

456 720377 TEXT 3377 


457 
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458 
459 
468 
462 
462 
463 
404 
465 
466 
467 
468 
4609 
478 
a7y 
472 
473 
476 
475 
476 
477 
478 
479 
489 
483 
482 
483 
484 
485 
48 

48 

488 
489 
490 
494 
492 
493 
494 
495 
496 
497 
498 
499 
508 
382 
382 
303 
5e4 
505 
506 
307 
508 
509 
518 
54a 
512 


BASIC, 


Sus 
514 
515 
516 
517 
518 
519 
520 
524 


522 
523 
524 
525 
326 
527 
528 
529 
330 
531 


332 
533 
534 
535 


536 
537 
538 
539 


5498 
544 
542 
543 
544 
545 
546 
547 
548 
549 
550 
5514 
552 
353 
354 
955 
556 
557 
556 
559 
560 
361 
562 
363 
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000404 
300405 
800406 
9o04n7 
080419 
260414 
900412 
090413 
800414 
80n415 
300416 
300417 
990629 
090422 
896422 
0898423 
808424 
206425 
880426 
080427 
888439 
000432 
900432 
BB8434 
808435 
800437 
290449 
agaes2 
890443 
090445 
880446 
090459 
098451 
898453 
009454 
800455 
888456 
080457 
288469 
000464 
080462 
300463 
989464 
090465 
880466 
008467 
898479 
000473 
880472 


MACK42 


980473 
Oo0474 
800475 
880476 


390502 
826503 
288506 
080587 
980514 
989515 
820516 
090522 
980523 
990527 
390530 
890535 
308536 
900544 
880545 
380552 
889553 
200554 
989562 
880563 
386578 
900571 
308572 
800608 
980601 
920606 
880607 
888619 
080613 
308614 
308628 
08621 
388626 
800627 
920634 
3Q9635 
908642 
880643 
880645 
380646 
588652 
080653 
380656 
820657 
380663 
908664 
980678 
BO0674 
800675 
880676 


yo2s 


142516 


210 
aia 
206 
187 
040 
225 
347506 
203 
040 
240 
242516 


224 
252049 
242 
40 
240 
244 
947507 
204 


042506 
224 
122 
222 
124 
223 
193 
224 
196 
262 

347122 
263 
122 
264 
123 
265 

247523 
266 
125 

267 

952104 


ENTRIES ARE QHOERED RY THEIR FREQUENCY oF 


22emARe7S 154944 PAGE 12 
’ 
} weKEYWORD TABLE 
' 
' t 
’ OCCURRENCE, 
| 
KEyWOS) ,ASCII fot 
,BYTE =, PLUS 
rASCIL fof 
:BYTE = MINUS 
rASCIT fae 
‘BYTE «=, STAR 
ASCII 76 
:OYTE Spas 
sASCIT °¢ 
,BYTE «=, UPARRO 
sASCIT 68 
sBYTE =, LPAR 
sASCIL ')¢ 
,BYTE =, RPAR 
sASCIE tM 
sBYTE = EOL 
sASCIT 66 
:BYTE , AMPEKS 
vASCII 48 
:BYTE =, SEM! 
sASCII yf 
:BYTE =, COMMA 
sASCII '6mr 
1BYTE = LE 
g74 sASCIL fae 
BYTE hE 
sASCIT fae 
:BYTE =, GE 
976 sASCIL of ape 
BYTE =, GE 
sASCIT Cae 
:BYTE = NE 
074 sASCTI 1068 
,BYTE NE 
sASCIT 6G) 
BYTE «LT 
sASCTL DF 
BYTE 1S? 
sASCIL fae 
+BYTE £0 
eASCTT MF 
sBYTE «=, QQUOT 
sASCIY mee 
sBYTE =, SQUOT 
sASCIT yt 
,B8YTE  ,COLON 
ASCII fat 
: «BYTE =, POUND 
sASCIL * CP 
22eMARe73 135144 PAGE i202 
1BYTE = pW PAR 
sASCIT f)¢ 
,BYTE =, RPAR 
220124 KEVAt  ,ASCII (RET ¢ 
BYTE =, LET 
820106 sASCIL fF 
,BYTE ir 
O20117 947524 sASCII #60 TO ¢ 
+B8YTE =, GaTO 
820122 sASCIL fFOR ¢ 
+SYTE =, FOR 
047524 040 sASCIT of TO ¢ 
“ sBYTE TO 
052130 049 sASCIT (NEXT # 
,BYTE = NEXT 
842519 820116 sASCIT ¢ THEN 
,8YTE =, THEN 
0521235 050105 sASCII ¢ STEP ¢ 
;BYTE «=, SYEP 
O52523 o20182 sASCIT *GOSUB 
+BYTE =, GOSUB 
952105 953125 sASCIT *RETURNE 
+BYTE =, RETURN 
952529 920124 sASCIT Ff INPUT ¢ 
:BYTE =, JNPUT 
844522 852116 sASCIL PRINT 
,BYTE =, PRINT 
115 sASCI} / REM! 
sBYTE =, REM 
020106 sASCIT fOEF ¢ 
:BYTE =, QEF 
040905 e20194 tASCIL FREAD ¢ 
:8YTE =, READ 
O52101 a2e104 cASCIL (DATA 
,BYTE =, DATA 
46102 o20114 eASCIT (CALL 
»BYTE =, CALL 
116 sASCIL TENE 
BYTE = FN 
B24104 sASCIL RNDGE 
,B8YTE =, RNOL 
042116 eASCIT ¢RNOF 
sBYTE RNO 
O47111 050 sASCIT SINGH 
:BYTE =, SIN 
024123 sASCIL ¢ Coser 
:BYTE =, COS 
a52122 ose rASCIT #SORCE 
:BYTE =, SOR 
824126 sASCIT CATING E 


ALPHA KEYWOPOS START AT ‘KEVAL, 


SSTAPT OF ALPHA KEYWORDS 


BASICL 


364 
565 
566 
567 
568 
569 
378 
574 
572 
573 
574 
575 
576 
377 
578 
579 
580 
58s 
382 
383 
584 
585 
586 
387 
588 
389 
598 
59. 
592 
393 
594 
595 
596 
597 


598 
399 


600 
601 
602 
603 
604 
605 
686 
607 
608 
609 
618 
642 
612 
615 
o14 
615 
616 


BASTCL 


617 
618 
619 
629 
62a 


MACKi2 


380702 
983703 
9007087 
883719 
800714 
000715 
oea72, 
089722 
888726 
288727 
200733 
300734 
908749 


000741 
380745 
808746 
208752 
088753 
@88769 
200764 
080765 
000766 
888773 
800774 
891008 
801001 
901206 


881907 
881913 
001014 
801222 
001025 
081026 
801934 
981935 
881236 
901842 
881943 
8912846 
801847 
801853 
081054 
801257 
051869 
O51864 
201865 
981970 
901872 
301974 
981075 
221108 


MACX12 


891101 


vo2s 


270 
185 
272 
247514 
272 
102 
273 
O47141 
274 


123. 


275 
948524 
276 


134 
277 
351504 
308 
123 
sey 
128 
302 
242523 
303 
940526 
304 
123 
305 


Voes 


22eMARD73 


050130 
024107 
054582 
324124 
047397 
824422 


247185 
224403 
051118 
054517 
022107 
024114 
951124 


046513 


242116 
425 


952125 


050127 
842116 
051513 

a6 
042526 
o424i4 
053103 
042524 


22eMARe73 


258 


a2ene4 


258 


030 


024044 


843 
046547 


851147 


124 


151944 


15141 


PAGE 1202 


1BYTE 
rASCEY 
BYTE 
‘ASCII 
1BYTE 
ASCII 
BYTE 
VASCIY 
BYTE 
ASCII 
‘BYTE 
VASCII 
BYTE 


s TFNOF 
sASCII 
BYTE 
sASCII 
BYTE 
sASCII 
GYTE 
sASCII 
sBYTE 
sASCIT 
BYTE 
sASCIT 
BYTE 
rASCTI 
iBYTE 
2ENOC 


ASCII 
BYTE 
ASCII 


BYTE 
ASCII 


BYTE 
sASCIT 
sBYTE 
sASCII 
BYTE 
sASCHT 
BYTE 
ASCII 
1BYTE 
sASCII 
BYTE 
sASCII 
BYTE 
sASCII 
VBYTE 
sASCIL 
sB8YTE 


PAGE 1283 


:BYTE 
1EVEN 
E07 


SNOSTR 
"HENCE 
ehEN 
"ascct 
ASC 
'GMRS( 
sSHURS 
*Pos¢r 
.POS © 
"SECS EF 
SEG 
"Vaueet 
VAG 
'STRS (A 
STR 


Qtm ¢ 
cOtM 
*RANOOMIZEs 


+ ANOOM 
ORESTORES 


+RESTORE 
‘$vor! 
Stop 
‘ENDS 
END 
"RISTE 
ah tS? 
RUNG 
RUN 
'SAVEE 
SAVE 
¢OLoF 
19D 
sere 
(SCR 
'CLes 
sSLEAR 


sEm0 OF TABLE FLAG 


BASTCL 


622 
623 
624 
625 
626 
627 
628 
629 
630 
634 
632 
633 
634 
635 
636 
637 
638 
639 
640 
644 
642 
643 
644 
645 


BASIC, 


646 
647 
648 
649 
638 
653 
652 
653 
654 
655 
656 
657 
658 
659 
668 
664 
662 
663 
664 
665 
666 
667 
668 


MACKXA1 


aw 
Na 
goi102 
094186 
oeti12 
881116 
391122 
303126 
004132 
801136 


MACKX12 


091348 
901144 
021150 
001154 
621160 
881166 
284172 
091176 
oox228 
284205 


801226 
801212 
981216 
881222 


801222 


Veen 


916705 
916506 
885965 
804767 
216506 
084767 
804767 
009402 


V¥@2a 


084767 
216506 
305865 
383965 
012765 
360565 
884167 

e415 
942522 

220 


916506 
004167 
@15 
826 


305965 


22mMARC73 


2900086 
9o0084 
ogo.o4 
007366 
990004 
014422 
037044 


22eMARG7S 


007344 
aeonas 
990126 
990076 
290036 
090834 
016254 

612 
042103 


890004 
916254 
g12 


898876 


OB88S4 


133, 


e812 


15141 PAGE 43 


' 

baseeeeee 
eevee 
Joac0ees oe 
Jeaseceesenes 
Leavensesoese 


SOHSEHCOEOOSHHEHS ROLE ROEHOCEEO 


SOURCE FILE #2 
POSSHSSESHHSHHSESHSHTEOCHELOOS 
Poeseeeve 
eceseeeecaee 
MAIN FlLoW ROUTINES eOeeeeeereers 
eGetoesaasne 


PRAOHSESOOMOSHHSHESOOHFSHHPOOESHEOOHOHHHCHHOHSEEOOD 
POOCOHEOCEEOEOHEDRO OOOO ESOS ESEHTESEHESHTEOOHOOEHCDOD 


' 
J START © PROGRAM STARTING POINT 


' 
STARTI MoV 
MoV 


SCRATCHIMOV 
JSR 
CLEARY JSR 
aR 


15144 PAGE 34 


USRAREA,RD 

POL¢RD), SP 

EGHOSP(RS) 

PC, BUFCLR CLEAR OUT ALL 170 RING AUFFERS 
POL(RS), SP 

PC, INL YSCR 

PG, CLAVARS 

READY 


fecrwcccecewnegecqucecnceesecscece lunes esereeerenscaceqcces 


' 
} READY = PRINT 


’ 

READY! JSR 

READY) = MQV 
CUR 
CLR 
MOV 
aod 


READY2s MOV 


TOINET) CLR 


*HEadye 


pC, BUFCLA ICLEAR ALL I/o RING RUFFFRS 

POL (RD),SP 

CNCFLG(RS) pfeCr AND #008 FLAGS 

ODEV(KS) 

ACLMNTTY, COLUMN( AS) ISET TO COUNT TTY COLUMNS 
RS,COLUMN(RS) =3 NOW 

RL MSG 

CALF 

#REAOVE 


POL(R9),SP 
RL, MSG 
CRLF OLF 


ODEVERS) CLR ODEV ANO [DEV BYTES IN HSER AREA 


BASIC, 


669 
670 
e74 
672 
673 
674 
675 
676 
677 
678 
679 
68g 
684 
682 
68s 
084 
685 
686 
687 
688 
689 
690 
694 
692 
693 
696 
695 
696 
697 
698 
699 
708 
784 
702 
703 
794 
795 
786 
707 
708 
709 
710 
741 
712 
723 
744 
715 
716 
747 
718 
719 
720 
724 
722 
723 


BASICL 


724 
725 
726 
727 
728 
729 
738 
734 
732 
733 
734 
735 
736 
737 
738 
739 
748 
744 
742 
743 
744 
745 
746 
747 
748 
749 
759 
754 
752 
733 
754 
755 
756 
757 
758 
759 
768 
764 
762 
763 
764 
765 
766 
767 
768 
769 
770 
74, 
772 
773 
774 
775 
776 
777 
778 


MACXL2 


801226 
881232 
881234 
961242 
081244 
891250 
801254 
881256 
884260 
Ob4264 
801266 
001270 
881272 
881274 
801276 
881309 
0013284 
881306 
604312 
8013516 
381320 
891322 
801326 
881338 
BB1334 
801336 
881342 
981346 
881350 
881354 
881356 
801360 
881362 
901364 
981366 
881379 
881372 
881376 
281408 
081402 
401404 
981406 
991412 
881416 
901420 
861422 
oo1424 


MACX41 


001426 
001430 
801432 
BBL434 
001449 
001442 
091446 
301452 
301456 
001460 
301462 
201464 
301466 
201479 
801472 
304474 
001476 
oB15eg 
avise2 
ag1504 
201506 
901512 
301516 
981529 
0814522 
ao1524 
001526 
801530 
801532 
OB1534 
381536 
201549 
901542 
801544 
201546 
201559 
391552 
001554 
081556 
301569 
981562 
001564 
801573 
201572 
201574 
204576 
301600 
824604 
201606 
301612 
201614 
281616 
391629 
304622 
381624 


vo2t 


3046707 
183906 
127527 
284336 
990167 
024767 
225202 
940146 
346504 
160116 
122128 
100427 
880380 
152198 
961508 
924027 
183011 
2465284 
021627 
M81013 
285016 
295060 
980437 
195765 
081334 
000167 
004767 
210194 
£21427 
001452 
121193 
180779 
005204 
280323 
152193 
861503 
821327 
193362 
821913 
184357 
201936 
004767 
12127 
004427 
111193 
180774 
005204 


vo2s 


280303 
152103 
361583 
224327 
103362 
162701 
316509 
816582 
324904 
104403 
224004 
194901 
905018 
885728 
385322 
383370 
160401 
280404 
205902 
161624 
016500 
216502 
m24004 
103404 
460122 
985720 
495322 
#03372 
883701 
180433 
881505 
310402 
964602 
318203 
969103 
112322 
M20315 
183775 
185742 
204404 
985202 
030227 
204401 
195922 
010215 
612322 
820365 
103774 
940265 
980404 
385822 
320203 
183775 
288453 
211508 


22eMARe7S 45541 =PACE 15 


014702 
09016 29e225 
017604 
820236 


080020 


177775 
900016 
989883 
a90ne2 
000877 


280300 
817622 


898225 


177775 


017556 
090225 


22eMARe73 15541 


477775 
oeoove 


280R04 
009052 


890004 
320032 


280003 


990024 
090214 


J qeccccccngucccconecosccngscesccccuasccaserosssosneesseucsecs 


e0ly © 


GET LINE, TRANSLATE INTg TOKENS, AND MQVvE LINE INTO 


SYMBOL TABLE, ARRAY SPACE, ANO STRING SPACE, 


OfTs JSR PC LINGET 

acc EDIT, 

CMPB @CODE(R5),#,£0F 

BNE READYS 

IMP DEVERR 
EDITL: JSR PC, TRAN 

INC RL 

“OV RL ,e(SP) 

MOV LUNE CRS) RE 

sys RY, (SP) 

Move CRY) OERO 

BM EOTMMEO 

Swap RO 

ese (RE)OgRO 

400 (RS), RO 

CMP (RO), #, SCALAR 

BHIS EQIMMED 

MOV CODERS) Ry 

cMP (SP), 83 

BNE EOYSRGH 

CLR CSP) 

CUR 2(R@) 

BR EO{SRGH 
EDIMMEOITSTB TOEV(RS) 

BNE EOIT 

UMP IMMED 
ED{SKIPIJSR PC,SKIPEO, 
EDISRCKIMOV 4,R4 

cMPa (Ri), 8, £0F 

cla) EDIPUT 

MOVB (RO) VRS 

aM} EQSSKIP 

INC RY 

was RS 

8188 CRY HARS 

460 (R53) RS 

cMP (R3) 18, SCALAR 

BHIS EDISKIP 

CMP (RB), (RS) 

BHI EOISKIP 

BNE EQIPur 
ED{PASSItUSR PG, SKIPEOL 

cMPB (RO). 8, EOF 

aco EDIOVER 

Move CRY) DRS 

BMI EDIPASS 

INC RL 

PAGE 1501 

Swag RS 

81s8 (RE) O,RS 

400 (R5) RS 

cMP (R3), 8, SCALAR 

BHIS EOIPASS 

SUB W2,R4 

MOV POLERS) RO 

MOV GSBCTHCRS) ,R2 
EDICHGy CMP CHO), R4 

ALOS 1e19 

CMP CHO) RY 

BHI 104 

CLR (RO) 

rst (RO)e 

OEC R2 

BGT - EOICHG 
EDIOVER: SUB R4,R4 

BR 164 
EOIPUTH CLR RL 

sus CSP),RL 

MOV POL( RO) RO 

MOV GSBCTR(RS) ,R2 
EOLMODF ICMP (RO), KO 

BLO 1*4 

sya R4, (RO) 

TST (RO)s 

oec R2 

aGT EOTMOOF 

TST RL 

amy EQ}GROW 

BEO EOTSAME 
EDICONTIMOV R4,R2 

400 (SP) ,R2 

MOV R2,R3 

aoo RL,RS 
EDIMOVE MOVE (RI) oe (R204 

CMP RS, (R35) 

BLO EOyMOVE 

TST8 e(R2) 

BEQ 164 

INC R2 

alr R2,as 

SEO 14 

CURB (R2)@ 

MOV R2, (RD) 

MOV CRE) me (R20 

cMP R3,LOFREE(RS) 

aio 196 

MOV R2,LOFREE(RS) 

aR 104 

CUR (R2)¢ 

CMP R2,R3 

ele e4 

aR EOTSAME 
EDIGROWSMOV (R5),KO 


4 
U 
J 
) 
U USER CODE SPACE, WITH ALL ENTRIES MADE INTO USER 
4 
U 
€ 


JNORMAL INPUT QINE 
ICHECK EMPTY PROGRAM 
INQ, RETURN TO TTY LYPUT 
HYES, MEVICE NOT READY 


VIF THFRE ARE ONLY 3 BYTES THEN THE LINE 
ICONATINS LINENO,CR AND “EANS DELETE, 
VIGNORE [MM STMTS FROM NONeTTY 


yRA POINTS TO LINENO OF THE “EW LINE, 
yO¢S°) CONTAINS LENGTH OF THE NEW LINE, 


HIF A LINE IS CHANGED WHICH {S$ 
PREFFRENCEO BY THE READ POINTER, AN FY 
HPOINTFR OR & GOSUR POINTER THEN THAT 
JPOINTER MUST BE CLEARED 


IRL “OW 2 SCWARS TO CONTSACT, 

HALL REFERENCES BY THE READ POINTER 
sWHICH REFER TO LINES WHICH ARF MOVED 
HBECAUSE OF EDITING MUST GE PELOCATEN 


yR4 “OW © ADORESS AT WHICH TO INSERT, 


IMOVE OWN THE CODE, 
1R2 NOW POINTS TO BYTE AFTER THE ,E0F, 
yR2 “OW WAS THE NEW START OF THE SYMTAR, 


MOVE DOWN THE SYMBOLS, 


ICLEAR VACATED STRING STSRAGF TO ZEROES, 


Bes ty 


BASIC, 


779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
798 
794 
792 
793 
794 
795 
796 
797 
798 
799 
800 
ao 
602 
a3 
604 
805 
806 
807 
808 
029 
810 
612 
812 
613 
e146 
815 
816 
817 
818 
619 
622 
823 
822 
823 
826 
625 
826 
827 
828 
829 
830 
834 
832 
833 


BASIC, 


834 
635 
836 
837 
638 


MACX14 


081626 
281639 
681652 
801634 
001636 
904649 
891642 
081646 
081659 
881654 
881660 
361662 


801666 
0916790 
081672 
881676 
981700 
881704 
904718 


091722 
881716 
081722 
001724 
804726 
081730 
091732 
384734 
891736 
881749 
004742 
oa1744 
881746 
003759 
091752 
801756 
001768 
084762 
001764 
981766 
801779 
691772 
881776 
oe2ge8 
aa2902 
og2904 
g92906 
oo2g10 
902012 
902014 
002028 
ag2e22 


MACKAY 


a82024 
982930 
202034 
882036 


ve2s 


105749 
281402 
985200 
1601869 
210003 
8e52e3 
842723 
164503 
266583 
820365 
184402 
900167 


819322 
995722 
820265 
103405 
084767 
120265 
183364 


916502 
918365 
0ee4e, 
014243 
820225 
101375 
840315 
123043 
810992 
860199 
000403 
124942 
920004 
184375 
826500 
948404 
812682 
980401 
122824 
999302 
692375 
121127 
004417 
121102 
190432 
195234 
680322 
132122 
264502 
222227 
183003 
319112 


Yeas 


162712 
284767 
980756 
000167 


22eMARe73 


888082 


o9eo14 
800812 


020712 


oeea72 


021254 
908072 


990014 


298014 


ogee20 


099225 


177775 


22eMARe73 


290082 
017154 


177204 


15941 PAGE 1502 


TSTp 
BEO 
INC 
sye 
MoV 
Ine 
BIC 
su8 
apo 
cup 
aLos 
ERROV1t JHP 


a SPNOF 
MOV 
Ts? 
CMP 
80 
JSR 
cup 
AHIS 
sENOC 


EOtRoom mov 
MOV 


GR 
EOIMVUPSMOV 
CMP 


aH! 
EDLSAMEDMOV 
MOV 
MoV 
SR 
MOVB 
oec 


BGE 
EDIRLC8iCcMPs 
LT 4] 


“Ove 
aM} 
INC 
Swas 
eyse 
400 
cur 
BHIS 
MOV 


1504s PAGE 1503 


sua 
COIR, OCI USR 
BR 


EDL UMP) UMP 


e(RB) 

104 

Ro 

RL, RO 

AB,RS 

RS 

#4, R3 

(RS), RS 
LOFREE(RS) RS 
RS, HIFREE( RS) 
106 

ERROVe 


SNOSTH 
RS, R2 

(R2)6 
R2,LOSTR(RS) 
EDIROOM 

PG, UPPACK 
RZ,LOSTRERS) 
ERROVS 


OFREE(RS),R2 
S,LOFREE (RS) 
+4 

(RZ), CRS) 
R@, (RD) 
EQIMvyP 

R34 (R93) 

o(R3) 

RO,R2 

Ri, RO 

104 

(RO), e(R2) 
RO,R4 

a4 
GINE(KS) Ro 
Ra, RE 
(SP)o,R2 

a4 


' 
(ABO, (4)e 
Re 


a6 
(RO), 8, £0F 
EQI UMP 


(Royo, R2 
(RS), H2 
(R2)4,8, SCALAR 
EOIRLOC 

RE, CR2) 


m2, (R2) 
PC, SKIPEOL, 
EDTRLGS 
EOUT 


JR NOW POINTS PAST THE YEW WIGHEST AYTE 
sOF CODE, 


1R3 “OW WAS THE NEW START OF SYMTAB, 


URS NOW HAS THE NEW VALUF OF LOFREE, 
ICHECK TO SEE THAT THERE [JS FNOUGH 


HCMECK TO SEE THAT THE SPACE THAT WILL 
WBE USED 1S NOT OCCUPIED BY STRINGS 


INQ, MOVE THEM YP 
sTRY AGAIN 


IMOVE UP THE SYMTAS, 


HCLEAR THE POSSIALY USED FILLER 
yR@ “OW POINTS PAST OLO WIGHFST BYTE 


JOF SYMTAG, 
IMOVE UP THE COCE, 


IMOVE THE NEW LINE INTO THE ODE, 


BASIC, MACX14 veer 22eMARe73 15142 PAGE 16 


859 | 9vcwconwesencccesseecencgscccecnccceuseceseuenestocccccecece 

84g 

oat } IMMED © IMMEOJATE MODE CoMMANOS . 
4 } 

843 b Dg IMMEDIATE ONLY COMMANDS (RIN, LIST, SCRATCH, CLEAR, - 

B44 § SAVE, AND OLD) AND SET UP OTHERS (UNNUMBERED) FOR a 

845 } EXECUTE, 

846 1 

847 302042 242600 IMMED] = MQV (Sp) eyRe IR@ NOW HAS # BYTES ON INPUT LINE, 

848 g02044 385985 o90076 CLR ODEV (RS) STAKE ONLY THIS IMMED, COMM, FROM NONOTTY 

849 902050 316504 oo0006 MOV POSJZE(R5),R4 

850 902054 314531 asaves MOV LINE CRS) RY 

851 392060 295802 CLR RZ 

e852 ge2062 154102 8ISB (RY) K2 

853 292064 162722 920306 sus HLIST»R2 

854 392070 206302 ASL ne 

855 992072 029227 soa0t2 cup R2, ATRL 4END@TABLES 

856 302076 104912 BHI IMMSTMT 

857 382198 362702 ogonge aod #2,R2 

858 902194 799702 00 PG,R2 

859 992106 964207 a0 (R2),PC 

868 a02118 200162 TABLES) ,WORD LISTe TABLES 

861 082112 280206 ;WORD = RUN® TABLES 

862 082114 990126 ;WORO = SAVER TABLES 

863 302116 aga062 ;WORD =O De TABLES 

864 982128 177012 sWORD «= SGRATGHeTABLE4 = (IN (STARTS CODE, ABOVE) 

865 382122 177922 TBL4ENDI,WORD CLEAR® TABLES HCIN FSTARTS CODE, ABOVE) 

866 982124 369190 IMMSTMT} ADO RY,RO 

867 082126 229965 ag0016 CMP RB, CODE(RD) JSEE IF AN EOF! CAN BE FIT ON THE LINE, 

868 902132 183402 ALO 1*6 

869 202134 309167 o20034 aMP ERRTRN 

879 082148 112719 aga225 MOVE = #, EOF, (RO) 

872 082144 2912765 177775 aoeose MOV 8, SCAQAR, GINENO (PS) 

872 882152 295968 oeagRs6 CLR = CAMNTTY(R5) PRE@SET ALL COLMN COUNTS F 

873 902156 305667 176216 CLR CLMNPP ‘ 

874 902162 985967 176214 CLR CLMNLP 

875 982166 200167 990554 JMP EXECUTE SSTART RUNNING, 


876 


BASIC, MACX12 VO21 22eMAR®73 15141 PAGE 17 


877 ) 7004 COMMANO 

878 982172 416506 se0004 OLos MOV POL (RD), SP sFLUSH OUT SYSTEM 

879 982176 884767 213352 JSR PG,INITSCR HSCKATCH : 
680 g02202 204767 096574 usr PC, CLRVARS \ 
883 202206 394767 316722 vSR PC, SCANPNO sSCAN OFF tye : 
882 802212 204767 096464 vSR PC, CHKISET HCHECK AND SET INPUT 

883 992216 122127 090201 cura (RL) op 4, £0, HMUST END LINE RIGHT 

884 982222 301402 BEO 040892 

885 982224 980107 919314 JMP ERRSXS 

686 382236 360167 176772 OLoee1) UMP E0IT sTHIS MOES THE REST 

987 

888 } SAVE! COMMAND 

889 302234 024767 216674 SAVE! JSR PC, SCANPNO sSCAM OFF Pye 

890 302249 384767 706444 usr PC, CHKOSET HCHECK AND SETeUP OUTPUT 

892 302244 120227 sane82 cmPe R2,02 JLINF PRINTER? 

892 292259 903404 BLE LISTSV JNO} LIST TAKES OVER 

893 982252 304167 315222 JSR RL, MSGOOEV JFOR LPT, START W/ 2 FORMeFEFDS 

894 982256 g14 o14 ooo BYTE «FF AFF AQ 

895 002262 1 EVEN 

896 382262 384767 214316 LISTSVI JSR PC,LSTPROG 

897 982266 290167 176652 ume READY 

898 

899 s LIST! Command 

988 «302272 305201 LISTS INC Ry 

901 082274 794767 242554 JSR PC FLINE 

902 O82300 1959779 acs LISTSV 

98S 982302 944201 MOV CRA) RL” IGET ADOK OF CODE LINE 

904 902304 301766 BEO QISTSY bIP UNDEF, NORMAL LIST 

905 982306 294767 2914276 JSR PC, LSTLOOP LIST PARTIAL PROGR 

906 982312 300167 176626 UMP READY 


907 


BASICL 


908 
909 
910 
912 
912 
913 
914 
945 
916 
947 
918 
949 
920 
922 
922 
923 
924 
925 
926 
927 
928 
929 
930 
933 
932 
933 
934 
935 
936 
937 
938 
939 
940 
944 
942 
943 
944 
945 
946 
947 
948 
949 
950 
954 
952 
933 
954 
955 
956 
937 
958 
959 
960 
964 
962 
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963 
964 
965 
966 
967 
968 
969 
979 
973 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
9a4 
985 
986 
987 
988 
989 
998 
992 
992 
993 
994 
995 
996 
997 
998 
999 
1020 
1202 
1992 
1093 
1204 
4205 
1206 
1207 
1208 
12009 
1910 
1942 
1212 
1213 
1214 
1015 
1216 
4217 
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092316 
892322 
982326 
982338 
892332 
802334 
882336 
982348 
082344 
882346 
882352 
882354 
092369 
282362 
882366 
882379 
892374 
802376 
892400 
682404 
082486 
902419 
682412 
992414 
682416 
602429 
882424 
802426 
982439 
082454 
002436 
882442 
982444 
902446 
382459 
892452 
092454 
892456 
982462 
892466 
882479 
882474 
092476 
982528 
862582 
882506 
882549 
992514 
892516 
392529 
882522 
892524 
882526 
8825358 


MACXi1 


902534 
892536 
892542 
082544 
992546 
882552 
382554 
892568 
882564 
082566 
382572 
802574 
892576 


082609 
882686 
062614 
292620 
892622 
882626 


382638 


382633 
092634 
882636 


882644 


982642 
302646 
382658 
882652 
082656 
982668 
882662 
482666 
2382679 
382672 
092674 
802708 
402704 
202719 
002714 
882728 
202724 
282726 


vee. 


004767 
016501 
122102 
180406 
888302 
152182 
361502 
314265 
112192 
120227 
e1ais 
126227 
201530 
128227 
984504 
120227 
091557 
285303, 
084767 
300759 
122122 
100586 
280302 
152162 
064502 
122127 
081298 
8859035 
121127 
004406 
122127 
094971 
112103 
108467 
880303 
099204 
152103 
012704 
122427 
01423 
124127 
291954 
995204 
395904 
124327 
901406 
122127 
201044 
124104 
180442 
SB8SH4 
995204 
152196 
122127 


Voas 


001934 
824227 
801434 
082403 
305762 
190925 
004767 
122127 
204718 
1241427 
804015 
865293 
080653 


316565 
152765 
122127 
281642 
980167 
290086 


942211 


TT) 
opoeed 
042441 


122127 
201372 
112122 
566582 
203722 
781365 
122127 
301362 
210112 
360642 
985965 
393067 
705967 
216506 
016501 
121127 
304018 
284167 
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1 FRUNE COMMAND 


806468 RUNS Jsr PG, CLRVARS 
000826 MoV COOE(RS) , Ry 
OIMLOOPIMOVE CRE) Og RZ 
emt OJMNONO 
SWAB R2 
BysB (RYO RZ 
ago (RB), RZ 
299058 MOV (RZ), RINENO(RS) 
MOVE {RY} OyR2 
ege2i5 DIMNONO?CMPB R2,8,901M 
Bea DINGOT 
ago22, cMPs R2,8,0€F 
sea OGPGOT 
oge2i6 Cups R2,#,RANOOM 
Bea RNOGOT 
oge225 cmPa R2,8,£0F 
Bea OIMDONE 
oEec Ry 
016504 DEFOUN) JSR PG SKIPEOL 
BR OLMLoOP 
OIMGOTS MOVB (RY) OyRZ 
aM} ERROIM 
Swas R2 
arse (REO, RZ 
ago (RS), R2 
890255 céPe (RE) 0, #,LPAR 
BNE ERROIM 
CLR RS 
880375 CMPB CRO) @ ILITL 
BEO AWLOCL 
998376 cMPB CRY) Oy ® TLTT2 
ane ERROIM 
“ove CRA) RS 
Bm! ERROIA 
SWAB RS 
ALLOC14 INC RY 
Cer) (Rg) op RS 
477777 MOV og, Re 
890237 cure CRI), # REAR 
gee OOALL OC 
998245 cMPB (R428, COMMA 
ONE ERROIM 
INC RY 
CLR Rg 
090375 cure CRS BTLIFL 
SEO ALLOC? 
898376 curs CREO pM TLIT2 
@NE ERROIM 
MOVB (RO) AS 
BMI ERROIM 
swag R4 
ALLOC2q INC Ry 
aise (RY) gR4 
800237 CMPB (R4)o,8,RPAR 
22aMARe7S «15144 = PAGE 1804 
ane ERROIN 
177776 OOALLoci Cup (RZ), 8, NVAR 
ca) ERROIM 
Buy O[MSCLR 
og0004 TST 4(R2) 
aPL, ERROIM 
ge52sa OIMSCLRIVSR PG, ALLOC IVARCR2),SSLCR3S),SS204) 
BOG243 cMPB (RG) Oy, 4, COMMA 
a0 OUMGOT 
age2os cure OE R49 94, EOL 
BNE ERROIM 
INC RL 
ar OJMLOOP 
PRANOOMIZE STATEMENT 
880872 880064 RNOGOTI MOV RNDCT(R5) ,RNTLCRS) 
808001 882064 ayse WE ,RNQLCRDY 
agg204 GMPB (RL) 6) 8, EOL 
BEO OIMLOOP 
907716 uMP ERRSYN 
ERRDIMI TOT 
sJFNOF SONGER 
11> sASCIT ¢JOME 
eENOC 
LIFOF = SLONGER 
sASCIT ILLEGAL OfMe 
,ENDE 
:BYTE 2 
,EVEN 
ERRDEF! JOT 
sIFNOF = SLONGER 
12g ASCII NGOFN 
vENOC 
alFOr SLONGER 
sASCIL CS TLLEGAL OEFS 
,ENDC 
,OYTE 8 
vEVEN 
8g0262 DEPGOT) Cura CRO H EN 
BNE ERROEF 
MOVE (RL) +p RZ 
aeoees 400 POL (RD) R2 
TST (R2) 
BNE ERROEF 
900255 cure CRE Oem LPAR 
BNE ERROEF 
MOV R44 (2) 
OR OEFOUN 
299036 OIMDONEICLR CLMNTTY (RS) PRE®SEY ALL COLUMN COUNTS 
175474 CLR CLMNPP 
175472 CUR CUMNLP 
apage6 MOV POSIZE(RS5) Ra 
oeos6 MoV CODE( NS), Rg 
990225 cure (RO), 8, £OF 
ONE EXECUTE ISTART RUNNING, 
814922 ERRRUN} JSR RU gMSGERR 
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1818 vlPNOF SLONGER 
1819 982732 956116 422 sASCIT \NPR\ 

1220 +ENOG 

1022 vIFOF =$,QNGER 
1922 sASCII # NO PROGRAM! 
4223 +ENOC 

1224 992735 008 1BYTE 2 

1225 :EVEN 

1026 982736 300167 176244 JMP READYEZ 

1027 
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1028 bt tte ee LT eet ee ees 
1929 
tose § EXECUTE » EXECUTE CuMMAND LINE 
} 
1932 802742 2846767 016222 IGNORE! JSR PG sSKIPEOL 
1933 982746 195765 oa0106 EXECUTE: TSTB CNCFLGCRS) sfeGh HIT? 
1234 082752 3a1ea4 SEQ NOCNC 
1835 082754 125965 02106 CLRB CNCFLG(RS) 
1236 622768 990167 176160 JMP READY 
1237 002764 112192 NOCNCS MOVE CRY) O,R2 
1238 282766 292935 AGE NOTSYM HITS A POINTER, 
1839 682770 242702 177600 BIC #0200 ,R2 
4049 902774 296302 ASL R2 
1041 882776 220227 copese CMP R2,#TELLEND@ TABLE Le2 
1942 383002 104135 BHI ERRSX4 INOT A STATEMENT WORD, 
1843 983004 260702 400 PC,R2 
4244 883086 261207 ADO CR2),PC BRANCH THRU TAGLEL, 
1245 6830108 177736 TABLEL3 , WORD EXECUTE*TAARLEL 
1046 883012 399339 +WORD = ENDeTABLEX 
4247 903014 2042264 +WORD = FORRTASLEL 
1048 983016 301049 WORD = =©6GOSUBeTARLEL 
1249 083229 2019490 WORD GOTORTABLES 
1258 883022 200372 :WORD) [FeTABLEL 
1054 883024 292649 WORD INPUT@TABLEL 
1252 983026 209246 +WORD = LETeTABLEL 
1253 903030 001742 WORD = -NEXT@TABLEG 
1054 983032 092254 WORD = PRINTeTAALES 
1255 283034 a01144 :WORD = RETURNS TAGLES 
1256 903936 200352 WORD = STOPe TABLES 
1257 o93848 177732 «WORD = [GNORESTABLEY 
1258 303042 177732 WORD = [GNORE®TAGLEY 
1259 993044 291926 WORD = RESTORE * TABLED 
1062 963046 177732 WORD = [GNORES TABLED 
1061 983050 177732 sWORD = [GNORE@TABLEL 
1062 B83052 193346 +WORD = READ@ TABLEY 
1863 803054 177732 sHORD = [GNOREw TABLEY 
1264 903056 2300974 WORD = CALL TABLEY 
1265 283060 120339 TBLAENO!, WORD EQFeTABLEL 
1066 983062 188302 NOPSYM! SWAB R2 
1267 903064 152102 B1SB CRYO )RZ 
14268 983066 264502 add CRS) RZ 
1269 883079 0214227 177775 MP (R2),8, SCALAR 
1070 303074 1039075 BHIS ASSIGN HNOT A LINENO, 
1271 0803076 £11265 ooe0se Mov CR2)pQINENOCRS) FSAVE THE | INENO, 
1272 903102 980723 8R EXECUTE 
4873 


i274 


ee 
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1075 
1276 
1977 
1278 
1079 
1988 
1283 
4982 
1283 
jose 
1985 
1286 
1987 
1288 
1289 
1298 
1892 
1292 
1293 
ie96 
1995 
1096 
1297 
4298 
1299 
1208 
1193 
1222 
1203 
1204 
1105 
1106 


4297. 


1108 
1109 
2118 
2aaa 
1112 
1aas 
1214 
1415 
2116 
1227 
1118 
1219 
1428 
1122 
1222 
2223 
1424 
1225 
1126 
1427 
1128 
1129 


BASICL 


1130 
1432 
1132 
1433 
1134 
1135 
1136 
4137 
1138 
1139 
1148 
2444 
1242 
1243 
1244 
1145 
1146 
4147 
1148 
4449 
1150 
2452 
1252 
1153 
4154 
1155 
1156 
1157 
1158 
1159 
1260 
1261 
1262 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
4170 
14a72 
1172 
1173 
1174 
1175 
1176 
1177 
1478 
2379 
1280 
1281 
1182 
1183 
1184 


MACXL1 


883104 
0031198 
203112 
003114 
083128 
085122 
903124 


903126 
983132 
883154 


883136 
093149 


083142 
883144 
883146 
9035159 
683152 
883154 


063256 
883160 
903164 
883166 
883172 
883172 
003174 


MACX11 
983176 


983200 
893204 
883206 
903210 
O@3212 
983214 


383216 


083220 
993222 
803224 
083226 
883232 
BO32356 


083242 
383244 
283246 
283252 
283254 


303256 
383260 
293262 
883264 
983266 
293279 
893274 
303320 
283382 


883306 


803310 
993314 
893316 
303322 


803324 
883330 
303352 
BB3336 


383349 
283344 


veer 


204767 
183052 
612620 
s2ege7 
ao{eea 
122003 
112929 


813702 
004437 
810246 


105712 
ao4ase 


018846 
818346 
122022 
001034 
2835383 
801374 


164603 
062703 
882422 
eas404 
199722 
aaig23 
985303 


Veer 
AG1374 


262706 
*4L282 
204441 
829146 
710446 
318546 


204712 


222605 
242604 
022601 
800167 
820167 
200467 


9226233 
312608 
862716 
941682 
200759 


112122 
188766 
2160332 
152122 
361552 
204767 
122127 
901356 
704767 


183486 


122127 
901359 
904767 
480621 


122127 
281342 
384767 
488603 


3201265 
183014 
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886272 


477777 


CITT ET) 


soeees 
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289906 


177510 
911262 
007302 


290806 


012870 
299254 


286874 


eeo2e1 
845732 
908201 


815776 


@98B16 


15141 =PAGE 28 


1 TCALLS STATEMENT 
CALL "PROG" 4,4) 


| 2 
CALLE 


CALLS 


CALLPIE 


4 
CALLCK} 
' 


CALLM2I 


CALLM21 
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' 
CALLXS 


ERRFNII 
ERRSX14 
y 

CALLNMS 


Ler? 
Lets 


ASSIGN) 


ASSSTRI 


1 VEQF? 
ENO} 
EOF! 


slFNOF §=6SNOSTK 

JSR PG, EVAL sEVALUATE FUNCTION NAME 
ace ERRSXS, 

MOV (SP)e,RO 

CMP RO~W477777 CHECK NULL STRING 
8EQ ERRFNG HYES, ERROR 
MOVE {RO)O,RS sR3 1S STRING LENGTH 
MOVE CRBS (RODS yR@ tS ADDR OF CHARS 
,ENDC 

sSFOF = SNOSTR 

MOVE (RO) e,R2 yR2 1S QUOTE CHAR 
cMPa R2,8,SQU0T 

8Ea CALLY 

cMPB R2,#,0QU0T 

GNE ERRSXL 

cMPB (RL) oem, TEXT 

ANE ERRSX1 

“OV RL,RA WR TS ADDR OF CHARS 
CLR RS 

INC RS ICOUNT CHARS IN 83 
rsT8 (Roe 

ONE CALLP 

cMPa (RE )e,R2 SCHECK CLOSING QUOTE 
BNE ERRSXY, 

DEC RS 

BEO ERRFNY 

,ENOC 

wit TABLE SEARCH 

MOV #46, K2 

BEG ERRFNY JNO FUNCTIONS DEFINED 
MoV R2,0(SP) ySAVF ON STACK 
CHECK ENO TABLE 

Ts78 (R2) 

BE ERRFNY 

CHECK THAT (RS) CHARS MATCH 

MOV RB,e(SP) 

MOV R3,e(SP) 

CMPB {ROO PCR2)06 

BNE CALLNG 

oec RS 

BNE CALLMS 

CHECK THAT 40(R3) CHARS ARE 7 IN TABLE 
sus CSP),RS 

400 64,23 

aur ERRFNG 

sea CALLX 

TSTB (R2)e 

BNE CALLNA 

oec RS 

SNE CALL M2 

RETURN ANSWER 

aoo a6,SP )POP STACK 

MOV (RZ), K2 

8£0 ERRFNY 

MOV R4,e(SP) 

MOV R4,0(SP) 

MOV R5,0(SP) 

JSR pC, (RZ) 

MOV (SP) o,R5 

mov (SP) oyR4 

MOV (SP)O,RL 

uMP IGNORE 

JMP ERRUFN 

MP £KRSYN 

ADVANCE TO NEXT TABLE ENTRY 

MOV (SP) 0,83 

MOV CSP) o,RO 

400 #6, (SP) 

MOV (SP) ,R2 

aR CALLCK 

STATEMENT ROUTINE 

MOVE (RL) O,R2 

amt ERRSX1 INOT A POINTER, 
SWAB R2 

alse (RE), R2 

aod (R5) KZ 

JSR PC, GETVAR 

cMPa (R44, 8, £0 

BNE ERRSXL sNOT EQSIGN, 
vSR PG, EVAL 

1IPNOF SNOSTH 

acs ASSSTK 

,ENOC 

Cups CRYO) # EOL 

BNE ERRSXL 

JSR PC, STOVAR 

BR EXECUTE 

sIFNOF = SNOSTK 

CMPB (RE) ose, EOL 

BNE ERRSXY 

JSR PC, STOSVAR 

BR EXECUTE 

sENOC 

OR ‘ENO! STATEMENT 

CMP RY, COVERS) 

BHIS JMPROY 


BASIC, 


1185 
1286 
1487 
1168 
1189 
1290 
1192 
1192 
1193 
1194 
1195 
1196 
1197 


BAS}CL 


1198 
1299 
1200 
1201 
1202 
1203 
1204 
1225 
14206 
4207 
1208 
4209 
1218 
4213 
4212 
1213 
1214 
1215 
1216 
4217 
4218 
1219 
1220 
4224 
4222 
1223 
4224 
4225 
1226 
4227 
1228 
41229 
4230 
4232 
1232 
1233 
4234 
4235 
1236 
1237 
4238 
1239 
1240 
1242 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
4251 
4252 


MACXAL 


883346 
993352 
083354 


383356 


883362 
893366 
883378 
803374 


803376 


MACX12 


903402 
883406 
003418 
003414 
303416 
083422 
803424 
803426 
883430 
083432 


883436 


883449 
883442 
O23444 
323446 
083450 
893452 
383456 
223469 
883462 
803464 
083479 
883472 
803474 
0035e9 
383504 
983506 
093510 
883512 
003514 
883516 
883520 
283522 
983526 
883530 
9835352 
BB3534 
803536 
983549 
083542 
993546 
883558 
983552 
883554 
203556 
903560 
083562 
803566 
803578 
983574 


Vea. 


204467 
015 
830 

283356 

700107 


204167 
O15 
952323 
TT) 
BOS376 
300367 


va2a 


006767 
103444 
421127 
103718 
124127 
104305 
020604 
193533 
112146 
984767 


103152 


812623 
812600 
812602 
910846 
385046 
820227 
201404 
152216 
205920 
629327 
804404 
154300 
062702 
762783 
480402 
122322 
804947 
395308 
802410 
485316 
202372 
122327 
881049 
493328 
282373 
200407 
@85716 
883405 
122722 
801056 
065316 
883373 
095726 
012690 
142102 
120227 
301403 
120227 
201013 


22eMARa73 


014188 
o12 * 

175644 

814066 


a12 
850417 


175542 


22ahARe73 


895774 
oen244 
009254 


895744 


177777 


477777 


ogoguS 
200803 


000840 


288048 


aoees2 
aoozes 


15142 


15144 


PAGE 2802 
JSR RL MSS 
iBYTE — CaF 
BYTE @ 
1EVEN 
vMP cor 
) FSTOPS STATEMENT 
STop1 ySR RA MSG 
:BYTE = -CRALF 
vASCII «STORE 
\OYTE 
EVEN 
JMPROY] JMP READY 
PAGE 23 
) TERE STATEMENT ROUTINE 
1Fy JSR PG,EVAL 
acc IFNUMER 
CMPB (RO), 8, LE 
8,0 ERRSXL 
CMPB CR), 8, EO 
BHI ERRSX1 
CMP SP,R4 
BLO ERRPDS 
“OVE CRL) oy a ( SP) 
JSR PC, EVAL 
vIFNOF = SNoSTH 
acc ERRMX4 
vENOC 
MOV (SP)4,R3 
MOV CSP)o, RD 
MOV (SP)4,R2 
MOV RO, e(SP) 
cua (Sp) 
CMP R2, hed 
80 1*4 
BIse (R2),¢SP) 
CLR RB 
CMP AS, Hed 
BEQ 1o4 
81SB (K3), KO 
ADO #3,R2 
aoo #3,R3 
BR 1%6 
IFLOOP) CMPB CR3) a, (R206 
BNE 1FCOMP 
oec RO 
SLT TEWEND 
ogc (SP) 
BGE TFLoor 
CMPB CRI) o, #8L, 
BNE TECOMP 
oEec RO 
aGE 1949 
8R IFSEQ 
IFLENOT TST (SP) 
BLE 1FSEQ 
cMPe MOL (R2)6 
BNE IF COMP 
OEC CSP) 
ac’ 1042 
IFSeor TST (SP)e 
MOV (SP)4,R8 
IFLEQRI “OVE CRE) oy R2 
cMPB R2,#, THEN 
BEG hes] 
cMPa R2,#,G0TO 
NE ERRSX?7 


ae 


BASICL 


1253 
1254 
1255 
1256 
4257 
1258 
1259 
12690 
4263 
1262 
1263 
1264 
1265 
1266 
4267 
1268 
1269 
1270 
4273 
1272 
$273 
1274 
4275 
1276 
4277 
4278 
4279 
1288 
1282 
1282 
1283 
1284 
1285 
4286 
1287 
1288 
1289 
1299 
4293 
4292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1304 
4302 
1303 
4304 
1305 
1306 
1307 


BASICL 


4308 
4509 
3518 
2522 
4312 
1513 
4314 
4315 
4316 
4347 
1518 


MACX42 


003576 
803682 
293604 
093619 
a03612 
883616 
893629 
883624 
283630 
993632 
883634 
803636 
803649 
803644 
893646 
003652 
003654 
903656 
003668 
093664 
0036798 
893672 


883676 


983700 
208782 
883706 
083719 
093712 
303714 
883720 
883722 
883726 
993738 
803734 
083736 
093742 
883744 
093750 
093752 
883756 


093762 


983766 
093778 
883772 
083774 
884908 
204902 


MACK12 


284006 
204010 
004014 
884816 
004022 
304024 
384050 
984932 
884036 
304844 


V2. 


128927 
304522 
129927 
01517 
222027 
284514 
090167 
080167 
282456 
005726 
822628 
389425 
121127 
103767 
121127 
101364 
320606 
183437 
816546 
816546 
112146 
004767 


198433 


012608 
884767 
001724 
892439 
412192 
120227 
901483 
120227 
901118 
120027 
304445 
120027 
204442 
120927 
304437 
000167 
908167 


808167 


85726 
342680 
122102 
120227 
881403 
120227 


Vo2t 


081060 
1420027 
01415 
120027 
801432 
120827 
804407 
800167 
942775 
080167 


22eMARe73 
999244 
990246 
098254 


1772120 
996714 


oge244 
098254 


oganez 
090040 


095504 


815542 


390242 
808205 
op8244 
oe9252 
590258 
476764 
096920 


007024 


990242 
808285 


22eMAReo73 


880246 
080253 
090250 
176704 


477777 
176676 


15142 


15444 


800004 


PAGE 2101 


cMPB 
80 
cMPe 
BEO 
cMPB 
BE 
ume: 
ERRSX74 UMP 
IFCOMP) 8LT 
1S? 
MOV 
8R 
TFNUMERSCMPB 
BLo 


CMPB 
Buy 


IFLLTRI eure 


ERRPOS) UMP 
ERRMX45 JMP 


1Fs¢tt ts? 
IFLGTRI MOV 


PAGE 2402 


BNE 
Cups 
BEo 
CMPB 
BEQ 
CMPB 
BEQ 
PLlg 
RESTOREIMOV 
uM 


(SP)e 

CSP) 4,RO 
IFLLTR 
(RL) 8 LE 
ERRSX7 
(RL) 8, £0 
ERRSX7 

SP ,R4 

ERRPOS 
FAG2(R5), (SP) 
FACL(K5),0¢(SP) 
CRY) en (SP) 

PC EVAL 


SNoSTR 
ERRMKS 


(SP)4,RO 
pes suasTK 
IFLEOR 
IFLGTHR 
CRY) Op RZ 
R2,8, THEN 


ht J 
R2,8,G0TO 
ERRSXO 
ROA LE 
GOTO 
ROA be 
GOTO 

RO a, NE 
GOTO 
IGNORE 
ERRPOL 


SNOSTR 
ERRMIX 


(SP)o 
CSP)e,R9 
CRY) Op R2 
R2,8, THEN 
eto 
R2,8,G0T0 


ERRSXO 

RO, 8, GE 

GOTO 

RO,#, GT 

GOTO 

RO, 8, NE 
GOTO 

TGNORE 

#04, PPOL(RS) 
EXECUTE 


BASICL MACXi1 Va. 22eMARe73 15144 PAGE 22 


4319 1 'GosuB! AND ‘GOTO! STATEMENTS 
1320 Gosuai 
1322 384050 906767 210768 GoTo: SR PCSFLINE 
1322 984954 193435 Bcs ERRSKO 
13235) 904956 122127 s00201 CMPB (RL) ope, EOL, 
1324 984962 304932 BNE ERRSX6 
1325 984964 395712 TST (R2) 
1326 204966 6384425 BEo ERRGO 
4327 984078 1261427 177774 «aoo2n6 CMPB =4(R1),8,GOSUB 
2328 984076 901915 BNE GONOSAV 
2329 804198 «316503 og0052 MOV GSBCTK(RS),R3 
1330 084104 396303 aSt RS 
1331 994126 466503 ogon04 400 POL (RD) RS 
4332 904112 920365 sague2 CMP RS, LIMITORS) 
1333 904116 192896 aut ERROEEP 
4334 #904129 «940113 MOV REARS) 
1335 904122 395265 age0s2 INC GSBCTR(RS) 
4336 924326 011204 GONOSAVIMOV (RZ) KE 
4337 304130 290167 1766012 MP EXECUTE 
4538 004134 agege4 ERROEEPI OF 
1339 vIFNOF = SLONGER 
1348 (904136 «9497197 404 ASCII = \GNON 
4342 sENOC 
1342 1IFOF  SLONGER 
1343 sASCIL *GOSUBS NESTED TO0 OFEPLYE 
1344 ,ENOC 
2345) 994141 608 sBYTE @ 
1346 ,EVEN 
1347 994142 2ag0904 ERRGO} 107 
4348 sIFNOF = S,ONGER 
1349) 904144 946125 116 sASCIT ULNA 
1350 ,ENDC 
2354 vIFOF == SLONGER 
1352 sASCIT "YNOEFINED LING NUMBFRI 
1353 sENOE 
1354 994147 208 »BYTE @ 
1355 vEVEN 
ise 804459 000167 296378 ERRSX6} UMP EKRSX> 
a 
BASICL MACX22 VO2L 22eMAR@73 15142 Pace 23 
13568 } FRETURNG STATEMENT 
1359 394154 122127 asg203 RETURNI CMPB (RL), £04, 
4560 904169 904373 BNE ERRSX6 
4362 984162 216503 sepes2 MoV GSBCTRIRS),R3 
4362 994166 329327 sae033 cMP RI, 833 
1363) 904172 909415 Bea ERRRET 
1364 984174 395323 oec RS 
4365 984176 910365 agees2 MOV RS,GSECTR(RS) 
4366 984282 986323 aS, RS 
1367 9894204 366503 sean04 aod POL (RD), RS 
1368 986219 985713 Ts? ¢R3) 
4569 984212 981405 peo ERRRET 
4570 904214 «214302 ¥ MOV (R3), RL 
ac7t 084216 880167 176524 JMP EXECUTE 
137 
1373 rTFNOF = SNOSTR 
4574 984222 380167 o90564 ERRMXS} IMP ERRMIX 
4375 ENOC 
1376 
1377 904226 6agegos ERRRET} JOT 
1378 t}FNOF  SLONGER 
4379 204230 041122 407 sASCIT \RBGN 
1380 , ENDS 
1384 tIFDF «= SLONGER 
1382 sASCI] RETURN BEFORE GnSuB! 
1383 ,ENOC 
1384 «304233 906 :OYTE 2 
1385 1 EVEN 
1386 
1387 1 FFOR! STATEMENT 
1388 304234 910146 FOR! MoV Ra,e(SP) 
1389 994236 395316 vec (SP) H(LOC OF THE FFORE) 
1398 904249 1121082 MOVe (RL) O,R2 
1394 204242 190742 amt ERRSX6 
4392 094244 399322 SWAG R2 
4393) 994246 6152102 aise CRYO yR 
4594 904259 261522 ano (RB) RZ 
1395 994252 3214227) 177777 CMP (R2),8,SVAR 
1396 984256 6901736 BEG ERRSX6 
45397 984269 122127 90254 cups (RO) oO, 8,60 
1398 996264 204334 BNE ERRSX6 
1399 984266 319265 agoe22 MOV R2,VARSAV(RS) = (VAR_AF THE FOR) 
1400 084272 304767 005194 usr PG, EVAL 
2402 
1402 1]FNOF SNOSTK 
1403) 004276 193751 ecs ERRMXD 
1404 sENDC 
1405 
4406 304309 332765 177777 go0024 MOV Med, SSUSAVIRS) FORCE 12 SCALAR, 
1407 894306 304767 014742 vsr PG, STOVAR 
1408 «994312 122127 se0240 CMPa CRY) $8, 70 
1409 =©384316 281314 SNE ERRSXO 
1412 384328 384767 205056 vSR PG, EVAL 
1444 : 


1412 v[PNOF = SNOSTK 


See 


BASICL 


4443 
a4a4 
3415 
2426 
2427 
2418 
1419 
1420 
4424 
1422 
4423 
1424 
1425 
1426 
1427 
1428 
1429 
44308 
4434 
1432 
4433 
1434 
4435 
1436 
1437 
4438 
1439 
1448 
1443 
1442 
1443 
4444 
1445 
4446 
1447 
4448 
4449 
1458 
2433 
1452 
1433 
1454 
1455 
1456 
1457 
1458 
1459 
4408 
4463 
1462 
1463 
4464 
1465 
1466 
1467 


BASIC. 


1468 
1469 
1478 
1472 
1472 
4473 
1474 
1475 
1476 
1477 
4478 
1479 
4480 
1482 
1482 
1483 
1484 
4485 
1486 
1487 
1488 
1489 
1499 
1492 
1492 
4493 
1494 
1495 
1496 
1497 
1498 
1499 
45e0 
1504 
4502 
1503 
1504 
1505 
1506 
4507 
1508 
1509 
1512 
1913 
1512 
4513 
1514 
1515 
1516 
4317 
1918 
1519 


MACX22 
0946324 


904326 
884334 
884342 
804346 
884354 
084360 
884362 
984366 
084378 


884374 


884376 
064402 
084404 
394406 
894412 
a04ai4 
204429 
994422 
094424 
084426 
004439 
884432 
004434 
004449 
004442 
884444 
304459 
804452 
084456 
004469 
084464 
804466 
004479 
0894472 
894474 
984476 
894508 
994502 
884504 
884518 
694512 


984514 


994517 


MACX11 


904528 
904524 
394526 
004530 
884532 
804534 
204536 
004549 
304544 
004546 
004552 
006554 
304500 
004504 
804566 
304572 
304576 
304602 
804606 
904612 
304616 
304622 
304626 
904030 
304634 
004636 
494642 
084646 
304652 
004656 
004662 
304664 
004666 
304679 
204672 
304674 
394709 
304722 
004704 
a04718 
004714 
094728 
904722 
394726 
804739 
084732 
884736 
304744 
204746 


VOes 
193736 


016565 
916565 
885965 
012765 
124127 
81422 
122127 
004270 
304767 


183732 


124227 
801262 
095203 
8146503 
8e04e2 
804767 
141102 
100442 
085284 
809302 
152102 
964522 
824227 
103903 
341293 
121127 
091420 
121127 
2044290 
121127 
o0{333 
605203 
2af102 
198758 
35202 
380302 
152102 
961582 
020265 
994344 
opege4 


853526 


vo2. 


62704 
121192 
1907352 
295203 
888302 
152122 
864502 
220265 
804323 
122127 
0010590 
162702 
126623 
121621 
116522 
126521 
116521 
126521 
116523 
116521 
116521 
116521 
819316 
316546 
201902 
916516 
0165466 
236546 
004767 
084767 
901424, 
180408 
085726 
1804147 
a904a4 
206167 
085726 
180912 
912665 
125064 
105861 
909203 
160167 
495726 
385726 
116146 
116166 
912603 
100167 


22eMARe73 


898049 820024 
290042 898026 
000040 
880801 880042 
898202 
098241 


805806 


898203 


eeeese 
014558 


177775 


890225 
e021 
860203 


bgae22 


426 


22eMARe73 


099845 


agoe22 
oea2e, 


genet 
890003 


ogoo25 
oagez4 
o00e27 
888026 
ogoe4d 
090040 
392043 
990042 


080040 


090042 
098026 
agoues 
an4524 
014566 


235644 


000030 
477764 
177705 


176628 


477765 


177764 9900084 


475770 


15144 


15941 


oy cHPe 


PAGE 2304 


acs 
sENOC 


MOV 
MOV 
CLR 
MOV 
CMPa 
BEQ 
cMPB 
BNE 
JSR 


ap PNOF 
acs 
sENOC 


FORONE} 


FORSKIPSYSR 
FORLOOKIMOVB 
BMI 
TNC 
SwaBb 
a1se 
a0 
CHP 
BHIS 
MOV 
cHPB 
BEG 
cups 
BEG 
cure 
BNE 
INC 
MOVB 
aM} 
ING 
Swag 
8188 
400 
cP 
BNE 
1or 
 TFNOF 
ASCII 
+ENOC 
LIFOF 
sASCIL 
+ENDC 
:BYTE 2 


FORNOLI 


ERR4WOt 


PAGE 2302 


1EVEN 
ForRNEX?tADO 
MOVE 


BMt 
INC 
swag 
8yse 
400 
cme 
BNE 


BNE 
sys 
MOVE 
move 
MOVE 
“Ove 
“ove 
MOQy8 
“ove 
“Ova 
Move 
“Ove 
MOV 
“OV 
BNE 
“OV 
MOV 
MOV 
JSR 
JSR 
geo 
amt 
FORGYLNETSY 
amy 


BR 
ERSX49) JMP 
FORLTLMITST 
BPL 
FORZEROIMOV 
CLR 
CLRB 
INC 
ume 
FORGOGOITST 
FORGO! TST 
Move 
move 
MOV 
ump 
E07 


_ AGSP)) CRD 


ERRMXD 


FACL(K5) ,SSASAV(R5) 
FAC2Z(K5S),SS2SAV(RS)S(LIMIT OF THE FOR) 
FACL(RS) 

OL, FAG2CR9y 
CRA)» 8, EOL, 
FORONE 
(Roo, 8, STEP 
ERRSX6 
PO,EVAL, 


SNOSTK 
ERRMXS 


PASS'MFO STEP IS 1,3 


sCFAC HAS THE STEP) 


tS re) 
ERRSX6 

RY 
LINENO(RS) RS 
FORLOOK 

PC, SK}PEOL 
CRL) RZ 


CRE) Og RZ 

(R35) ,R2 
(R29) #, SCALAR 
FORNOL 
(R2),KS 
ORL), 8, EOF 
ERR4WO 
(RY) 8, NEXT 
FORNEXT 
CR4))#, FOR 
FORSKIP 

Ry 

CRE) RZ 
FORSK{P 

Ra 

RZ 

CRY) O)R2 

CRS) RZ 

RZ, VARSAV(RS) 
FORSK§P 


HCTHE LINENG WHILE LOOKING) 


1THE CODE 1S NOW BEING SEARCHED 

}FOREWARO FROM THE (FOR? FOR A NEXT WITH 
HTHE SAME VAR, IF (EOF! OR ANOTHER (FOR! 
sWITH THE SAME VAR IS FOUND FIRSTIERROR, 


SWONGER 
eFWNe 


SLONGER 
*FOR WITHOUT NEXTE 


#13,R1 

(RL) RZ 

FORSK|P 

RY 

R2 

(Ro) o,R2 

(R5),K2 

RZ, VARSAV(RS) 

FORSK iP 

CRO), 8, EOL 

ERSX49 

#44, RY 

JPUT ADDR OF THE 
CSP), 4RLD¢ H47HATS WHAT THE 
SSASAVOL(RS), (CRIVSPPUT THE LIMIT 
SSUSAV(RS), (R1ID* 

SS2SAV*L(RS), (Ride 
S$2SAy(R5),(R1Ve 
FACLOI (RS), (RAYS 
FACA(K5), (R16 
FACZ02(R5), (RIe 
FAC2(K5),(RADe : 
R3,(SP) yPUT THE SEARCH LIJNENO ON THF STACK, 
FACS (a9) y2t3P) JPUT SGN(STEP) ON THE STACK, 

e 


t 

FAC2(R5), (SP) 
SS2SAV(R5),0(SP) 
SSASAV(RS),0(SP) 
PG,EVAL 

PC, SUBSTK 
FORGOGO 

FORL TAM 

(SP)¢ 

FORGO 

FORZEKO 

ERRSX> 

(SP)¢ 

FORGO 

(SP) op, INENOCRS) 
en4cRd) 

wU3S(RL) 


tFORl AFTER THE I NEXTS, 
24464 BYTES ARE FOR) 
AFYER THAT, 


HPUT THE STEP AFTER THAT, 


JPUT THE LIMIT ON THE STACK, 


1GET TWE CURRENT VALUE OF THE INDEX, 
}SUBTRACT THE LIMIT, 


RY 

EXECUTE 

(SP)e 

(SP)4 
43(R29, (SP) 
wh4CRE2,1¢08P) 
CHP) O RL 
TGNORE 


BASICL 


3520 
1524 
4522 
4523 
1524 
1525 
1526 
15327 
1528 
1529 
1530 
153% 
1532 
13533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1543 
1542 
1543 
4944 
1545 
1546 
1547 
15468 
4549 
4550 
1553 
4552 
14553 
1554 
4555 
4556 
1557 
1558 
1559 
1560 
1563 
1362 
19635 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1573 
1372 
4573 
1574 


BASICL 


1575 
1576 
1377 
1578 
1579 
1580 
1583 
1582 
1583 
1586 
1585 
3586 
1587 
1588 
1589 
1598 
1594 
4592 
4593 
4594 
1595 
1596 
1597 


MACXLL 


884752 
804754 
304756 
884769 
884762 
084766 
084778 
984774 
204776 
085902 
805004 
895906 
205018 
805812 
395814 
805816 
295820 
805822 
o95e24 
085926 
8059352 
285934 
905949 
885044 
085046 
205952 
905854 
295856 
985962 
805066 
085078 
885972 
005876 
895190 
085104 
005110 
095112 
885120 
905124 
005138 
885134 
805136 
885142 
005144 
905159 
805154 
085156 
805160 
005164 
905166 
005178 
305174 
005176 


MACX44 


805208 
885202 
925206 
095218 
805214 
905216 
995222 
805224 
8052350 
805234 
995242 
805246 
825252 


085254 


005257 
395260 


vo2s 


295802 
152192 
386302 
152122 
820265 
183134 
122227 
881126 
962703 
112123 
100525 
080383 
154103 
264503 
205301 
122122 
aesai4 
124122 
801112 
121227 
304107 
840365 
824327 
904595 
022327 
OB4404 
841303 
312365 
911365 
805304 
124146 
114166 
124146 
114166 
641665 
881983 
016665 
204767 
016546 
916546 
114146 
124166 
134146 
114166 
004767 
801417 
100404 
095765 
190423 
898403 
905765 
1290997 
105041 


va2s 


185042 
062704 
922626 
980167 
114146 
124166 
012602 
042665 
812665 
942765 
884767 
880167 
200006 


341116 


280 
900167 


22eMARe73 154844 PAGE 24 


' 
+ INEXY! STATEMENT 
Re 


NEXT! CLR 
BySB (R4)o,R2 
SWAB RZ 
8188 (RL) e,R2 
oooe.4 cup R2,LOFREE(RS) 


BHIS ERRNEXT 


og02e3 CMPB (R2) 6,8, FOR 
BNE ERRNEXT 
000022 ano 640,R3 
nove (RYO pRS 
BM} ERRSXZ 
SWAB RS 
81SB CRO ARS 
a00 (R53) KS 
oEC Ry 
CMPB (RL) Op (R204 
BNE ERRNEXT 
cups CRY), (R206 
SNE ERRNEXT 
090254 cure (R2),8,£0 
BNE ERRNEXT 
eeovz2 MOV R3,VARSAV(RS) 
177777 CMP (R3),8,SVAR 
BED ERRSX2Z 
177775 cup (RS)e,#, SCALAR 
BEO 1o4 
MOV CRS), RS 
000040 MOV CR3) Op FACLERS) 
agee42 MoV (R3)  FAC[(RS) 
oec R 
: Move o(RL),e(SP) 
90802 MOVE eG Raga (SP) 
MOVE e(RL),e(SP) 
290003 MOVE e( RA LSP) 
890826 MOV 
BNE ro] 
B80RR2 g88826 MoV 2¢S5P),SS2SAVCRS) 
292476 JSR PG, ADYSTK 
age8e2 Mov FAC2(KS),e(SP) 
900040 MOV FACLCR5), 0 (SP) 
MQOVB e(Ra)ge(SP) 
290002 MOVE (RIG CSP) 
MOVB e( RL) ,e(SP) 
808001 Move oCRA9 4 (SP) 
a34274 JSR PC, SUBSTK 
BEG NEXGO 
amy NEXLTLM 
990926 NEXGTLMITST SS2SAV(RS) 
BM} NEXGO 
BR NEXENQ 
apeez6 NEXLTLMI TST SS2SaV(R5) 
8p NEXGO 


4 
NEXENOT CLRB *(R4) 


22eMARe73 «151844 = PAGE 2404 


CLRB e(Rd) 


eeoeis 00 #45, R2 

cMP (SP), (SP)s 
175532 ume EXECUTE 

NEXGO} MOVE e(RL),e(SP) 

ogoges MOVE = (R42) LSP) 

MOV ($P)0, R41, 
ogouse MOV (SPO) FACLERS) 
290042 MOV (SP) oy) FACZ(RS) 
177777 agne24 MOV Hes, SS1SAV(RS) 
814026 usr PC, STOVAR 
173470 JMP IGNORE 


ERRNEXTIIOT 
tTFNOF SLONGER 
196 +ASCIT  \NBFN 
,ENDC 
1IFOF © SLONGER 


SOURCE FILE #3 


HJUST 70 PREVENT AN NXM TRAP, 


}SAVE VARIABLE ADDRESS, 


sPUT THE FOR VAR VALUE INTO FAC, 


sPUT STEP ON THE STACK, 


(SP),SS2SAV(P5) ;SAVE SGN(STEP), 


HTHROW AWAY INCREMENTED INDEy, 


ISTORE THE INCREMENTED INDEX, 


ASCII NEXT BEFORE FOR! 


,ENOC 
:BYTE 8 
1EVEN 


895260 ERRSX2) JMP ERRSXD 


Ol 


BASICL 


1598 
1399 
1600 
1602 
1602 
2603 
1604 
4605 
1606 
1607 
1608 
1609 
1619 
a6aa 
1612 
1615 
1614 
1615 
1616 
1647 
1618 
4619 
1020 
1623 
1622 
1623 
1624 
1625 
4626 
14627 
1628 
1629 
1638 
1633 
1632 
1633 
1034 
1635 
1636 
1637 
1638 
1639 
1648 
4044 
1642 
1643 
4644 
1645 
1646 
1647 
1648 
1649 
1650 
1653 
1652 
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1653 
1654 
1655 
1056 
4657 
1658 
1659 
1668 
1663 
1662 
1663 
1664 
4665 
1066 
1667 
1668 
1669 
1678 
1672 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1683 
1682 
1685 
1684 
1685 
1686 
1687 
1688 
1689 
1699 
1693 
1692 
1693 
1694 
4695 
16096 
1697 
1698 
1699 
17280 
1704 
17282 
1703 
1724 
1705 
1726 
1727 
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085264 
385270 
995272 
805274 
395300 
085302 
285304 
905312 
895316 
205320 
885324 
985326 
895352 
885334 
8053498 
895342 
805346 


905358 


985354 


085356 
8B5364 
895366 
085372 
885376 
285406 
805404 
995405 


885406 


085419 
805412 


005414 
085416 
385429 


MACXL 


095422 
095424 
325426 
385432 
985449 
005442 
305446 
005459 
205454 
905456 
003469 


005462 
085466 
085478 
805474 
085476 
925522 
085504 
305519 
985512 
205516 
905520 
005524 
305526 
095536 
395534 
285536 
305542 
085544 
685559 
885552 
985556 
30556g 
385564 
905565 


305566 
895579 
905574 
305576 
305608 
205604 
805606 
905610 
985616 
005622 
305626 


vo2a 


124127 
884916 
905201 
304767 
085702 
a04423 
426265 
124427 
201403 
122127 
881355 
124127 
204453 
121127 
804453 
121127 
601458 


094767 


183447 


927527 
191402 
884767 
984767 
820726 
894167 

040 

908 


990430 


005406 
080420 
200402 


812602 
805202 
281423 


V@2a 


895803 
154203 
962702 
427527 
103422 
384767 
112208 
384767 
885303 
993365 
498403 


494167 

940 
124127 
981893 
384767 
200444 
122127 
304927 
217509 
281438 
920027 
081425 
103403 
004767 
200421 
220027 
204416 
020827 
81413 
220027 
aai4ie 
04467 

349 

220 


000752 
124127 
891254 
205204 
124127 
701250 
305284 
142765 
260565 
103065 
588167 
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890261 
093410 
895406 
80204 
200260 
800243 
808236 
goe2e4 


8O4926 


390034 


800248 
012340 


212974 


22eMARe7S 


OB0805 
200854 


898464 
813252 


012012 

ooo 
egozey 
090330 
0g0243 
og0034 


280070 


388076 
200052 
998034 
@08016 
414724 


828236 


998201 


429036 
238054 
020076 
175114 


800034 


080074 


668112 


200834 


45144 PAGE 25 


+ PPRINT? STATEMENT 


PRINTI Cpe 
BNE 
tne 
JSR 
TST 
BEO 
MOV 

COLONCHICMPB 
BEQ 
CMPB 
GNE 

PRNT@11 CMPB 
BEO 
CMPB 
BEO 
CMPB 
BEO 


,TFOF 
CMPB 
BE 
CmPB 
BEo 
cMPS 
Bea 
ENOC 


JSR 


av TFNOF 
scs 
ENO 


Cup 
BLOS 
JSR 

vSR 

, WORD 
JSR 
ASCII 
BYTE 8 
EVEN 
BR 


TABLS 8, 02 


PRISTRt MOV 
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cLR 
8{s8 
A00 
PRILOOPSCMP 
BLO 
JSR 
MOVB 
JSR 
OE 
BGT 
BR 
+ ENOC 


PRICMS yJSR 
1BYTE 
PRIBOTHICMPB 
BNE 
JSR 
BR 
PRIMOREICMPB 
BNE 
PRICOMMEMOV 
BEO 
CMP 
BEO 
BLO 
vSA 
BR 
CMP 
BEO 
cup 
BEQ 
CMP 


PRISEMIICMPB 
BNE 
TNC 
PRIETESTICMPB 
BNE 
PRIUMP} INC 
MOV 
400 
CLRB 
JMP 


vSFOF 
PRISTRy MOVE 

CMPB 
PRISJI BNE 
PRIST2; MOVB 


CRE) 0%, POUND HIS IT (PRINT BNE Vea! ? 
PANTOR 

Ry 

PC, CHKOSET CHECK CHANNEL AND SETeyP 1/0 
R2 HOEVICE CODE 

COLONGH 

TABLS5 (RZ), COLUMNERS) JNON®TTY COLUMN COUNT 
CRY), #, EOL 1DON'T NEED COLON IF NOTHING 
PRNTOL » FOLLOWS NUMBER 

(RG) oy", COLON 

ERRSX2 

(R41), #, COMMA 

PRICM 

(RL), 8, SEM! 

PRIBOTH 

CRE), 8, EOL 

PRIBOTH 


SnoSTR 
(R4),8,SQUOT WCHESK PRINT STRING 
PRISTH 

(RL), #8 ,00U0T 

PRISTK 

(HE) 8, TAB yOR TAR FUNCTION 
PRITS 


PC, EVAL, 


SNOSTR 
PRISTR 


OCOLUMN(RS) #74 
*6 


' 
PC,PRINCR 
PG, NUMSGN 
PUTCWAR 
R},MSGODEV 
‘ 


PRIBOTH 


CUMNPP 
CUMNLP 


SNOSTK C; 
{Spe cRe A - 
R2 

PRIBOTH 


R3 
oGRZ) ERS 

#3,R2 
®GOLUMN( RD), #119 
1*6 

PC,PRINCR 
(R2)4)RO 

PC, PUTCHAR 

RS 

PRILOOP 

PRIBOTN 


Ri MSGODEV 
Baie 
(RL), EOL 
PRIMOKE 
PC, PRINCR 
PRIJMP 
(RL) 4,8, COMMA 
PRISEM 
@COLUMN( RS), 28 
PRITEST 
RO, #78 
PRITEST 
eho 

PC, PRINCR 
PRITEST 
RO, #52 
PRITEST 
RO, 834 
PRITEST 
RO, #18 
PRITEST 
R4L,MSGODEY 
fF 


PRICOMM 
#(R1),8, SEMI 
PRNTBS 

R 


CRL),# £04 

PANTOL 

Ry 

eGLMNTTY, COLUMN( 95) JRE®SET TO TTY CALUM™ COUNT 
RD, COLUMN(R5) 

ODEV(KS) 

EXECUTE 


SNOSTR 

CRA OARS HSAVE OPEN QUOTE CHAR 2. 03 
(Ra jpe,a, TEXT yTEsT FOR TEXT BYTE 
ERRSX2 

CRE po R2 1GET NEXT CHAR 
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1708 gea PRISTS 

1709 Cures R2,RS CHECK CLOSE auore 
1710 8E0 PRIBOTH 

2714 CHPB RZ, #, EOL SCHECK END LINDO 
1722 BEQ ERRSX2 

1743 cup @COLUMN( AS), #140 

4714 aL0 1%6 

4715 vSR PG sPRINCR 

1716 MOV R2,RO 

4747 JSR PG, PUTCHAR 

1728 BR PRIST 

1719 

1728 PRITBI STB (RU}e 

4722 vSR PE, EVAL 

1722 gsr PG,INT 

4723 cMre (RE) ey 8, RPAR 

1724 ONE PRISY 

1725 MQVe FAC2(A5) ,R2 SGET FN VALUE 
1726 sue OCOLUMN(RS),R2 COMPUTE # SPACES 
4727 PRITBGE CMP RZ, 872, 

4728 810 PRITA, 

1729 sus #72, ,R2 

1738 BR PRITSO 

4733 PRITBi1 OES R2 

1732 BMS PRIBOTH 

4733 MOV #0. Ro 

4734 JSR PG ,PUTCHAR 

4735 8R PRITAR 

1736 ,ENDC 

4737 ' 

1738 905632 004167 011642 PRINCRI JSR R4 MSGQDEV 

1739 «885636 015 B12 »BYTE = CRALF 

1748 «905649 eee sBYTE B 

1742 383642 sEVEN 

1742 995642 309975 s000354 CLR SCOLUMN( RD) 

1743 305646 280207 RTS PG 

4744 

4745 
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1746 y FINPUT! STATEMENT 
1747 905650 320165 seagte INPUT} GMP RL CODE(RS) 
4748 085654 191906 BH} INPYES 
4749 005656 204167 0114962 usr R4,MSGERR 
1758 rtFNOF = SLONGER 
1754 305662 946111 316 sASCIT \ILNN 
1752 ,ENOC 
1753 1IFOF = SQONGER 
1754 ASCII FILLEGAL Nowe 
1755 ,ENOC 
1756 005665 ry) 1BYTE 2 
1757 ,EVEN 
1738 305666 900167 173334 uMP READY? 
1759 805672 195065 290062 INPYES? CURB T3ER5) 
2768 085676 1098865 000077 CLRB TOEV(KS) SRESEY INPUT TO TTY 
1762 005722 124127 00264 CMPB (RG) 48, POUND HIS IT (INPUT HNE 4,, 6? 
1762 285706 204010 BNE INPYO2 
1763 805710 195265 090062 INCB T3CR5) 
1764 085714 205201 INC Ry 
1765 085716 106767 0927609 JSR PG, CHKISET }CHESK CHANNEL ANO SETeUP INPUT 
1766 985722 122127 oo0200 cMPa (RY) op #, COLON 
1767 «905726 704159 BNE ERRSXS 
1768 385739 310746 INPY@L) MOV PG, a($P) 
1769 085732 262716 220416 INPPC} 00 #INPEOL®INPPC, (S®) 
1772 «393736 112102 INPLOOP I MOVE CAL) a, R2 : 
47712 «905749 «190543 BMJ ERRSXO 
4772 «995742 290322 SWAB R2 
4773 995744 «152102 8188 (RY) Op R2 
1774 895746 064582 apo (RS) RZ 
4775 085750 2304767 a97410 vSR PG, GETVAR 
1776 805754 211603 INPRTRYIMQV (SP), KS 
1777 085756 124327 aag2e2 cMPB (R3), 8, EOL, 
1778 «293762 204053 BNE TNPOK 
1779 985764 195785 90002 INPNEW) TSTB TS(RS) 
4788 085770 AB1923 BNE NQGM 
1781 905772 084167 211454 JSR RAG MSG 
1782 008776 g77 sASCIT «7 
1783 395777 gag :BYTE 2 
1784 rEVEN 
1785 aeeg 0910146 NOQMH = MOV R4,e(SP) 
1786 286002 204767 010126 ySR PC LINGET 
4787 386906 193902 Bcc NOOMS 
1788 906019 200187 age512 ume ERRDATA 
1789 306014 332601 NOQMS} MOV (SP) o,Rd 
1790 306016 216522 soo0z2 MOV VARSAVORS) ,R2 
1794, 
1792 vTPNOF = SNOSTH 
1793 206822 9214227 177777 MP (R2),8,SVAR 
1794 926926 921512 8E0 INPSTH 
ert ,ENOC 
+ oa 
1797 006030 310146 mov Ray e(SP) AOS 
1798 306032 010446 MOV R4,0(SP) 
1799 206934 2165301 o00020 MOV LINECAS) RE 


1890 23096049 122127 oBeei15 cMPB (RA) 4%, 808 
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1881 996044 881375 @NE 104 

1602 006046 910124 mQV RE R4 

1803 396058 205204 TNC R4 

2004 006952 820465 a08020 CMP R4, COUECRD) 
1885 306056 101135 OHS ERRTRO 

1806 286068 114144 MOVE e(R4) 9064) 
1807 G06902 020165 ag0820 CMP RA PLINECRD) 
1808 986066 191374 BH! 106 

4609 986078 112711 200054 MOVB oy, (Hd) 

1812 096074 204767 813412 vSr PG, TRAN 

4812 386198 312604 MOV (SP)e,R4 

1012 906102 232604 MOV CSP), RL 

2013 006104 216516 a00020 MOV LINE( HS), (SP) 
1844 006118 299724 BR TNPRTKY 

1815 086412 246582 soene2 INPOKT MOV VARSAV(RS) ,R2 
1616 

4817 LIFNOF SNOSTK 

2818 096116 224227 177777 cMP (R2),8,SVAR 
1819 096122 204720 Bea INPNEN 

1828 ,ENOC 

1823 

3622 096124 G852083 Inc RS 

1823 986126 285065 090040 CLR FACACHS) 

1824 086132 295¢65 399042 CUR FAG2(KS) 

1625 086136 121327 c0B245 cMPe (R3),8,COMMA 
1626 006142 094403 Bea INPSTO 

4627 086144 204767 010104 usr PC LITEVAL 
1828 996150 998434 BR INPNGUD 

4829 306152 019336 INPSTO} MOV RS, (SP) 

2830 806154 384767 915074 vgR PG, STOVAR 
4032 986168 011603 MOV (SP), KS 

2832 906162 124327 998243 cMPe (R3),8, COMMA 
1833 006166 204403 geo TNPGOOD 

1634 086370 124327 090203 CMPB 6R3), 8, COW, 
1835 306174 291037 BNE TNPNGUD 

2836 0061376 122127 0909243 INPGOODICMPB (RL), me, COMMA 
2037 086202 384655 8EQ INPLOOP 

4638 096284 126127 177777 98201 {NPEND} CMPB eLCRL) 2 #, EOL 
1839 086212 301916 BNE ERRSXS 

1840 096214 285726 TsT (SP)e 

1844 096216 195765 999977 TSTB8 TOEV(RS) siF TTY INPUT, CLR COLUMN COUNT 
1642 096222 apron2 BNE GOEXEG 

1843 096224 285865 300036 CLR CLMNTTY(R5) 1 FOR SAME 
1644 096236 200167 174512 GOEXEC) UMP EXECUTE 

1845 006234 294167 011204 INPNGUDIUSR RA, MSGERR 
1846 rJFNOF = SQONGER 

1847 006249 254102 124 sASCIT \ORTN 

1848 sENOC 

1649 rIFOF © SONGER 

1858 sASCIT *BAD UATAWRETYPE FROM ERROR, ! 
185% ,ENOC 7 
1852 006243 015 eiz ‘BYTE CRaLF ACG 
1853 306245 000 :BYTE 2 

1054 ,EVEN 

1855 006246 200646 &R INPNEW 
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a 386258 280167 394270 ERRSX8) yMP ERRSXD 
1958 IFNOF = SNOST 
1859 906254 216503 co0020 INPSTRI hove LINE (RS) 4 RS 
1868 996269 310302 MOV RS,R2- 
1861 996262 122327 990015 cMPB (H3)e, ACR 
1862 006266 201375 BNE 104 
1863 006272 210246 MOV R2,0(SP) 
1664 926272 162716 90003 SUB #3,(SP) 
1865 926276 310346 MOV R3S,0(SP) 
1866 086300 160216 sue R2, (SP) 
1867 906322 305316 DEC (SP) 
1868 006304 201416 8E0 INPNUGL 
1869 026306 239602 MOV SP RZ 
1870 086319 262702 gon002 ago #2,R2 
1874 006314 294767 910732 USR PC, MAKESTR 
1872 096320 294767 913019 INPNNUL ISR PC,STOSVAR 
4873 086324 005726 TST (SPye 
14874 886326 122127 og0243 CMPB (RY) 0,8, COMMA 
1875 906332 304324 BNE INPEND | 
1876 096334 298726 TST (SP) 
1877 006336 290167 177366 MP INPYOL, 
1878 206342 312716 «177777 INPNULLIMOV #4, (9P) 
1879 006346 200764 QR INPNNUL, 
1880 ,ENOC 7 
ibes 886358 f8020 

b a INPEO R 
ane 806352 300167 013616 ERRTRS| Sup : ie a 


BASICL 


1685 
1086 
1887 
1688 
1889 
4890 
1893 
4892 
1893 
1694 
4895 
1896 
4897 
1898 
1699 
1908 
1903 
1902 
19985 
3904 
1995 
1986 
1997 
41908 
1909 
1919 
2922 
1922 
2913 
1914 
4915 
1916 
1917 
1918 
1919 
1920 
1923 
4922 
1923 
1924 
1925 
4926 
1927 
1928 
1929 
4930 
19314 
1932 
1933 
1934 
4935 
1936 
1937 
4938 
1939 
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1949 
1943 
1942 
4943 
1944 
1945 
1946 
4947 
1948 
1949 
1950 
4953 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1968 
1963 
4962 
4963 
1964 
4965 
1966 
1967 
1968 
4969 
19798 
297% 
1972 
1973 
1974 
1975 
1976 
1977 
1976 
1979 
1982 
1981 
1982 
1983 
1984 
1985 
21986 
4987 
1988 
1989 
1992 
199% 
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896356 
996368 
086362 
286364 
806366 
996378 
BB6374 
886409 
886402 
096406 
onedig 
886424 
386416 
896422 
856424 


096426 
896432 
086434 
986449 


006442 
306446 
986459 
996452 
806456 
006460 
606464 
986466 
886472 
006474 
986500 
806504 
096506 
906514 
886516 
806522 
896526 


086538 


986533 


886534 
806540 


806542 
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806545 


906546 
086552 
006554 
806556 
386562 
396566 
886579 
806574 
086576 
906600 
086682 
986606 
986618 
086612 


006614 
886616 
806622 
886624 
086626 
086630 
086632 
806634 
096656 
986649 
306642 
886646 
986650 
286652 
006654 
286668 
886662 
086666 
086678 
806672 
886674 
386798 
086782 
906704 
896786 
086718 
8896712 
906714 
986720 


vo2s 


112102 
198733 
880302 
152102 
264502 
204767 
317503 
301452 
829327 
004457 
121327 
904456 
122327 
01944 
121522 


120227 
aa1470 
120227 
801465 


094767 
808432 
818346 
8047607 
942603 
124327 
001408 
124327 
901020 
929375 
122127 
001724 
126127 
084255 
000167 
985075 
AS00084 


847517 


895075 
ogege4 


842192 


VO2d 


846503 
195713 
199482 
262703 
122327 
084746 
124327 
084752 
818146 
819382 
004767 
910103 
042602 
290757 


885203 
122327 
0813544 
019300 
125723 
001376 
122302 
9843357 
919346 
919046 
162716 
819602 
318346 
160026 
162746 
aeiaiy 
884767 
842603 
910326 
910600 
262703 
110043 
288308 
1130043 
290482 
803316 
912636 
004767 
300656 
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096772 
oeanK4 


477777 
99e201 
Bg024s 


988256 
308257 


097606 


812576 
290204 
089243 


OBOR04 
600243 


477777 980201 
174224 
ape0e4 


104 


090804 


122 


READE Move 
BM} 
SWAB 
8188 
ado 
JSR 
MOV 
BEO 
CMP 
aco 
CuPs 
BEQ 
CcMPB 
BNE 

READGOTIMOVE 


vSFNOF 
CuPB 
BEG 
CMPB 
sea 
ENOC 


JSR 
BR 
MOV 
Jsr 
READDUNEMOV 
CMPB 
8EO 
cMPB 
BNE 
MOV 
CMPB 
BEO 
CMPB 
BNE 
JmP 
READOUTICLR 
ERRDATAISOT 
oJENOF 
sASCIT 
sENOC 
vIFOr 
sASCII 
sENOC 
BYTE 3 
EVEN 
READBADICLR 
ror 


LTFNOF 
sASC3T 
,ENOC 
LUFOF 
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880016 


290002 
age22s 


990225 


912362 


888377 


008003 


agooe2 
019364 


880803 


012414 


eASCII 
sENOC 
BYTE @ 
EVEN 
REASRCWIMOV 
REAFINOGTSTS 
BM! 
aoo 
CMPB 
SEQ 
CMPS 
BEQ 
MOV 


REaDOTH INC 


REANULL10EC 
MOV 

REAOSTRIWSR 
BR 
,ENOC 


(Rape,R2 
ERRSXS 

Re 

(RE) O,R2 
(R5),K2 

PG ,GETvaR 
@POL (RS), RS 
ERROATA 

RS, #04 
REASRCH 
CR3) COU 
REAF INO 
{R3)%, 8, COMMA 
REAOBAD 
CRS) Ke 


SNOSTR 
R2,8,QQuore 
REAOOT 
R2,#, SQUOTE 
READOT 


pC rLITEVAL 
READBAO 
RS, 0(SP) 
PG, STOVAR 
COP) OyRS 
(R3),#, £0), 


2048 
(RS) 8, COMMA 
READBAD 

RS, OPOLCRS) 
(RL) 0,6, COMMA 
READ 
e4(R1),8,60L 
ERRSXS 
EXECUTE 
OPOL(RS) 


SLONGER 
\O00N 


SONGER 
‘QUT OF DATA’ 


OPDL(KS) 


SONGER 
\BORN 


SLONGER 


"BaD UATA READ! 


CODE(RS) RS 


42,23 
(R3)0,8,0ATA 
READGOT 
o4R3),#,E0P 
READOUT 
R4,0(SP) 
R3,RL 

PC, SKIPEOL 
R4,RS 

(SP) o,R4 
REAF INO 


SNOSTH 

RS 

(R39) Og, TEXT 
REAQBAD 


' 

(R39) 6p R2 
READBAD 
RJ,e(SP) 
RO, et SP) 
43, (SP) 
$P,R2 

RS, 0CSP) 
RO, ¢SP) 
02,087) 
REANULL 
PC, MAKESTR 
CSP) 44R3 
R9a (SH) 
SP,Re 
93,R3 
RB, el KS) 
Ro 
RO, e( RS) 
READSTR 
(SP) 
(SP)4, (SP) 
PC, STOSVAR 
READOUN 


JOe 


So 


Dd 


Sat oh 
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1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2008 
2003, 
2002 
2083 
2004 
2005 
2086 
2907 
2008 
2009 
2030 
2043 
2012 
2013 
2034 
2015 
2016 
2047 
2018 
2019 
2028 
2023 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2038 
2033 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2048 
2043 


BASIC. 


2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
205% 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2064 
2002 
2063 
2064 
2005 
2096 
2067 
22668 
2069 
2070 
2072 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2099 
2093 
2092 
2293 
2094 
2095 
2096 


MACX12 


986722 
806726 
096752 
096736 
086742 
906746 
896752 
996754 
086768 
936762 
086766 
986772 
806774 
887908 
2979082 
887986 
927918 
807014 
oo7820 
097922 
887926 
887858 
OB7B34 
887036 
307040 
807042 
387046 
987954 
687956 
887069 
887066 
087072 


MACX11 


307074 
07120 
807104 
807118 
987112 
907116 
887128 
807122 
827126 
9871350 
807132 
307134 
837136 
oe7149 
807142 
807146 
307150 
807156 
887162 
907164 
987166 


987172 
807176 
807200 
307204 
907210 
207212 
887229 


887222 
807226 
007238 
087232 
887234 
897236 
907249 
907244 
087246 
887252 
087254 
207260 


va2s 


084567 
936785 
836502 
032794 
113720 
942729 
884442 
120027 
001905 
185205 
004767 
990430 
120027 
093905 
185165 
081422 
0946767 
004767 
403047 
1859764 
osiges 
110061 
080207 
105734 
180376 
942734 
122757 
109744 
180376 
242737 
842734 
088287 


vo2d 


004567 
916725 
125765 
304404 
105365 
305008 
200416 
842704 
260524 
908724 
204415 
4113400 
901412 
985244 
120065 
201903 
116565 
110037 
a0g207 
oosges 
316504 


304767 
193921 
816502 
104767 
183354 
940737 
ape? 


204367 
9B0429 
862422 
080424 
800404 
006744 
120927 
384983 
012724 
298739 
120827 
204342 


22aMhARe73 4504s PAGE 28 
PRAOSHSOOOHSOH HSH SEREREHEO OHHH DOCOHEHOSOSEHESOOHHOSH 
te SOCHSOCESHCOKEHPROHSSHHOHHOTOCEHHEROSEOS 
ye ocagnoneennne 
ye INTERYPT HANDLERS 290000800008 
Ve esesesensee 
ye POSHOOOHO ORE 
peesenes aeee 
J 
) KBINY © KEYBOARD IJNTERUPY SERVICE 
5 
}) PASS ANY CHAR, 70 GUFF, EXCEP? O87 (IGNORE) 
J AND OBS (f9C4] SEY FLAG FOR LATER ACTION,) 
J IF BUFF, FULL, JGNORE CHAR BUT ECHO HELL, 
1 
8121354 KBINTE JSR Rd, SAVRG! CAUSE RTI ON REG, RESTORE 
8029086 “OV USRAREA, RS 
29012 MOV KBHO(K5) Re KB RUFF, HOR, 
177564 MOY eTPS,H4 
177562 “ove OaTKB, RO JGET THAT CHAR; 
177608 aye #477600,20 
BEQ KBYOUN SIGNORE oo 
PITT TRY CMPB RO, #005 plecr? 
BNE K8CO 
090126 INCB CNCFLG(RS) SMARK FOC! HIT 
991526 JSR PC, BUFCLR HCLEAR ALL BUFFERS 
BR OoPYT 
090017 KBCOE cuPe RO, #17 CHECK foot 
BNE DOPYT 
090407 come CNOFLG(RS) 
BEO oorur VIF PRINT RESTORED, BYPASS 
894550 JSR PC, BUF TP HCLEAR TELEPRINTER BUFFER 
614974 oopuT; ysR PC,PUTBYT 
acc KBLOUN sGoT IN 
208012 Ts?B8 BFSPEC(R1) 
BNE $,010} 
egegi2 MOVE RO, BFSPEC(R1) 
Rvs PG 
S$\e1811 TST6 (RE) +NO ROOM! OO BELL 
PL, $,0103 
090308 aye 9400, (R4) dTEMP, CLR, INTER, 
090807 477566 MQVe 8067, 087PS PINSERT BELL 
$,6182) TST8 (4) sWALT UNTIL QONE 
BPI, $,0102 
O8@101 177568 KBIOUNS MOV 9201, O8TKS JRE*INIT, READER 
880120 MOV #400, (R4) sENAPLE TPTR, FOR ECHO 
RTS PC tWILL RESTORE REGS, ANO PTY 


22emMARe73 «615141 PAGE 29 


qpINy 


' 
‘ 
’ 
' 
i) 
' 
' 
y 
' 
} 
’ 
’ 
U 
T 


© TELEpRINTER INTERUp? HANOLER 


USEO To PRINT QUT TEXT ANO ECHO TYPEsIN, 

TO WANOLE CASE OF PENDING REQUESTS To 00 TEXT OUTPUT 
AND ECHO, ODQES THE ORDERLY THING BY FOLLOWING THIS 
PRIORITY! 


IF ECHOSP(R5) SHOWS NEED TO 90 2NO HALF OF PALRER 
CHARS, FOR EGHO (0U, <C9><LF>), DO FIRST, 

IF TEXT MESS, IN PROGRESS, FINISH IT (TO <LFD>), 
ELSE, ECHO, 

ELSE, TURN OFF INTERUPTS, 


014762 PINT} JSR RD, SAVRGI HCAUSE RTI ON REG, RESTORE 
2080086 MOV USRAREA,RS 
809110 ysve FILLCOCRS) 
BEO YPNXT 
008410 oece FILLCOCRS) 
CLR RO 
BR TYPES 
000104 TPNXT} MOV WECHOSP,R4 
400 R5,R4 HSAVED HERE THRUPOUT ROUTINE 
Ts? (Ra) sSPECIAL ECHO IN PROGRESS? 
BEG TRYECHO INC 
SPECMESIMOVB O(R4)O, RO NEXT SP, ECHO CHAR, 
Ia) CLRECHO 
INC (RA) yPT, TO NEXT CHAR, 
8ea122 TYPE!  CMPB RO FIRLCH(RS) 
BNE TYPES 
998211 «808110 MOVB FILLNOCRS) FILLCN( RS) 
4177566 TYPE4$ MOVE RO, eNTPB 
RTS PC sRESTORE REGS, ANO RETURY 
CLRECHOSCLR a(R) 
880102 TRYECHOSMOV KBHOC RS), Re iNO MESS, © ECHO? 
095752 JSR PG, GET2BY7 
ace GOTECHO 
290180 MSGSUP} MOV TPHO( HS), RY iTRY MESSAGE 
205749 JSR PC, GET2BYT 
Bce TYPE 1GOT ONE! GO 00 IT 
800408 177564 OFPTYPEI8IC #400, 08TPS HCLEAR INTERUPT 
ars PG 
4 
BOLS54 GorECHotvSR RS, CHKCHR sCHECK THAT ECHO CHAR, 
BR PRNTOEL JLINE DELETE 
BR SEFLFE POCRDE CLFD AS ECHOSP 
BR ECHOBA pRUB OUTS DO tan 
8R TREN 
BR TYPE 
O08083 . TPONI CMPB RO, #3 HCHE® tect 
BNE TPCQ 
897325 MOV BCOMES, (R4) 
OR SPECMES 
880R17 TPCOt = =CMPB RO, #17 CHECK Feoe 
BNE TRYECHO 


2/0 


All 


BASICL 


2097 
2098 
2099 
2208 
2403 
2402 
2205 
2304 
2305 
2206 
2307 
2198 
2429 
2210 


2213 
2112 
2213 
2114 
2215 
2416 
2ai7 


BASICL 


2218 
2119 
2428 
2422 
2222 
2423 
2424 
2125 
2426 
2227 
2128 
2129 
2138 
2233 
2452 
2133 
2134 
2135 
2136 
2437 
2158 
2439 
2440 
2142 
2442 
2143 
2444 
2145 
2146 


MACXi4 


087262 
887266 


887278 
807274 


007276 
087382 


887304 
887310 


097312 
867320 
887322 
8073525 
087327 
887338 
987332 


MACXL2 


8073356 
0897342 
087346 
087352 
897354 
007368 
807364 
007366 
887372 
887374 
087400 
087402 
907406 
097419 
007414 
907416 
807424 
087426 
007434 


vo2s 


912734 
890722 


812734 
080737 


022724 
oee714 


122788 
060734 


042049 


OB9336 


vo2u 


304567 
842702 
095737 
100425 
113720 
942708 
804444 
122700 
04441 
122708 
381406 
894767 
103983 
120062 
280207 
912787 
880297 
052761 
588207 


22eMARe7S «615144 = PAGE 2904 


007338 
097342 
207322 
090357 
046105 

e12 


185 


g12 


MOV 
8R 


' 

PRNTOELIMQV ° 
BR 

i 

SEPLFE! Mov 
BR 

' 

ECHOBAI MOVB 
8R 


J 
OELMSG| 
852165 sASCII 


O88 CRLFMESI, BYTE 
COMES! ,ASCIY 
:BYTE 2 

COMES) , ASCII 

oe BYTE 

EVEN 


22eMARe7S 151414 PAGE 38 


011522 
823714 
177550 


177552 
177908 


980477 
e0e%2 
914206 
990032 
900221 
100908 


vbFNOF 


Beer rere 


TRINTI JSR 
MOV 
TST 
amt 
“Ov 
BIC 
BEG 
CMPe 
geo 
CMPB 
BEG 
JSR 
acc 
MOVE 
RIS 
177550 EXLTB2) MOV 
RTs 
geae12 PREOTY ats 
RTS 
+ENOC 


#COMES (RS) 
spECnes 


SOELMSG, (RO) 
SPECMES 


SGRLFMES, (A4) 
SPECMES 


wba RO 
TYPE 
* DELETED! 


035,032,008 
"eee 


coor 
945,032,000 


SNOPTP 


SY, AMOR, INTO ECHOSPERS) 


PTRINT © PAPER*TAPE READER INTERUPT HANOLER 
CLEARS PARITY BIT, FLUSHES O90, RUBsOUT, AND <LF>, 

IF CHAR, WON? T FIT IN BUFF,, SAVE IN SFSPEC (LO BYTE), 
ON EOT OR OTHER ERKOR, SET HI BIT OF SFSPEC, 


RD, SAVRGI CAUSE RTI OM REG, RESTORE 
#PREFHO,R1 sFOR PuTayT 

@RPRS PERRORS? 

PREOT yYFS! TREAT aS EOT 
@SPRB,RO ICRARACTER 

#177600,R0 

EXiTae PIGNORE 682 (CANFT HAPPEN] ) 
#477,K0 RUB OUT? 

EX1Ta2 SIGNORE 

WRF ARO 

EX Trae PIGNORE LFES 

PG,PUTBYT 

EXITS sGOT IN 

RO,BFSPEC(R1)  J;SAVE THIS CHAR, 

PG RESTORE REGS, AND RT] 
aeons HRE@FNABLE READER 

RP 

EAHMBORASESREGI A) ysHOw ECT 

Pp 


AIA 


BASICL MACX12 VO2ZL 22eMAR®7S 15142 PAGE 32 


2447 ,JFNOF = sNOPTP 

2346 ' 

2149 ‘ } ppINT © PAPER TAPE PUNCH INTERUPT KANDLER 

2198 H 

2353 1 ON ERROR» MAKE BFSPEC NgNeO', 

2152 ' 

2453 997436 284567 014420 PPINT! SR RS, SAVRG! sCAUSE RTI AFTER REG, RESTORE 
2154 987442 2136705 o900006 MOV USRAREA,RS 

2455 887446 012703 923760 MOV #PPBFHO, RY 

2156 007452 985737 177554 TS? esPPS 

2157 007456 190406 ami PPERR 

2458 087469 084767 005456 JSR PG, GETLBYT 

2159 287464 1093406 acs NOCHRE INOTHING TO GET 

2260 007466 1190937 177556 MOVB RO, eePPS 

2161 887472 090207 Rvs Pg SRESTORE REGS, AND ARTY 
2162 0907474 952761 060881 080812 PPERRI aS WL,BFSPEC(R4)  sIMOTC, ERROR 

2263 907502 285937 177554 NOCHR2} CLR oePPS SCLEAR INTERUPT ENABLE 
2164 387506 300207 RTS Pg 

2165 , 

2166 ,ENOC 

2467 


ZAIY 


BASIC, MACXaa Vo2. 22eMARe73 15144 PAGE 32 


2268 vJFNOF = SNOLPT 
2469 ' 
ain ; ) LPINY © LINE PRINTER INTERUP? HANDLER 
a74 ’ 
2472 «007510 004567 211346 LPINTE JSR R5,SAVRGL JCAUSE RTI AFTER REG, RESTORE 
2473 007514 2136705 8900006 MOV USRAREA,R5 
2474 «987528 232703 24024 MOV @QPBFHO,R2 
2175 «907524 998737 177514 TST oaLPs 
2476 087530 100406 BMS LPERR 
2477 «687532 394767 095404 JSR PG, GETIBYT 
2478 087536 193406 acs LPOFF SNOTHING THERE 
2179 «987540 110037 177516 Move RO, OMLPB VARITE CHAR 
oune 807544 000227 RTS Pg 
2282 ' 
2182 307546 952764 290004 o88842 LpERRI 81S #4, BFSPEC(R1) FRECORP ERROR 
2283 097554 JoSo37 177514 LPOFFL CLR Oars sTURN {7 OFF FOR AWHILE 
2184 0997560 290207 RTS PG % 
2185 ,ENOC : 
2186 
2187 


AIS 


BASIC, 


2086 
2189 
2198 
2193 
2492 
2193 
2194 
2195 
2196 
2197 
2396 
2499 
2200 
2204 
2202 
2203 
2204 


Basicy 


2205 
2206 
2207 
2208 
2209 
2219 
2214 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2228 
222% 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2234 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2244 
2242 
2243 
2244 
2248 
2246 
2247 
2248 
2249 
2250 
2254 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 


MACXL1 


887562 
887578 


997572 
887574 
807608 
807606 
887612 
007614 
607616 


MACX11 


307622 
207624 
307630 
027632 
007649 
007644 
207646 
307659 
007652 
007654 
807669 
827662 
007664 
007666 
887672 
087674 
807700 
897702 
007704 
087736 
907718 
307744 
207729 
087722 
007726 
907732 
907749 
307742 
207746 
207754 
007756 
887762 
287766 
207779 


yeaa 


332737 
899908 


805ge0 
916705 
212737 
816506 
885322 
981367 
900167 


yeas 


242603 
804767 
094414 
812767 
384467 
316846 
a8ooee6 
816860 
213966 
805765 
880113 
985726 
322602 
066502 
102405 
316265 
80143 
180425 
604416 
005402 
185065 
110265 
2BO322 
119265 
105965 
362765 
080143 
295065 
242765 
286113 
105065 
110265 
289322 
110265 


22emMARe73 


007572 o80024 SPOWUP, O24 
WALT : 
‘ 
powupt! CLR Ro FINITIALIZE Loop CouNT 
2080006 POWLPT MOV USRAREA,RS 
907562 esBe24 MOV WPOWOWN, O924 
090004 MOV POLCRD),SP HWASTE TIME CAND INIT STACK!) 
oec RB sCOUNT TILL DONE 
BNE POWLP 
172316 MP REAOYY 
sENOC 
,E0T 
22eMAR®7S 15141 PAGE 34 
, SOURCE FILE #4 
peoeeoaseaseoses POCEHES OT EHOCEEHEEFEOSHEDEOEDUDEOS 
PESTS TIT rrirrrrrrirrirrry yy 
Jeaeeneesese oeesevsonte 
)Beeeegoneae GLoSseD SYBROUTINES Heeeseeneen 
bepevroenvese Sevenraseaee 
J PETES IEE IIIT Irie rr rivririirrt ty yyy 
PRIS S TSO yyy ee rrryrrirrirryryyy 
iC Po oe oe ee ee ee 
} SUBROUTINE "ADDSTK! CALLED BY Jsp pC 
4 ADDS (SP)o,(SP)+ TO FACLORS)»FAC2(RS) WATCHING TYPE 
’ RO@,R1 = UNUSEN 
J R2,R3_ DESTROYED 
) R4 MOOIFIFO YO REFLECT STACK USAGE 
' RS MUST POI"T TO USER AREA 
f) SP GOFS 7? MEEPER AFTER JSR 
ADOSTK} MOV (SP) o,R3 
995124 JSR PC, FIXUP 
8E0 AOOINY 
013214 opeg086 MOV #ERADO, SERVEC 
895259 JSR R4, FPPSAV 
+WORD = PUSH 
2NORD SAOR 
,WORD = POP. 
WORD = FPPRES 
99048 yst FACL(KS) 
vMP ¢R3) ICONS COOESESGN(RESULT) 
ADOINTS TST - (SP)e 
MOV (SP) 4, R2 
090042 aoo FACQ(KS),R2 
avs adoovr 
990942 MOV RZ], FAG2(RS) 
uMP (RS) ICON COOESSSGN(RESULT) 
AODDOVF I Umi AQOPOS 
BEG ADOZENO 
NEG RZ 
800842 CLLRS FAC2(K5) 
800043 MOVB RQ, FAG201(25) 
Swag R2 
290040 MOVE R2,FAGLCRD) 
BAO41 CLLRS FACL#1(R5) 
143600 880040 400 #443600,FAGL(RS) 
uMP (R3) ICON” CODESSSGN(RESULT) 
890042 AODZEROICLR FAG2( KS) 
144228 900049 MOV #144200, FACL(RS) 
JMP ¢R3) ICOND CODESSSGN(RESULT) 
830042 AODPOS! CLRB FAG2CKS) 
998043 MOVE R2,FaC2e1 (RS) 
SWAB RZ 
200049 MOVB RZ, FACS (RS) 


15444 


PAGE 33 
vJFNOF =sNOPOW 

i POWDWN © POWER FAIL/RESTARY ROUTINE 

PoWOWN MoV 


Alb 


2/7 


BASIC 


2268 
2263 
2262 
2263 


BASICL 


2264 
2265 
2266 
2267 
2268 
2269 
2278 
2274 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2283 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2299 
2294 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2308 
230% 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2319 
2312 
2312 
2313 
2314 
2345 
2316 
2317 
23168 


MACKXA2 


807774 
810080 
010006 


MACX11 


012018 
040012 
910024 
8340016 
810820 
348022 
840024 
310026 
0100352 
040034 
810836 
340040 
910042 
340044 
210046 
010858 
810052 
010054 
810068 


310062 
029866 


042070 
842072 
810074 
810196 
810102 
310104 
G1e118 
010112 
910114 
818116 
210122 
818124 
910126 


910138 
018134 


919136 
313142 


ve. 22eMARe73 15043 PAGE 3404 
195965 090042 cLRe pagaes tas) 
962765 243609 o9eo4g 400 943608, F ACL (RS) 
e90113 vMP CRS) JCONP CODESSSGN(RESULT) 
Ve2L 22eMARe73S 25141 PAGE 35 
J evewqeewceroegces ° je encsarcgeccceenes 
§) SUBROUTINE ¢ ALLO CALLED BY JSR PC 
U ALLOCATES ARRAY SPACE FROM FREESPACE 
' RQ,Ri = PRESEPVED 
' R2 MUST POJNT TO VAR GETS DESTROYED 
’ RS MUST CONTAIN SS4AMAX GETS DESTROYED 
' R& MUST CONTAIN SS2MAX GETS NESTPOYED 
4 RS MUST POINT TO USER AREA 
' SP GOES 7? TEEPER AFTER VSR 
818046 ALLOCH MOV RO, a(SP) 
818146 MOV RL, 0(SP) 
085283 INC RS 
210401 MOV R4,R4 
205204 INC Rd 
201776 BEQ 402 
205008 CLR RO Jesee 
242746 «=g0R20 MOV #20,R(SP) te 6 
0065302 ALLLOOPT ASL Ry lee 
193002 Bcc ALLNOAD je o@ 
260308 400 RS,RO J@ © MULTIPLY (Rt) #(R3)02 
103505 acs ERRARAY Je @ RESULT IN Ra 
896300 ALLNOADI ASL Ro Je @ WATCH FOR OVEPFLOWS 
183503 gcs ERRARAY je 4 
905316 oe (SP) jee 
693379 BGT AGLLOOP te 8 
885726 TS? (SP)o }eeee 
862709 sp0aR2 400 #2,R0 
183475 acs ERRARAY bRa NOW # 2 TIMES # ELEMENTS NEEDED, 
vIFNOF = =SNOSTH 
824227) 177777 CMP (R2),8,SVAR 
281492 BEG 16 
1ENOC 
906328 ASL Ro 
103479 8cs ERRARAY 1RO NOW @ # BYTES NEEDED, 
916501 a90012 MOV WIFREE(RS) RY 
260001 sus RO, RL 
183464 acs ERRARAY 
3202605 990074 CMP RL HISTRERS) 
103464 840 ERRARAY 
005721 Ts? (Rape 
880404 8R 104 
783921 CLR Rape 
220165 090012 CMP RL, HIFREE(RS) 
184774 8LOS 6 
160001 suB ROAR 
1IFNOF SNOSTK 
324227) 477777 CMP (K2),8,SVAR 
204413 BES ALLSTHN 
,ENOC ALG 
942722 «177776 MOV WINVAK, (R26 
312224 MOy (RZ) (RIDe 


BASICL 


2319 
23208 
2323 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2334 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2343 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2368 
2364 


BASIC. 


2362 
2565 
2364 
2365 
2366 
2367 
2368 
2369 
2570 
2373 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2388 
2384 
2382 
2383 
2384 
2365 
2386 
2387 
2388 
2389 
2390 


MACX11 


818144 
910146 
019159 
010152 
019154 
940456 


810162 
840164 
848166 
910178 
810172 
810174 
020176 
840202 
848218 
810214 
849220 
810222 
810224 
839226 
49259 
940252 
910254 
9409236 
019248 


810242 
018246 
019250 
819252 
810234 


848256 


810261 


MACX11 


840262 
810266 
840278 
810274 
819300 
840302 
838306 
18318 


19312 


940314 
840517 


vee. 


312224 
310412 
395303 
30342 
010142 
162732 


290427 
295722 
242221 
095303 
810322 
010422 
020162 
162762 
b12728 
820165 
104773 
460983 
811102 
68522 
001404 
IT ETSY 
120122 
98S. 
126132 


160065 
022603 
212600 
980207 
apege4 


052303 


228 


ve2s 


084767 
103441 
094767 
903765 
201904 
195765 
881604 
808207 


300804 


252204 
800 


22eMARe73 15144 = PAGE 3504 
MOV (R2)o, (Ride 
MOV R4,¢6R2) 
occ Rd 
MOV RS_o(K2) 
MOV R4,0(K2) 
890884 sys #4,(R2) 
e}FNOF SNOSTK 
BR AWLEXIT 
ALLSTRNUTST (R2)o 
MOV (RZ) eo, (Ride 
bee RS 
MOV RS, (R296 
MOV R4,¢R2) 
177776 MOV RE ,04(R2) 
QGOGV2 177774 sue #2,04(R2) 
477777 MOV Wad, (R1)e 
ogaei2 CMP RY,HIFREECRS) 
BLO0S 010 
sys RB,RL 
MOV CRY) K2 
tye Re 
Bea ALLEXET 
swas RY 
MOVB RL (R2d6 
SwaB RY 
MOVE RA, ¢R2) 
sENOC 
098012 ALLEXIT# Sua RO AHIFREE(RS) 
MOV (SP) 4)R 
MoV (SP) o)RO 
; RTS PG 
ERRARAYISOT 
,IPNOF = SLONGER 
144 sASCIT NATLN 
sENOC 
sIFOF = S$,ONGER 
sASCIT ARRAYS TOO LARGE! 
,ENOC 
BYTE @ 
,EVEN 
22eMAR@7S «15144 = PAGE 36 
_. VTFNDF  SNOSTK 
Je wowccocegcccccw epee teen gece penceseccsesecesncen 
1 FARGBE SUBROUTINE 
) CALLED BY JSP RT 
' CALLS EVAL TO GET A LeBYTE 
4 ARGUMENT, BRANCHES TO ERRARG 
' IF ARG NO GOOD 
@eg1i4 ARGBI JSR PO,EVAL 
Bcs ERRARG 
905300 JSR PC,INT 
880040 TST FACA(KS) 
BNE ERRARG 
890243 TSTB FAC2@1(R5) 
ANE ERRARG 
RTS PC 
vENOC 
ERSQRI 
ERLOG) 
ERRARG! JOY 
1IFOF = SLONGER 
sASCIL ARGUMENT ERROR! 
»ENOC 
sTPNOF = SLONGER 
407 sASCII ARG! 
vENOC 
BYTE 9 
EVEN 


A20 


oe) 
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2392 J pecewqcewerccgconencenscysdongncesanedcccevecgeces 


2392 § SUBROUTINE ‘g0Mey. CALLED BY 10T 
2393 ' PRINTS ERROR MESSAGE FROM AFTER [OT 
ese ' R@ DESTROVED 
2395 ' Ri PRESFRVEN 
2396 ' R2,R3,R4 UNUSED 
2397 ’ 85 MUST POINT TO USER AREA 
2398 ’ SP RESET TO EMPTY STACK 
2399 ’ PG DOES NOT RETURN 
2408 810328 311601 BOMBs = MOV (SP), KL 
240% 049322 216725 sao0eRG MOV USRAREA, RD 
2482 319326 216596 200004 MOV POL(RD) SP 
2403 010332 293965 290076 CUR ODEV(KS) sCAUSE MES OUTPUT TO TTY 
2404 010336 012765 g90056 290034 MoV OCLMNTTY, COLUMN(RS) ISET=UP TTY FOR COL, COUNT 
2405 910344 260565 g9e034 apo RS, COLUMN( 85) 
2406 810358 004167 397076 usR RG QMSG 
2407 910354 ess o12 sBYTE = CRALF 
2408 sUFNOF = SQONGER 
2409 038356 245 sASCIL KE 
2412 ,ENDC 
2412 910337 eee :BYTE @ 
2442 vEVEN 
2413 940368 112100 BOMBNX) MOVB (RG) Oy RO 
2414 919362 084403 8ea BOMBDON 
2415 010364 904767 010326 JSR PC, PUTCHAR 
2446 0139378 0098773 ar BOMBNX 
2447 010372 026527 990030 177775 BOMBDONICMP LINENOCRS),#, SCALAR 
2418 219400 103042 BHIS BOMByNP 
2449 «#819402 904167 Ba7044 JSR RY,MSG 
2420 919406 049449 920124 044534 sASCII ¢ AT GINE € 
010414 242516 ose : 
2421 910437 000 sBYTE 2 
2422 1EVEN 
2423 o19429 016509 so0032 MOV LINENO(RS) RO 
2424 «319424 092405 BLT BOMBNEG 
2425 010426 319965 o90042 MOV RO, FAG2(RS) 
2426 «910432 905965 agon4e CLR FACACHS) 
2427 040436 090414 BR BOMBOK 
2428 910449 119865 s00043 BOMBNEGI MOVE RO»FAGZ4¢R5) 
2429 019444 195965 oo0042 CLR FAC2(KS) 
2430 039459 o8e300 SWAB RD 
243% 030452 120965 sgen4e “Ove RB, FAGL(RD) 
2432 940456 199965 so9a4) CLRB FACLO4(R5) 
2433 018462 262765 243000 ao0049 apo 43600) F AGLCRS) 
2434 018478 094767 907230 BOMBOK} YSR PC, NUMOUT 
2435 0148474 994167 096752 JSR RL MSG 
2436 «319500 e158 g12 gee +BYTE «= CRLF A@ 
2437 040504 1 EVEN 
2438 910504 990167 170434 BOMBUMP) JNP READY 
2439 . JAAar 


BASICL MACX12 yeas 22emMaRe73 45441 PAGE 38 


2448 ’ 
Dae ) BUFCLR=-INIy 1/0 DEv, BYFFER HEADERS 
' 
2443 ) CALLI JSR PC, BURCLR 
2444 ' 
2445 ‘ +} USES R2 AND RS 
2446 ’ , 
2447 0405108 016502 990192 BYFCLRI MoV KBHO(KS) R2 IKEYAQARO 
2448 919514 212203 “QV CHA) O,RS IBUFF’, START 
2449 849516 203722 TS? (R2)¢ sSKIP TO AGETL 
2458 219520 339322 “QV RS (R26 
245% 238522 849322 MoV R3,(RZ)% 
2452 919524 340322 Mov R3,(R2)4 . 
ote 010526 294767 og9032 JSR PG, BUFTP CLEAR TELEPRINTER SUFFER 
2455 1[FNOF = SNOPTP 
2456 910532 2312702 023760 MOV aPPBFHO,R2 PAPER TAPE PUNCH 
2457 810536 384767 304774 JSR PC, INL TOF 
2458 939542 012702 925714 MOV #PRBFHO,R2 JPAPER TAPE READER 
2459 010546 984767 904764 JSR PC, INU TOF 
2460 ,ENOC 
2464 ,UFNOF = SNOLPT 
2462 019552 312762 o24026 MOV #PBFHD,R2 
2463 319556 284767 004754 vSR PC, IN| TOF 
2464 vENOC 
2465 
2466 610562 206207 RTS pc 
2467 
2468 
2469 ' 
5073 1 BUFTPe*INIT TELEPRINTER BUFFER HEADER 
I " 
2472 ) CALLE JSR pC, BUrTP 
2473 f] 
2474 J YSES RZ AND RS 
2475 , 
2476 «919564 316502 a90198 Burret! Mov TPHOCKS) RZ sTELEPRINTER 
2477 330578 932283 MOV (R2)0,R3 1QUFF, START 
2478 919572 222222 cMP CR2)4, (R200 yPT, TO BGETZ 
2479 010574 310322 “OV RS, (R20 
2488 919576 19322 MOV R3, (RZ) 
2 810608 200227 RTS PG 


ga3 


an 
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2483 1 
2484 ) 
sass ) CHKCHR © CHECK ASCII CHAR, FoR SPECIAL CASES 
I 
2487 3 CALLE MoV COWAR, 1,20 
2488 ’ JSR RS, CHKCHR 
2489 I INSTRUC, JEXECUTE [TF LINE DEL, (CAL? MODED, Fett) 
2499 ' INSTRUC, sEXEC, IF €CR> 
2494 ' INSTRUC, EXEC, IF ¢RUB OUT> (OR tery 
2492 ’ INSTRUC, JEXEC, IF BELQW 4@ OR ABOVE 137 
2493 ) INSTRUC, HEXEC, IF GOOD STUFF 
2494 1 
2495 ) USES RO 
2496 i 
2497 910682 120927 390176 CHKCHRE CMPB RO, 8176 HALT MOOE 
2498 910606 281434 geaQ CGEXIT - 
2499 939619 120027 300175 CMPB RO 8175 SALT MODE 
2500 832634 304431 BEQ CCEXIT 
230% 042616 120827 s00033 cMPB RO, aSS ALT MODE 
2382 049622 081426 EO COEXIT 
23583 910624 120027 00025 cMPa RO, 825 ploue 
2504 919638 304425 GEO CCEXIT 
2505 918632 095723 rst (R3)e iY@ <CR> RETURN 
2306 910634 120827 2g0815 CMPB RO, aCK 
2507 910649 304417 J) CCEXIT 
2528 940642 208725 TS’ (R3Spe sTO RUR OUT RETURN 
2509 919644 120927 900177 CMPB RO, #477 RUB OUT 
2340) 010658 984413 geo CCEXIT 
2544 910652 120927 0903357 CMPB RB, ale 
2512 810656 384410 BEG CCEXST 
2545 9496068 899723 TST (R3)o sTO LIMIT RETURN 
2314 9109662 120927 ope040 CMPB RO, 840 
2315 030666 1834046 a0 COEXIT 
23546 930678 129827 990437 CMPB RO,#L57 
2917 «930674 194904 SH! CCEXIT 
2518 930676 295723 rst (R3)e yREG, CHAR, RETURN 
ee 812708 sB0283 CCEXIT) RTS RS 
2528 


Zay 
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2523 J 

2522 +} GHKISET e@ CHEGK [7/0 CHANNEL ANT SETelIP [NPUT (IDEV(RS)) 
2523 } CHKOSET @ CHECK 1/0 CHANNEL AND SET@UP OUTPUT (ODEV(RS5)) 
2524 ' 

2525 1 CALLE Mov CADOR, OF CODE LINE PTR, AFTER ‘#8 ),R1 

2526 ' usr PG, CHKISET (CHKOSET) 

2527 ) 

2528 } USES RORIRZRIVRS 

2529 ' 

2538 ) CHECK JP SPECIFIED CHANNEL LEGAL (NUMBER IN RANGE ANO [7/9 
2534 } =: DEVICE ASSEMBLED JN), RETURN CODE FOR SPECIFIED DEVICE 
2532 J (SAME AS VALUE OF JOEV sO0EV)) 1% 2, ON EXIT, RI PTS, 
2333 } «70 BYTE AFTER CHANNEL NUMBER, 

2534 : , 

2535 010702 2912709 010777 CHKISETIMOV AITABLE, RO 

2536 219706 380402 aR COMCHK 

2537 919719 9132700 012774 CHKOSETIMOV MOTABLE, RO 

2538 910714 394767 990462 COMCHKI JSR PC, EVAL 

2539 910720 193429 acs ERSX12 

2549 0109722 205765 ooaese rst FACL(RS) 

254) 0140726 001947 BNE ERCHAN sMUST BE INTEGER 

2542 810730 316502 oe0042 MOV FACQ(RS) RO 

2543 910734 oo444s 8eo oytes2 sTTY » EVERYTHING SETUP 
2544 819736 1349083 “ova (AB) RS JFIRST TABLE ENTRY 

2545 819749 260503 ago RD,RS yPTS, TO ACTUAL AYTE 

2546 810742 320227 sgov02 cme R282 IMAX CHANNEL NUMBER (CURRENTLY) 
2547 910746 101907 BH! ERCHAN 

2548 319758 260208 aoo R2,RO SENTRY IN TABLE OF DEV, CODE 
2549 949752 111813 Move CRB), §RS) HCODF INTO [NEV OR ODEV 
2550 910754 ae1404 geo ERCHAN JMEANS NO DEVICE THERE 

2553 019756 111902 Move CRB) RZ 

2552 919760 100207 oufas2y ATS PG 

2553 ' 

2554 049762 200167 204556 ERSXi21 UMP ERRSX? 

2555 ' 

2356 040766 390004 ERCHANI lor 

2557 :JFNOF = SONGER 

2558 919779 244504 105 sASCTY NQCEN 

2559 ,ENDC 

2560 tIFOF = SRONGER 

256% ASCII #QEVICE CHANNEL ERROP! 

2562 vENDC 

2563 349773 goe BYTE 8 

2564 1EVEN 

2565 ’ 

2566 J 

2567 940774 876 OTABLES ,BYYE g0Ey 

2568 viFOF = SNOPTP 

2569 BYTE 9 ee 
2578 ,ENOC 

2373 VIFNOF SNOPTP prs 
2572 310775 a2 BYTE «2 

2573 +ENOC 

2574 :UFOF = SNOLPT 


2575 ;BYTE oa 


ee 
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2576 vENDG 

2577 cUFNOF = SNOLPT 
2578 810776 eoe BYTE 64 

2579 ,ENOC 

2580 1 

2583 019777 a77 TraBLE) ,BYTE  02y 
2582 13POF  SNOPTP 
2583 BYTE 6 

2584 vENOC 

2585 vIFNOF = SNOPTP 
2586 11808 ae2 sBYTE =2 

2587 sENOC 

2588 41901 goa BYTE 8 

2589 
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2590 J qrwoqencegecevecqecescccnsecesececcccseccccocscces 
2592 J) SUBROUTINE !CLARVARS! CALLED BY Jsp PC 

2592 J CLEARS VARS 70 SCALAR ZEROS,NULL STRINGS 
2593 ’ ASO INITIALTZ2S RANQOM NO GEN 
2594 ' R@ DESTROYED 

2595 i R1,R2,R3,R4 UNUSED 

2596 1 RS MUST POI‘T TO USER AREA 
2597 1 SP GOFS NO NEEPER AFTER JSR 
2598 011002 012765 032331 990064 CLAVARSIMOV #32331, RNOL(R5) 

2599 341918 0142765 163251 o90066 MOV #463254,RND2(R5) 

2602 311916 211500 MOV (R35), RO 

260% 11820 a29905 o90014 CLRLOOP ICMP RO, LOFREE(RS) 

2602 911024 193021 BHIS CLRFREE 

26003 241926 824927 177775 CMP (HO), #, SCALAR 

2604 41832 103412 8L0 ChROK 

2605 

2606 1JFNOF = SNOSTK 

2007 031834 023927 177777 CMP (RO), #,SVAR 

2008 a11940 001404 BEO CLRSVAR 

2609 ,ENOC 

2010 

2611 8449842 842728 177775 MOV @ SCALAR, (ROVe 

2642 311946 003919 CLR CRB) 

26135 

2614 vTFNOF = SNOSTK 

2615 911950 990403 BR 104 

2016 811052 212012 CLRSVARIMOV CRO}, (RA) 

2637 1ENOC 

2018 

2619 911854 012018 MOV (RO) %) (RB) 

2628 911956 212019 MOV (RO) 4) (RB) 

2621 911960 262708 se0004 CuRoK! 00 e4,r0 

2022 211064 999755 aR CiLRLOOP 

2623 911966 85029 CLR CRO) 

2624 911978 2299605 se0e19 CLRFREEICMP RB, ARKAYS(AS) 

2625 941074 104774 Los 106 : 

2626 911076 016565 o90819 ae2012 Mov ARRAYSCRS) HIFREE (PS) 

2027 911194 016565 o80014 290072 MOV LOFREE(RS) ,LOSTR(RS) 

2628 11112 946565 900014 280074 MOV LOFREE(RS) ,HISPRIAS) JEMPTY STRING STORAGE 
2629 911128 212765 890833 ape032 MOV #33, GS8CTR(RS) 

2638 011126 216308 op0004 MOV POL (RD), 28 

263% 311132 0427289 «177777 MOV Pot (KO)e 

2632 211136 08920 CLR (ROO 

2633 011148 020965 oo0002 CMP RO LIMITCRS) 

2634 3111494 104774 aL Os 196 

cee 811146 «390207 RTS PG 


227 
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2637 
2638 
2639 
2648 
2643 
2642 
2043 
2044 
2045 
2646 
26047 
2648 
2049 
2050 
2653 
2652 
2953 
2654 
2655 


BASICL 


2656 
2657 
2658 
2059 
2060 
2064 
2662 
2663 
2664 
2065 
2666 
2667 
2668 
2669 
2678 
207% 
2672 
2673 
2674 
2675 
2676 
2077 
2678 
2079 
2680 
2682 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2699 
2092 
2092 
2693 
2094 
2095 
2696 
2097 
2698 
2099 
2709 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 


MACx1 


011159 
811154 
811168 
841262 
841166 
041379 
821272 
011174 
811176 
811202 
841204 


MACX4d 


811226 
311218 
g1i212 
814214 
841216 
811222 
811226 
811232 
844254 
011236 
341240 
841244 
911246 
341252 
014254 
941256 
811268 
811262 
811264 
811266 
811270 
811272 
031274 
841276 
811300 
611304 
911386 
941510 
841312 
841516 
811528 
311322 
B41524 
831330 
821332 
811336 
011340 
911344 
3413546 
811550 
911352 
841356 
811360 
841362 
B11364 
811366 


yee 


042746 
822703 
194902 
62793 
006106 
086123 
285316 
@BS367 
342703 
805726 
980207 


vee. 


910246 
919246 
810346 
083046 
316502 
016501 
910165 
005016 
152216 
oeig12 
820265 
183772 
940165 
083726 
2242603 
942682 
022601 
980207 
205803 
152203 
888303 
152203 
264602 
895202 
830327 
694402 
383303 
864503 
228365 
193350 
B28386 
103913 
828365 
191343 
920305 
181005 
020365 
183335 
020315 
1203733 
062716 
161682 
029213 
004205 
010143 
112221 


22eMARS73 


SeoR34 
050808 


130208 


170000 


22emMaRe73 


900872 
oeoR14 
900872 


809874 
890074 


890002 


oe0804 


090010 


888812 


828014 


880004 


15144 = PAGE 42 


OOo groceneqqacerecgcusayeveuenveucencecesces 


j 
’ QUTINE 'O;VTEN! CALLED BY JSR PC 
1 OUVIDES R3,R4 By DECIMAL 13 
’ RO,R1~R2 UNUSED 
J R3,R4 IS THE 34 BIT UNSIGNED INTEGER TO DIVIDE 
' ‘ RS UNUSED - 
) SP .GORS 2 DEEPER AFTER JSR 
OIVTENT MOV #34, 0¢SP) 
OLVLOOP1 CMP W58080,R3 

BH! 1% 

ao0 #2S50008,RS 

ROW R4 

ROL RS 

oe (SP) 


BGT OVLooP 
oye #470000,R3 
TST ($P)e 

RTS PG 


15144 PAGE 43 
LJFNOF = sNOSTK 


gar 


APG 


ier t rr ee en ee ee 
§) SUBROUTINE 'ONPACK! CALLED BY JsP pC 
i PACKS STRING STOKAGE TOWARD LOW CORE 
’ R@ UNUSED 
' R4,R2eR3 | PRESERVED 
1 R4 UNUSED 
H RS MUST POINT TO USER AREA 
' SP GOFS 49 NEEPER AFTER JSR 
ONPACK) MOV Ryy0(SP) yTO UNDERSTANO THESE ROUTINES IT JS HELPFUL TO 
MOV R2,e(SP) JKNOW THAT NON@NULL STRINGS ARE STORED AS 
MOV R3,e(SP) ICLENGTH)2 BYTE BACKPTR,N RYTE STRING, LENGTH) 
CLR o(SP)  jWWERE LENGTH ITS THE VALUE OF N ANO IF BACKPTR q 
MOV LOSTRIRS),R2 HIS COO,THEN [Tf IS RELATIVE TO SYMBOLS, 
“QV LOFREE(RS) RL 
MoV RU LOSTRERS) 
ONPLOOPICLR (SP) 
8}sB (R294) (SP) * 
BNE ONPN2KO 
ONPBAD? CMP R2eHISTRIRS) 
84,0 ONPLOOP 
MOV RASHTSTROAS) HSAVE HIGH STRING ADORESS 
TST (SP)e 
MOV (SP) eGR 
MOV (SP)4,R2 
MOV CSP) oe, RY 
RTS PG 
ONPN2ROICLR RS 
BISB .  (R2)o,R3 
Swap RS 
BISB (RZ) op RS 
aoo (SP), K2 
INC Re 
pas RS, et 
80 a) 
dec RS 
aod . CRS) ARS 
CMP RS, POLERS) 
BHIS ONPBAU 
CMP R3,SP 
BHIS ONPGOOO 
CMP RS, ARKAYS(R5) 
BHI ONPBAQ 
CMP RZ HIFREE(RS) 
SHI ONPGOOO 
cMP RS, LOFREE (RS) 
BHIS ONPBAQ 
CMP RS, (RD) 
840 ONPBAD 
ONPGOODTADO #4, ¢SP) 
sus CSP) RZ 
CMP R28, (RS) 
BNE ONPIGNO 
MOV Ra, (RS) 
MOVE CR2)O, (Rio 


ee ae 


BASICL 


2722 
2722 
27235 
2714 
2725 
27206 
2747 
2728 
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2719 
2728 
2723 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2732 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2752 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2768 
2764 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2779 
277% 
2772 
2773 
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911378 
841372 
841374 
821376 
811400 


MACKXLL 


011402 
@11404 
911406 
941412 
811414 
211420 
811422 
311424 
011426 
911430 
O11454 
811436 
311442 
211444 
011458 
011452 
911456 
011460 
811464 
911466 
311472 
241474 
911508 


811502 
311506 
41518 
911514 
911516 


811522 
811526 
844552 
811534 
311549 
711542 


vees 


805316 
003375 
08a721 
864622 
880727 


voar 


020604 
183406 
222746 
00n4e4 
342746 
320604 
193563 
112122 
302241 
122227 
381475 
120227 
284502 
128227 
394502 
120227 
984519 
120227 
3847353 
120227 
204754 
120227 
284537 


128227 
201423 
120227 
[81282 
200167 


242702 
162722 
086502 
920227 
101065 
362782 


22eMAR@73 


22emARe73 


290235 
290233 


090375 
290376 
090374 
999255 
agn2s4 
aga2s2 
ogaz62 


808257 
288256 
294030 


177409 
380265 


280044 
900012 


15944 = PAGE 4304 


ONPIGNOSADO 


BR 
+ENOC 
607 


15142 PAGE 44 


| 
‘ 


ONPBAU 
(SP), K2 
ONPBAG 


SOURCE FILE #5 


[teten ere swcw ewe ge ween enn een nsw cececncnccecec races 


J EVAL © EVALUATE EXPRESSI aN 


J 
§ CALLY 
U 

U 

U 

) 

U 

5 

U 

J 

1 

U 

) 

Evaut 


UMINUS| 
BPOLI 


“OV 
MOV 
MOV 
JSR 


a0 


OPERANDIMOVB 


GOTOOT} 


BGE 
cMPa 
8EQ 
CMPB 
BEQ 
CMPB 
EQ 
CMPa 
8£0 
cCMP8 
BEO 
CMPB 
BEO 
CMPB 
geo 


1 FNOF 
cMPa 
seo 
Cura 
BNE 
JMP 
+ENOC 


NOQUOTEIBIC 


Sus 
aS, 
CMP 
BHI 
aod 


CYSER@AREAS 
CSTACK Sl#e),R4 
CGHAR, PTH 9,RE 
PC, EVAL 


USES ALL REGS, 
RETURNS ‘C! BIY SEy IF sTRING vAL, 


CLR LF NOY STEING 


RETURNS VALUE IN FACA(RS), FAC2(HS) 


SPaR4 

SPOL 

#, TERM, (SP) 
OPERAND 
#,UNARY, (SP) 
SP,R4 

ERRPOL, 

(R44 RZ 
VARBLE 

RZ He 1LITS 
Tits 

R28, UU1T2 
WWIT2 


OPERAND 
RZ, 8, FN 
GOTOFN 


SNOSTH 
R28, SQU0T 
coroe? 
R2,#,OQUOT 
NOQUOTE 
QUOTE 


#477400,R2 
#, AND, R2 
RZ 


R2, #TOLSENN* TABLES 
ERRSX4 
#42, R2 


330 


PS 


BASIC, 


2776 
2775 
2776 
2777 
2778 
2779 
2789 
2783 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2798 
2794 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2698 
2824 
2802 
2803 
2804 
2005 
2806 
2807 
2608 
2809 
2619 
2813 
2812 
2815 
2614 
2815 
2816 
2017 
2818 
2019 
2828 
2623 
2822 
2823 
2824 
2825 
2826 
2827 
26268 


BASIC, 


2829 
2838 
2634 
2832 
2833 
2634 
2835 
2836 
2837 
2838 
2839 
2840 
2644 
2842 
2843 
2844 
2845 
2846 
2847 
2648 
2849 
2859 
2853 
2852 
2853 
2854 
2655 
2856 
2857 
2858 
2659 
2860 
2864 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2872 
2873, 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2884 
2082 
2883 


MACKLL 


011546 
941550 
211552 
911554 
311560 
811562 
311564 
311566 
811570 
811572 
314574 
341576 
311609 
011682 
011604 
211606 


912612 
931612 
41614 
941616 
911628 
841622 
41624 
911626 


811630 
841634 
911648 
941644 
011658 
11654 
811656 
011662 
911666 
841672 
841676 
11708 


811704 


841726 
041712 
B1L714 


914728 
044724 
844726 


MACKX12 


844732 
911734 
B4L736 
011740 
011744 


811746 
841752 


841754 
811760 
841762 
814764 


811766 


814772 
841774 


41777 
942096 


912004 


42818 
342812 
ay2oi4 
342016 


312022 


a42024 
812038 
842034 
212036 
912042 
812844 
312050 
412852 
212056 


Ve2a 


460722 
805712 
383802 
300167 
262227 
380220 
290000 
201440 
301446 
284454 
281470 
804476 
304512 
280828 
381662 
099808 


880000 
080080 
890008 
Seeees 
299000 
980800 
880808 
806808 


211626 
005965 
125065 
112165 
080167 
295265 
080406 
142165 
122165 
122165 
122165 
880533 
984767 


103405 


122127 
881525 
080167 


122127 
081375 
680167 


vo2s 


80302 
152122 
364582 
424127 
04422 


21227 
2044085 


922227 
802476 
1L202 
380474 


380107 


300804 
352125 


220 
600167 


380467 


285204 
983767 
340246 
804767 


183778 


804767 
005765 
281050 
124127 
204427 
122127 
2043524 
916546 
204767 


22eMARe73 


092740 


980048 
898045 
og0R42 
898516 
800042 
200041 
800040 
890043 
880042 


177476 


090237 
agoe24 


890257 
300766 


22eMARe73 


988255 


477777 


177775 


290066 


125 


202246 


BOLB02 


177300 


ag3se4 
020040 


000237 
800245 


opged2 
177328 
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400 
TS? 
cr 
Jue 
apd 
TABLES) ,WORO 
WORD 
WORD 
+WORO 
WORD 
+HORD 
;WORD 
1WORD 
+WORD 
+WORD 
1WORO 


VTFNOF 
+ WORD 
WORD 
WORD 
;WORD 
;WORD 
WORD 
WORD 
“WORD 
,ENDC 


TB, 5END 8,02 
ILTYay CUR 
CLRB 
MOVB 
JMP 
TLIT2¢ CLR 
BR 
FLIT?  MOVB 
MOVE 
IL{TCoMiMova 


PARI JSR 


ERRSX4} UMP 


a JPNOF 
LPSTRNGICMPB 
BNE 
JMP 
1ENOC 


15144 PAGE 4402 


VARBLE} SWAB 
ayS8 


aod 
CMPB 
BEO 


eTPNOF 
CMP 
BEO 
vENOC 


Cue 
EO 
MOV 
@R 


1 UFNOF 
STRGUMP I UMP 
rENDC 


ERRPOL! ToT 
i }PNOF 
ASCII 
+ENOC 
vFOF 
,ASCIIL 
,ENDC 
iBYTE @ 
1 EVEN 

GOPOFN' JMP 


clENOF 
ERRMX2) JMP 
vENOC 


VARSS{t INC 
BLE 
MOV 
vSR 


at FNOF 
ecs 
,ENOC 
JSR 
TST 
BNE 
CMPB 
8eo 
curs 
BNE 
MOV 
JSR 


a 5 RADE 
a 1 RNA 
SINFNWTABLES 
COSFNeTABLES 
SQRFNeTASBLES 
ATNFNeTABLES 
EXPFNeTASLES 
LOGFNO TABLES 
@ + ABS 
INTFNOTABLES 

8 y $6" 


SNOSTK 

TAR 
Les 
ase 
CHPS 
Pos 
SEG 
VAL 
sta 


awaagaesana 


FAGA(CRS) 
FAC2@4(R5) 
CRLYO,FAC2] (RS) 
OPRATOR 

FACL(RS) 

ThITcGom 

CRY) op FACT OL CRS) 
(RL) O,FACL ERS) 
(RE peg FACZe1 (R5) 
(RL), FACZ(R5) 
OPRATOR 

PC,EVAL 


SNOSTK 
LPSTRNG 


(RE) 49H, 9PAR 
OPRATOR 
ERRSK 


SNOSTK 
(RL) o,e,RPAR 
ERRSX4 
SQPRATR 


Re 

(RL) ORE 

(RS), R2 WCOLLECT OFFSET 
(RO) 28, LPAR 

VARSS 


SNOSTK 
(R2) 8, SVAR 
STRGUMP 


(R2) 69H, SCALAR 
VARNOSS 
(R2),K2 
VARNOSS 


SNOSTK 
STRGVAR 


SRONGER 
NETCN 


SLONGER 
‘EXPRESSION TOO COMPLEX? 


FNPN 
SNOSTK 


_ ERRMYX 


Ra 
ERRPOL 
R2,0e(SP) 
PC, EVAL 


SNOSTR 
ERRMXZ 


PC, INT 
FAGA(RS) 
ERRSS2 
(RY), 8, RPAR 
VONESS 

(RG) meh, COMMA 
ERRSX4 
FAC2(R5),0(SP) 
PC, EVAL 
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BASIC 


2084 
2085 
2886 
2087 
2088 
2889 
2890 
269% 
2892 
2893 
2894 
2895 
2896 
2897 
2098 
2899 
2908 
2921 
2902 
2903 
2906 
2905 
2906 
2907 
2908 
2909 
2912 
2911 
2912 
29143 
2934 
2945 
2916 
2947 
2918 
2929 
2928 
2924 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2934 
2932 
2933 
2934 
2935 
2936 
2937 
2938 


BASIC, 


2939 
2940 
2944 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2958 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2906 
2965 
2966 
2967 
2968 
2969 
2970 
2974 
2972 
2973 
2974 
2975 
2976 
2977 
— 2978 
2979 
2988 
2984 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2999 
2991 
2992 
2993 


MACX11 


912062 


812064 
312870 
942074 
912976 
812122 
842104 
842118 
912112 
942214 
812116 
842122 
012124 
942158 
012154 
842156 


942140 
012144 
812146 


942152 
042156 
932162 
842166 
012178 
812174 
842176 
942202 
042204 
042210 
012212 
o122i4 
012228 
042222 
812226 
812238 
042234 
012256 
012242 
012244 
0142259 
012252 
042256 
042268 
042264 
842266 
042272 
842274 
342276 


MACXL4 


042300 
842384 
812306 
042318 
042312 
@12314 
842316 
812320 
842322 
842324 
942326 
812339 
912334 
842336 
812340 
042344 
842346 
312350 
842354 
912356 
042368 
012364 
812379 
842374 
812376 
812404 
312486 
842412 
012414 
012422 
042426 
812430 
842434 
812436 
942444 
242450 
312452 
312454 
012456 
912469 
312462 
312466 
812474 
242508 
312502 
012504 
312506 
342510 
912512 
942514 
012516 
012520 
912522 
342526 
812538 


yo2s 


183739 


204767 
305765 
201828 
122127 
081324 
816503 
199402 
012608 
080407 
980167 
085223 
012723 
2946590 
100778 
242602 


021227 
oa1802 
080167 


004767 
312265 
844265 
121103 
120327 
204437 
120327 
904434 
128327 
103644 
811602 
420227 
164425 
120227 
101417 
120227 
194483 
120227 
184403 
120327 
104427 
120327 
104424 
120327 
184422 
120327 
10444 

20508 

152602 


vo2s 


162702 
260202 
#60782 
064207 
804162 
208124 
200154 
800126 
809056 
290052 
poeee2 
018546 
a2n604 
193419 
846546 
310346 
205204 
080167 
200241 
900207 
200467 
004767 
305765 
304404 
062765 
380679 
305465 
192265 
312765 
205065 
300657 
994767 
990654 
812767 
004467 
012514 
812530 
300R0e6 
016668 
915066 
300467 
342767 
304467 
312544 
312530 
aeenaec 
916868 
315066 
380763 
005716 
181903 
405726 
300167 
000136 
316546 


22eMARC7S 


293504 
280048 


980237 
990042 


294454 


477777 
988042 


177777 
889508 
084252 
000048 
809042 
098281 
080295 
098227 


ge227 
089231 
ego2s4 
90254 
90254 
99234 
o902s4, 
090227 


22eMARe7$ 


O9G226 


apowaz 


900048 


177050 


177406 
097060 
gaede 
198000 
ogane2 


944900 
088042 


175166 


a13214 
002444 


177500 
013576 
882414 


0900006 
290842 


200048 


880049 


ogenae6 


988000G 


15042 


15142 
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ERRSS2} 
VONESS} 


VTWOSSt 


JSR 
VARNOSS I MOV 

MoV 
OPRATORIMOVB 
cMPB 
BE 
cura 
BEO 
cMPe 
A,0 
MOV 
cure 
BL 0S 
cure 
aLos 
cure 
BLOS 
cHPB 
BLOS 
cHPB 
BLOs 
cMpe 
BLOS 
cHPB 
8LOs 
PREC2) CMPB 

BL 0S 


e 
DOLTNOWICLR 
B1SB 


PRECS} 
PREC4) 
PRECS} 


PAGE 4404 


sua 
A00 
00 
A00 
WORD 
WORD 
WORD 
WORD 
WORD 
:WORD 
+WORD 
mov 
CMP 
B10 


TABLE2! 


NOPNOW] 


TERMING 
ERRPOS| 


MINUS | 
UNARY} 


UINTEGS 


PLUS! 
STARt 


STARLI 
SLASH} 


TSTSTKI 
rs?sii 


TS?s2i 
PUSHF | 


SNOSTK 
ERRMXe 


PG, INT 
FACACAS) 
ERRSS2 

CRE) o,@,RPAR 
ERRSX4 
FAC2(R5),R3 
ERRSS2 

(SP) 4,RO 
vtwoss 
ERRSSS 

Ra 

#04, RS 
FAC2(KS) RA 
ERRSSZ 

(SP) e,R2 


SNOSTK 
(R2),8,SVAR 
i) 


STRGAKR 


PG LogGeT 
(RZ) e,FACL ERS) 
(R2),FAC2(A5) 
CRA), KS 
R¥, 8, EOL 
OO} TNOW 
RS,#,G0TO 
DOT TNOW 
R3,#,YPARRO 
ERRSX4 
(SP), H2 
R2, 8, UPARKO 
OOLTNOW 
R2,#, SLASH 
PREC? 
R2, 8, MINUS 
PRECS 
R2,8,£0 
PREC 

RS,#, £0 
NOTNOW 
R3,8, MINUS 
NOTNOW 
R3,#, SLASH 
NOTNOW 
RS, 8, UPARRO 
NOTNOW 

RZ 

CSP) 4,R2 


#, UPARROSL,R2 
RO ARZ 

PG,R2 

(RZ), PC 
UPARROSTABLED 
STAR@TABLES 
SUASHOTABLE2 
PLUS#TABLE2 
UNARYeTARLE2 
MINUS@TABLE2 
TERMINeTABLE2 
FAC2(H5),0(SP) 
SP,R4 

ERRPOS 

FACS (KS), 0¢SP) 
R3,0(SP) 

Ri 

OPERANO 


°¢ 

ERRPO, 
PG, SUBSTK 
FACL(HS) 
UINTEG 


#2009000, F ACI CRS) 


OPRATOR 
FAC2(K5) 
OPRATOR 
#44908, FACL( RS) 
FACZ(KS) 
OPRATOR 

PC, ADDSTK 
OPRATOR 
#ERSTAR, SERVEC 
Ra, FPPSAV 
TSTSTK 

PUSHF 

SMLR 

POP 

FPPRES 

OPRATOR 
#ERRDIV, SERVES 
R4, FPPSAV 
TSTSTK 

PUSHF 

SOVR 

POP 

FPPRES 

STARL 

(9P) 

TSfs2 

(SP)e 

sir 

O(RG)e 
FAC2(R5),0(SP) 


HNEXT CHARACTER, 


PPREVIOUS OPERATOR, 
JUMP IF 9, 

pJUMP IF @ OR J, 
ayUMP IF 


SUMP IF 


@ = OR UNARY, 
8 <> <8 de < OR DY 


sJUMP TF ANY OPERATOR, 


HUUMP IF & © UNARY © / OR 8, 


HJUMP TF @ 7 OR ¢, 
ryuMP IF 


’ 
CE, 6, Aebe ) 00 THE # “OW, 


HJUMP OQ DO THE APPROPRIATE MPERATION, 
HLEFT OPERAND 1S B¢SP),2¢SP), 
WRIGHT OPERAND IS FACLERS) ,FAC2(R5), 


1(E,6, 


AaBe ) DONT 00 THE + YET, 


yCARPY OFF MEANS NUMERIC RESULT, 


HTEST YOP OF STACK AND FLOAT IF INT 
sPUSH FAC ANO FLOAT IF NEC 

yPERFORM MULT 

1POP RESULT 


RETURN 


a3 
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2994 312534 2316846 aaeg4e MOV FACA(RS),©¢SP) 

2995 912549 7e1767 8EQ TSsTsy IFLOAT IF INTEGER 
2996 «9132542 a90154 wMP (Raye PRETURN 
2997 vIFOF — SNOSTR 

2998 JOUMMY ENTRY POINTS FOR SNOSTR 

2999 SAVCHARI 

3800 ARGBI 

308% MAKESTY 

3e02 SOPRAT} 

Seas STOSVARI 

3004 ERRMIX} 

3005 STPROY 

3086 : ,ENOC 

3oo7 

3008 ERRSYNI 

3009 812544 oegee4 ERRSX5; OF 

3240 1 UFNOF SLONGER 

3812 342546 «954525 116 sASCIT «SYNE 

3012 1ENOC 

3043 sIFOF = S,ONGER 

3e14 ASCII «SYNTAX ERROR! 

3915 

3016 ENOC 

3017 «932551 CLT) sByTE @ 

3818 vEVEN 

3019 

3020 sJFNOF SNOSTR 

382% 9832552 122127 990577 QUOTE: CMPB CRG) O,e, TEXT 

3022 812556 001372 BNE ERRSXS 

3823 832560 919203 MOV R2,R3 HSAVE QUOTE CHAR, 
3824 312562 019102 MOV RAR? 

3025 932564 198721 TST8 CRYYe 

3826 832566 381376 SNE 182 

3827 912578 920604 ; CMP SP,R4 

3028 «942572 103672 BLO ERRPOS 

329 3842574 849246 MOV R2,0(§P) 

3830 842576 162716 00005 sys #3, (8?) 

303% 842602 339146 MOV RasetgP) 

3832 942684 160216 sus RO, (SP) 

3833 012606 122183 CMPB CRY) O,R3 SAME AS STARTING QUCTE CHAR,? 
3834 842618 081359 BNE ERRSXS 

S835 912612 285316 DEC ¢$P) 

3036 342614 204410 re) QUNULL 

3037 942616 018602 MQV SP? ,R2 

3838 942628 962702 cogee2 A00 @2,R2 

339 342624 304767 904422 JSR PC MAKESTR 

3840 842638 012616 MOV C$P)0, (SP) 

304% 212632 300167 o90324 ume Qyoraum 

3842 812636 222626 QUNULLE GMP (SP) 0, (SPDs 

3043 942040 912746 «177777 GOTVALT HOV easier 2 6 
3044 042644 900425 aR: SOPRATR a 
3045 1ENOC 

304 

3047 912646 988167 a90330 ERPO2) ymP ERRPOZ 

3048 
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3049 v}FNDF SNOSTK 

3858 912652 384767 993532 STAGARRIJSR Pg, LOGGET 
3052 342656 300406 BR STRGBTH 

3052 912669 095722 STRGVARITST (R2)4 

3Q53 912662 026227 oopee2 177777 CMP 2¢R2), 80% 
3054 912678 092474 BEO STRGBTH 

3955 912672 «311202 MOV (R27, R2 

3056 042674 911203 STRGBTHIMOV (RZ), RS 

3057 332676 «020327 477777 CMP RS, Hey 

3058 912792 201756 seo GOTVAL 

3059 912704 020604 CMP SP,R4 

3068 312706 193757 BLO ERPOO? 

3064 312710 305046 CLR o(SP) 

3062 942712 111326 Move ¢R3),¢SP) 
3863 012714 204767 994332 JSR PG» MAKESTR 
3264 912728 1426627 ag0802 B8v226 SOPRATRICMPS 2¢SP),#,AMPERS 
3065 012726 301434 BEQ CONCAT 

3066 912730 121127 oaa2z6 CMPa (RY) 48, AMPERS 
3067 912734 394422 BE AMPWALT 

3268 342736 126627 ooaee2 gee235 cMPB 2¢SP))8, TERM 
3869 «312744 «394277 BNE ERRSXS 

3070 042746 212688 MQV (SP)e,RO 
3074 812758 905726 TST (SP)e 

3872 842752 911602 MOV (SP),H2 

3073 3132754 319816 MOV RO, (SP) 

3074 942756 303200 INC RO 

3075 312769 301406 g£0 SOPRX HCHECK NULL STRING 
3076 312762 262708 oneeo2 aoo 92,80 

3077 312766 2910603 MoV SPARS 

3878 912770 119340 MOVB RS, eC RB) 
3079 942772 aga3a3 swas RS 

3080 812774 1490340 MOVB RS, e( KB) 
3881 932776 200263 SOPRXI SEC 

3882 843009 000112 vMP (RQ) 

3083 43002 132146 AMPWASTIMOVE (RL) ope (SP) 
3084 213004 904767 476372 JSR PG, EVAL 

3985 313010 193743 acs SOPRATR 

3886 «343812 200004 ERRMIX} JOT 

3087 sTFNOF © SLONGER 

3088 333014 354516 115 sASCIT | \NSHN 

3289 ,ENOC 

3099 1EFOF = SLONGER 

3094 sASCIL (NUMBERS AND STRINGS MIXED? 
3092 vENOC 

3093 343037 200 :BYTE 2 

3094 , EVEN 

3095 843820 224627 477777 CONCATS CMP (SP), eed 
3096 343024 cereo2 BNE CATNOT 

3097 313026 322626 GMP (SP)¢; (SP) e 
3098 313038 380733 BR SOPRATR 

3099 343832 346622 2009004 CATNOTE MOV 4(SP),R2 23 2. 
3108 833036 c20227 «177777 cMP R2,0e03 

3101 313042 aas906 BNE CATLONG 

3182 913044 212600 MOV (SP)o,RO 


3123 313246 395726 TST (SP)e 


BASICL 


3104 
3105 
3106 
3107 
3406 
3109 
3210 
3442 
3112 
3113 
3ai4 
3115 
3116 
3117 
3148 
3219 
3128 
3124 
3122 
3423 
3124 
3425 
3126 
3327 
3428 
3129 
3130 
3134 
3132 
3133 
3134 
3135 
3436 
3137 
3138 
3139 
3140 
3242 
3248 
343 
3144 
3245 
3146 
3147 
3248 
3149 
3258 
3454 
3252 
3453 
3154 
3155 
3356 
3157 
3158 


BASIC, 


3459 
3268 
3262 
3162 
3463 
3164 
3465 
3166 
3467 
3168 
3469 
3478 
3472 
3372 
3173 
3474 
3475 
3476 
3477 
3378 
3479 
3488 
3482 
3182 
3183 
3184 
3385 
3186 
3187 
3188 
3189 
3198 
3194 
3392 
3293 
3194 
3495 
3496 
3397 
3498 
3199 
3208 
3203 
3202 
3293 
3204 
3205 
3206 
3207 
3238 
3209 
3210 
3211 
3212 
3213 


MACX12 


933050 
813952 
845054 
943856 
323060 
9435862 
843064 
843866 
813078 
843872 
813074 
8435120 
843102 
813104 
013118 
845114 
2132116 
813122 
015124 
323126 
9131352 
943134 
833140 
0135142 
015144 
813146 
813150 
813154 
813156 
915160 


813162 
0132164 
823166 
043172 
045174 
813176 
8435208 


843202 


813296 
645218 


943213 


MACX11 


013214 
343216 


913221 


013222 
813226 
813239 
8435234 
8432356 
945242 
813250 
343252 
813256 
015268 
843264 
843272 
943274 
843300 
813306 


343319 


013314 
843328 


843326 
135326 


34353352 
313334 
318336 
843342 
313346 
945358 
315354 
913356 
a43368 
013362 
213364 
813366 
343378 
813374 


VO2% 


810016 
000444 
205000 
151228 
221623 
020604 
193678 
885846 
121326 
360016 
322627 
191042 
919602 
262702 
904767 
512623 
816602 
205900 
154208 
018366 
869823 
962783 
212602 
805726 
9e5ee8 
151298 
362702 
112223 
29530 
383375 


911690 
319602 
862708 
112240 
800382 
110240 
090647 


600167 


o80006 
852123 


veer 


oa0004 
093137 


342746 
900434 
812746 
800453 
912746 
932767 
880423 
842746 
880429 
912746 
812767 
908412 
032746 
842767 
800424 


800167 


290167 
884767 


123882 
200467 


312623 
2042902 
800167 
122127 
684950 
304467 
812538 
343366 
045266 
260449 
920684 
240446 
532746 
042746 


22aMARe73 15144 


888377 


200086 
0041356 


280084 
290804 


og8005 


080085 


880005 


176564 


424 


22eMARe7S 45044 


406 


2900006 
eoaveec 


oggneeG 
818312 ge00e0c 


999B99G 


2eoeeeG 
913214 ogoeegs 


2088006 
818512 seene8G 


177476 


177962 
176856 


174760 


884156 
000237 


894540 


213446 
200137 


oR 
PATLONGIELS 


STPRO} 


PAGE 4407 


MOV 


{se 
MoV 
CMP 
BLO 
CLR 
MOVE 
ado 
cmp 
SHI 
QV 
a00 
usr 
MOV 
MOV 
CLR 
8yse 
MOV 
400 
add 
MOV 
Ts! 
CLR 
8188 
aoo 
MOVE 
oEc 
acr 


QUOTBUMIMOV 


Carcoms 


ERRPO2! 


ERRSTRY 


EREXPI 


ERSTARt 
ERa00} 
ERROVRE 


SINFNG 
COSFNY 
SQRFNI 


ATNFNG 
EXPFNI 


LOGFN 


ERRMX94 


ERwOi1) 
FUNCTSS 


FUNCT UI 


FUNOK) 


MoV 
Abo 


PAGE 4408 


ror 

1 TPNOF 
sASCIL 
rENOC 
FOF 
ASCII 
,ENOC 


RB, (SH) 
CATCom 

RO 

CRA), AO 
(SP)KS 
SP,R4 
ERPOG2 
=(SP) 
(R3), (SP) 
RO, (SP) 
(SP), 8377 
ERRSTR 
SP,R2 
86,R2 

PC MAKESTR 
CSP) OyRS 
4(SP)—¢R2 
Ra 


(RZ), KO 
R3,4¢SP) 


(RA) eg (R3V6 
Re 
104 


(SP), RO 
SP, R2 
#3,R0 
R2,0(KQ) 
RZ 
R2,0(KB) 
SOPRATR 


ERRPO, 


SNOSTK 


SLONGER 
\STLN 


SLONGER 


(STRING TOO LONG! 


SLONGER 
‘OvFe 


S,ONGER 
‘OVERFLOW! 


*StNpetsp) 
FUNCT} 
#GOS,e(SP) 
FUNCTS 
#SORT, 0 SP) 
MERSOR, SERVE 
FUNCT] 

WATAN, @(SP) 
FUNCT] 

SEXP, aCSP) 
OGREXP, SERVEC 
FUNCTS 
#ALOG, 0 (SP) 
#ERLOG, SERVES 
FUNCT} 


SNOSTH 
ERAMIX 


ERRPOZ 
PC, EVAL 


SNOSTK 
FUNCTY 
ERRARG 


CSP) egRS 
ry 


16 

ERRYFN 

(RE) O98, RPAR 
ERRSXY 

RO, FPPSAV 
PYSHF 

FUNOK 

FPPRES 
OPREN 

SP, Rt 

RO, 0157) 
#FUNRET, ©(5P) 
#437, 0(SP) 


sPUSH FAC, FLOAT JF NECESSARY 
1G0 50 FUNCTION 


WSAVE ADDRESS OF PUSHED are 
ISAVE Ra 

JOUMMY RETURN ADORESS 
sOUMMY JUMP INSTR, 


BASICL 


3814 
3215 
3216 
3217 
3218 
3219 
3220 
3224 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3232 
3234 
3232 
3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3243 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
yeas 
3250 
3253 
3252 
3253 
3254 
3255 
3256 
3237 
3258 
3239 
32008 
3264 
3262 
3263 
32o4 
3265 
3266 
3267 
3268 


BASICL 


3269 
3278 
3274 
3272 
3273 
3274 
3275 
3276 
3277 
3276 
3279 
3288 
3283 
3282 
3283 
3284 
3385 
3286 
3287 
3288 
3289 
3298 
3294, 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3303 
3302 
3305 
3304 
3305 
3306 
3387 
3308 
3309 
3340 
3312 
3322 
33135 
3314 
3345 
3346 
3347 
3318 
3319 
3329 
3321 
3322 
33235 


MACXaa 


043428 
243402 
813406 
213410 
013432 
843416 
243422 
318424 
813426 
8134352 
0134356 


343449 


813444 


943450 


843452 
013456 
a1346g 
013464 
243479 


o4se74 
043476 
8135008 
043504 
843506 
843510 
843514 
813546 


013529 
913526 
833552 
8485354 
843548 
843542 
943550 
843552 


843556 
843560 
043562 
813566 
843570 


MACKAY 
843572 


943575 


943576 
843602 
813684 
943610 
843612 
815616 
943622 
913626 


343638 
8436346 
943636 
843642 
913644 
843659 
845654 
843656 
313662 
3413666 
313672 
13674 
813676 
343700 
943702 
913706 
243719 
845714 
843716 
243720 
345724 
3143738 


413732 
813734 
313736 
313742 
343744 


343759 
843754 
243756 


813760 
313764 
843766 
313770 


Vaz. 


030146 
242746 
830538 
810605 
004070 
862726 
032604 
822626 
10965 
820165 
880154 


(080167 


804767 


183773 


122127 
091906 
204767 
980167 
080167 


085716 
304010 
208766 
884405 
285726 
304467 
TT TT 
945066 


832767 
895765 
0810356 
395765 
381896 
012765 
822626 
800167 


885716 
901077 
295765 
100015 
880004 


vo2s 
053124 


020027 
183372 
280167 
103367 
380167 
205065 
285965 
298739 


295765 
984936 
046520 
340002 
242700 
320027 
193426 
242702 
352702 
920027 
281406 
181026 
096202 
103414 
962700 
200767 
295765 
180904 
305402 
305065 
210265 
300722 


305716 
201405 
204467 
816046 
344104 


805765 
180320 
380704 


316508 
348822 
282004 
385408 


22eMARe73 «15144 9 PAGE 4409 
MQY Ro, ecgr) 
90403 Mov 402,039) 
meV a5, RO 
MOV SP,RS 
980052 JSR RO, ORSSAVE(RO) 
ageRio FUNRET} ADO 98), SP 
MOV (9P)o,R4 
cmp ($P)0,¢SP)e 
90040 MOV RO, FAGLCRS) 
090062 MOV RL FAC2cRsy 
vMP O(Raye 
rFNOF = SNOSTR 
177346 ERRMX8} UMP ERRMIX 
,ENOC 
175732 TNfFNT JSR PG, EVAL 
-yTFNOF = SNOSTK 
acs ERRMKS 
sENDC 
098237 CMPB (RL)%) 8, RPAR 
ONE ERRSy? 
992410 JSR PG,INT 
176476 OPRFNI UMP OPRATOR 
177058 ERRSX9) JP ERRSXS ~ 
' F A YS NOY OrFLOAY 17 
UPARROY ts ' (3) ‘ 
BNE vag 
8ebRe2 Ts? 2¢$8P) 
8EO vag 
TS? (SP)o 
04400 JSR RO, FPPSAV 
sWORO = -§IR 
+NORD = FPPRES 
234064 a9e08gG VArt MOV SERREXP, SERVES 
ogee TST FACL(RS) 
BNE vasa 
ogoge2 TST FAC2(KS) 
BNE vas 
e808, e80042 Mov WY FAGZCRS) 
uaa CMP CSP), (SP)e 
176430 ump OPRATOR 
4B IS INTEGER 
VAST Ts? (SP) 
BNE UAg? 
888042 Ts? FAG2¢R3) 
aPL yas 
uast tor 
cIPNOF = SLONGER 
22eMARe7S §=45144 PAGE 44049 
068 sASCIL fQVO! 
1ENOC 
rIFOF = SLONGER 
sASCIT fF QEVESTON BY OF 
vENOC 
BYTE 8 
,EVEN 
oa4o00 ERROLVI CMP RO, #4008 
BHIS yas 
177404 JMP ERSTAR 
BHIS UAB 
477376 UMP ERROVK 
890040 UAgT CLR FACS(RS) 
200042 CLR FAC2(RS) 
8R UA4 
JFIX B IF INTEGER ¢ 296 
ogea42 vatar = TST FACZ(KS) 
ane VASO,9 
888049 MOV FACS(NS) RO 
MOV RO RZ 
100177 BIC #400277 ,R0 
040208 CMP RO, 840200 
alo VASE ,9 
177600 Bic #477608 ,R2 
oo0200 ays $200, K2 
842008 vaAdoar CMP RB, #42000 
BEQ yaaa 
BHy VALE? 
ASR Re 
bcs VALO,S 
eee220 aod #200, R8 
BR VALBA 
909040 uagosy 6ST FACA(RS) 
aPL, yagec 
NEG R2 
900040 vaiacr CLR FACL(KS) 
820042 MOV RO, FAGZ(RD) 
BR uASs 
18 JS REAL 
uada,51 TST ($P) 
BEO vada 
804152 vSr ROA FPPSAV 
WORD = PUSH 
814146 sWORD = VAMP, UA2S 
800040 vat2roT$T FAGACKS) 
BPL vag 
8R vas 
1B INTEGER, A REAL 
300842 Uad7t MOV FAC2CKS) RO 
MOV RO,RZ 
BGE UAGTA 
NEG RO 


HAQO” CF ARGUMENT 


1OUMMY BR 
sSAVE RS VALUE 


JRETURN ADDRESS (TO DUMMY PROG IN STK) 


1POP DUMMY PROGRAM 


sRESTORE RS 


JREMOVE OLD FAC FROM STACK 
sSTORE RESULT IN FAC 


yANQ RETURN 


sUS UPPER A 


sUS LOWER AB 


}[8 UPPER Beg 
HIS LOWER B 8 o 
sSET RESULT 4 


ms ave 
JS LOWER B D> Oo 


INO, ERROR MESSAGE 


OV BY @ 
HOVERFLOKW 
sSET RESULT @ 


PEXTRACT EXPONENT 
SCWECK TOO SHALL 


sR2 1S MANTISSA 


HIP ALT CLEARED,NO GOOD 
1UPDATE EXPONENT 


ms aa ae 


1{$ UPPER B> @ 
HYES 
JNO, ERROR 


HSAVE FOR SIGN TES? 


240 


ad 


_— 


BASIC, 


3324 
3325 
3326 
3327 
3328 
3329 
3338 
3332 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3348 
3344 
3342 
3343 
3544 
3345 
3346 
3347 
3348 
3349 
3358 
3351 
3352 
3353 
3354 
3355 
3356 
3337 
3358 
3359 
3368 
3363 
3362 
3363 
3364 
3365 
3366 
3307 
3368 
3369 
3372 
3373 
3372 
3373 
3374 
3375 
3376 
3377 
3378 


BASIC 


3379 
3388 
3382 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3398 
3392 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3408 
3401 
3402 
3403 
3404 
3405 
3406 
3497 
3408 
34g9 
3418 
341. 
3412 
3443 
3444 
3415 
3416 
3447 
3428 
3419 
3e20 
3424 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3438 
3432 
3432 
3433 


MACKXL1 


813772 
043776 
014909 
014304 
214906 
014010 
314014 
814016 
924020 
314324 
014930 
3449352 
914954 
024040 
014042 
044046 
814950 
924052 
814054 
944956 
844969 


044064 
914066 


844972 


044072 
914076 
814109 
0141282 
014104 
814106 
a14119 
014114 
844116 
024120 
014124 
814126 
044138 
814132 
O24134 


814136 
014140 
14144 


314146 
914158 


MACKXAL 


214152 
014154 
614156 
844168 
214162 
014164 
914278 
014172 
014174 
914176 
044209 
844202 
844204 
014206 
044210 
014212 
014228 
914224 
844232 
914236 


044242 


314246 
344252 
014254 
044260 
014262 
814266 
314278 
914272 
844274 
314276 
314300 


314304 


314306 
814310 
814312 
014314 
814316 
314328 


344322 
214326 


314330 
924334 


vaes 


320027 
103057 
3046467 
316060 
316072 
314972 
316046 
8960006 
824138 
316046 
8600026 
346068 
314104 
16068 
814129 
046072 
816846 
9898086 
416060 
015066 
000167 


880R04 
942536 


806265 
183882 
305724 
980134 
814404 
889454 
035765 
884773 
988770 
985765 
180367 
980764 
205716 
180754 
aoaise 


820246 
684467 
agegae6 


824178 
014130 


vo2t 


844242 
316046 
2889086 
044224 
215066 
200167 
912609 
612604 
912602 
312693 
010146 
910646 
018346 
610246 
980454 
812765 
280167 
812765 
9006167 
80167 


300167 


300167 
142202 
122227 
684372 
866502 
220604 
183762 
814230 
862541 
310046 
904767 


1893426 


842608 
112802 
100580 
280302 
152082 
361502 


324227 
994745 


922227 
601401 


22eMARe73 
098256 
004118 


014920 


014040 
816046 


014010 
024056 


176182 


122 


888044 


ogen44 


990058 


989750 


22eMARe7S 


475776 


8900006 ogaR852 
177140 
3000086 896052 
177126 
175538 


176544 


176272 
898255 
B8d004 


175976 


177777 


177775 


15042 


15143 


Uat7al 


UAL7BI 


UAL701 


UALTFE 


UALoE 


ERREXP} 
uA2adt 


UAASRI 
UANUMPS 
UAJMPS 
UaAfSTat 


UATST2t 


UATSTAT 


UA2ot 


UA2St 


REVRSE} 


CALOGy 
CEXPI 
ERRPD4} 


ERRMX1¢ 


ERRSXA} 
FNPNG 


FNSWAP) 


PAGE 44011 


PAGE 44042 


WORD 
+WORO 
:WORD 
,WORD 
sWORD 
ume 
MOV 
MOV 
MOV 
MoV 
MOV 
MOV 
Mov 
MOV 
JP 
MOV 
sMP 
MOV 
vMP 
JMP 


vl FNOF 
JMP 
1 ENOC 


JMP 
MOVB 
CMP 
BNE 
aod 
CMP 
840 
MOV 
seo 
MoV 
JSR 


sy PNOF 
BCs 
,ENOC 


Mov 
“OVE 
BMy 
SWAB 
BSB 
aoo 


1FNOF 
CMP 
Bea 
eENOC 


ld 
Bea 


RB, 8296 
yA2e 
R4,FPPSAV 
POP 

PUSH 
UAASR,VAL7O 
PUSH 

SMLR 
UAYSTO,UASIF 
PUSH, PUSH 
SMLR 

POP 

UAGMP, UAL78 
PoP 
UATST2,UA39 
PYSHL 
PUSH 
SOVR 
PoP 
FPPRES 
OPRATOR 


SLONGER 
NGERN 


SONGER 
(¢ ERROR! 


RBSAVE(RS) 
UAUMP 
(R4)6 
(Raye 
OH, Re 
OC R4)® 
ROSAVE 
UAUMP 
UANQMP 
R2SAVECRS) 
UAWMP 
UANgMP 
esp 

VA2a 
O(RA)e 


(RS) 


R2,°(SP) 
R4,FPPSAV 
SIR 


REVRSE 
UATSTA 


CaLOG 

PUSH 

SMUR 

CEXP 

FPPRES 

OPRATOR 

CSP }6,RO 
(SP) 9) R2 

(SP) o,R2 
(SP)e,R3 

RY, 0(SP) 

RB, e(SP) 
RS,e(SP) 
R2,0(SP) 
@(R4)0 
#ALOG,RSSAVE(RS) 
FUNOK 

#EXP, RSSAVE(RS) 
FYNOK 

ERRPOL 


SNOSTK 
ERRNIK 


ERRSKS 
CREDO ERZ 
(Rd) o,e,LPAR 
ERRSXA 

POL LR) ,R2 
SP {RG 
ERRPOS 
(R2) RO 
ERRYFN 
RB,etSP) 
PC, EVAL 


SNOSTK 
FNSTR 


(SP)4,RO 
RO), R2 
ERRAGL 
R2 

(RAO ,R2 
(RB) ,K2 


SNOSTH 
(R2),#,SVAR 
ERRWXL 


CR2)e,a, SCALAR 
144 


sR@ 1S geSte) IF TOO BfG. FLOAT 


160 INYO POLSSH MODE 
CURRENT PROOVCT IS A 


sCURRENY ANSWER IS 4 (ON STK) 


sSWIFT B, BRANCH IF BIT 1S a 
iGET CURRENT PRODUCT ONT OSTACK 
sMULTIPLY INTO CURRENT ANSWER 
sTESY IF DONE, BRANCH IF SO 
sTWO COPIES OF CURRENT PRODUCT 
SQUARE JP 


JANO PUT RESULT BACK 
sPOLISH JUMP TO 178 
WSYORE ANSWER INTO FAC 
HTEST SIGN B, JF * JUMP 
PUSH &£ ONTO STACK 


JANS © 4/ANS JF B NEG 


Ipop ANSWER To FAC 


yANO GET OUT 


ySKJP OVER JUMP ADDRESS 


JPOLISH MODE JUMP 


sTEST SIGN OF 8B 
VPOLISH JUMP IF 8 + 


JPUSH INT 8 ON STACK 


AYA 


FLOAT B 


yREVERSE TOP TWO ON STK 
TEST TOP STK, BR TO ERR IF « 


FCALL ALOG FUNCTION ON a, RESULT TO Fac 
IPUSH LoGtA) ONTO STACK 

JCAL BeLocca) 

SCALC EXP(BeL0G(A)), RESULT TO FAC 


ROUTINE TO REVERSE TOP 2 
JFLTPY NUMBERS ON STACK 


JRA NOW CONTAINS THE DEF POINTER, 


JRESTORE TWE DEF pPolwTeR, 
IGET TWE VARIABLE FROM THE DEF, 


sUP THE OEF VARIABLE IS STRI'G AND 
JTHE VALUE ISNT THEN ITS AN FRROR, 


243 


BASICL MACX11 = VO21 22eMAR@73 15144 PAGE 44043 


3434 244336 241202 MOV (R2))K2 

3435 314349 220004 Cup SPyR4 

3436 814342 103735 BLO ERRPDS 

3437 044344 211246 “OV (R2),0(SP) JSTACK THE OLD VALUE AND REPLACE JT 
3438 314346 916522 00040 MOV FACA(K5),6R2)% JWITH THE NEW VALUE 

3439 314352 211246 MOV (R2),e¢SP) 

3442 914354 216522 300042 MoV FAC2(N5), (RZ) 

3441 914360 290058 BR FNREPL 

3442 

344g +}FNOF SNOSTX 

3444 (014362 316608 ageon2 FNSTR} MOV 2(SP),RO SRESTORE THE DEF POINTER, 
3445 914366 112002 MOVB (RO) ORZ IGET TWE VARIABLE FROM THE DEF, 
3446 914373 180452 amy ERRAGL 

3447 016372 000302 SWAB R2 

3448 014374 152802 BSB (RO) O)RZ 

3449 034376 361502 ado (RS), R2 

3450 014409 322227 177777 CMP (R2)6,8,SVAR yIF THE DEF VARIABLE IS NUMERIC AND 
3454 014404 204316 BNE ERRMXY STHE VALUE ISNT THEN JTS AN FRROR, 
3452 024406 326227 Ba0002 177777 CMP 24R2) peer yIF THE VAR JSNT A STRING SCALAR 
3453 024414 301401 BEQ 1o4 

3454 914416 211202 MoV (R2),K2 STHEN 00 THIS, 

3455 914428 011203 MOV (R27, KS JR3 NOW CONTAINS THE OLD VALUE, 
3456 9144422 012612 MOV (SP), (R2) 330R?) NOW CONTAINS THE NEW VALUE, 
3457 314424 310326 MOV RS, (SP) s¢SP) NOW CONTAINS THE 9L0 VALUE, 
3458 914426 319246 MoV R2,0(SP) STOP(STK) 1S A TEMP FOR VAR AQORESS, 
3459 944430 042202 MOV (RZ), R2 *RE “OW CONTAINS THE NEW VALUE, 
3468 014432 385202 INC R2 

3464 314434 202442 Bea FNNEWNL FBRANCH IF THE NEW VALUE JS “ULL, 
3462 334436 905203 INC RS 

3463 314449 301004 BNE FNOLNN WBRANCH IF THE OLO VALUE IS “ONNULL, 
3464 924442 116622 300001 “Ove fp en id JOLD VALVE IS NULL, NEW TS NOT, SOI 
3465 934446 112642 Move (SP), 6R2) IMAKE AN ABS BACKPTR TO THE VAR, 
3466 944459 Gpa4se BR FNREPL, 1(THE NEW VALUE IS NOW PROTECTED) 
34607 944452 112322 FNOLNN) MOVE (RS) 4) (R204 OLO0 ANO NEW ARE BOTW NONNULL SO! 
3468 024454 111332 Move CRI), §R2) sPUT OLD BACKPTR INTO THE NEW VALUE, 
3409 934456 162783 see002 sys #2 RS 

3478 034462 985726 FNNEWNLITSY (SP )6 1GET RIO OF THE TEMP, 

3472 324464 319682 MOV SP,R2 

3472 344466 205203 TNC RS 

3473 924478 301404 BE FNREP|, ' (CHECK NULL STRING]) 

3474 9144472 aea3e2 Swas Re SET THE BACKPTR OF THE OLD VALUE 
3475 924474 «119223 MOVE RR] KRTI% TO ITS CURRENT STACK ADMRESS, 
3476 314476 480302 SWAB R2 

3477 914500 110213 “Ove R2,6R3) 

3478 1 ENOC 

3479 

3488 914502 121927 000245 FNREPLE Cure (RB), # Comma 

3464 014526 001907 BNE FNNOCOM 

3482 914519 122922 cs ue t RL le 

3483 014512 082672 BE FNSWAP 

3484 034514 080167 173372 ERRAGL} UMP ERRARG aye 
3485 314528 900004 ERRUFN| LOT 

3486 vUFNOF «SLONGER 

3487) 314522 043125 216 vASCIT (UFNS 

3488 ,ENOC 


BASICL MACX14 VO2L 22eMARe73 45944 PAGE 44034 


3489 tIFOF «= SLONGER 
3490 vASCIE # UNDEFINED FUNCTION 
3492 ,ENOC 

3492 314525 rrr) »BYTE 2 

3493 1 EVEN 

3494 914526 121927 990237 FNNOCOMICMPB (RO), #,RPAR 
3495 914532 3801370 BNE ERRAGL 

3496 814534 310046 MoV RO, 0(SP) 
3497 344536 122021 cups (ROIS CRI DS 
3498 914549 984365 BNE ERRAGS 

3499 324542 122027 690254 cMPa (RB) O,4,E0 
3508 214546 204362 BNE ERRAGL 

3504 314558 019146 MOV RL, e( SP) 
3502 914552 319801 MOV RB,RL 

3503 814554 004767 174622 wSR PC, EVAL 
3504 314560 183402 acs 106 — 
3505 314562 283003 CLR RJ * 
3506 814564 300401 BR 164 

3507 814566 012603 MOV (SP)0,R3 
3508 914578 121127 aea203, cure (RO), # EOL, 
3509 314574 081224 BNE ERRSXA 

3518 814576 312604 MOV (SP) o,R2 
3511 314000 12608 MOY (SP) o,RO 
3542 924682 114946 FNRLUPT MOVE =4RBVee(SP) 
3913 314004 114966 sacee1 “ove w(RBIGLCSP) 
3514 914618 912602 MOV (SP)o,R2 
3515 214612 761502 apo (R5),R2 
3516 

3517 1IFNOF SNOSTK 

3518 914614 «324227 177777 CMP (R2),8,SVAR 
3519 «214620 281426 BE0 FNRSTA 

3520 ,ENDC 

3521 

3522 914622 622227 177775 Cup (R2)o)#, SCALAR 
3523 344626 382401 BEQ -* 64 

3524 814638 211202 MOV (R2),R2 
3525 814632 412662 298002 MOV (SP) ee 20R2) 
3526 334636 312612 MOV (SP) 4, ¢R2) 
3927 314649 «390426 BR FNCHK 

3528 914642 3032612 FNRSSCI MOV (SP)6)(R2) - 
3529) 9246044 «910646 MOV RO, =(SP) 
3538 344646 031208 MoV (RZ), KO 
3531 314659 «161502 SUB (R5),R2 
3532 914652 995222 INC R2 

3533 

3534 +1FNOF SNOSTH . 
3535 314654 «300411 aR FNRCOM 

3536 314656 «305722 FNRSTR} TST (R2)6 

3537 814668 826227 opeee2 177777 CMP 2ER2) #04 
3538 314666 981765 BEO FNRSSG 

3539 914679 «81f202 MOV (RQ) ,R2 
3540 914672 312612 MOV (SP) 4, (R2) OHS 
3541 914074 «310046 MOV RO, = (SP) 
3542 214676 «aas2e0 MOV (RZ), KO 

3543 1 ENDC 


Ne 
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3544 
3545 
3346 
3547 
3548 
3549 
3550 
3554 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3564 
3562 
3563 
3504 
3565 
3360 
35907 


BASICL 


3568 
3569 
3578 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3589 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3598 
3592 
3592 
3593 
3594 
3595 
3596 
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914709 
814702 
814704 
314786 
314710 
324712 
044714 
014716 
014722 


614724 
014726 
614730 
044732 
814736 
044748 
044744 


014759 


MACKIL 


014754 
044756 
014769 
014762 
814766 
9147798 
844774 
815000 
845002 
315804 
915006 
915018 
615014 
815016 
915020 
015924 
915926 
015030 
315032 


ve2s 


005200 
001404 
280302 
110228 
980302 
110228 
812608 
124827 
081327 


303703 
704428 
910346 
928327 
201002 
880167 
090167 


800167 


VO2i 


942602 
885716 
601423 
305765 
apig2d 
316546 
004467 
3o0e0a6 
016060 
915966 
900410 
995765 
301426 
365726 
204467 
3808006 
915066 
380244 
208132 


22eMARe73 


888255 


477777 
175754 
176212 


175222 


22aMAR273 


200048 


300842 
0e0114 


888940 


080078 


15042 PAGE 44015 


FurCom} it 


SWAB 
MOVE 
Swas 
MOVE 
FNRSNULIMOV 
FNCHK} GMPB 
BNE 


+p FNOF 
ts 
cra) 
Mov 
CMP 
BNE 
uae 
JMP 
sENDC 


FNNUMERS UMP 
yEOT 


15141 PAGE 45 


aH eee eee ee 


TxuPy MOV 


FIXTST? TST 


FIXCL2t CL2 
FIXRET! JMP 


Ro 

FNRSNUL, 

Re 

RZ, (ROS 

RZ 

R2,(RO)> 
(SP), RB 
ORO), #,LPAR 
FNRLUP 


SNOSTH 

RS 

FNNUMER 

R3,0(SP) 

RS, #177777 ICHECK NULL STRING 


OPRATOR 


SOURCE FILE #6 


Rocce ccwcewen seme wewe song censcnnecennsennececsoces 


SUBROUTINE FI xyp! CALLED BY JSR PC 
: ¥ MATCHES TYPES OF 3¢SP),2¢SP) AND FACS(R5),FAC2(R9) 


RB,RL UNUSED 

R2 DESTROYED 

R3,R4 UNUSED 

RS MUST POI"? TO USER AREA 

SP GOES NO EEPER AFTER JSR 
CSP) R2 
(SP) 
FUXTST 
FACL(R5) 
FIXRET CONT CODESSNONZERO MEANS FLOATING, 
FAC2Z(R5),0¢SP) peaee 
4, FPPSAV 
SIR 
POP 
FPPRES 
FUXCLS 
FACA(R5) 
FUXRET }CONT CODES24 MEANS INTEGER, 
(SP)e Joeee 
R4, FPPSAV 
SIR 
FPPRES 

COND CODESSONZERD MEANS FLOATING, 

CR2) 


AT6 


247 
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3597 
3598 
3399 
3oow 
360% 
3oo2 
3oas 
3604 
3605 
3606 
3007 
3608 
3009 
3618 
3641 
3612 
3oi3 
3ou4 
3015 


BASICL 


3616 
3617 
3618 
3019 
3628 
3622 
3oz2 
3623 
3024 
3625 
3626 
3627 
3628 
3629 
3038 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 


MACX1L 


845034 
815036 
815049 
815042 
815044 
015046 
815259 
015054 
915856 
013060 
315962 
815064 


MACXI1 


215066 
015072 
215276 
15192 
315126 
815112 


915114 
015328 
025124 
845138 
315134 
845140 


yaad 


112102 
190407 
880302 
152102 
064502 
822208 
82eg27 
103402 
880264 
880207 
aegeds 
300207 


Ve2i 


246500 
916504 
816502 
316503 
916546 
ao0204 


240065 
320165 
828265 
219365 
12665 
980134 


22aMARe7S 


477775 


22rmMaRe73 


080044 
O2OB46 
289058 
8e0052 
680054 


900844 
980046 
800858 
890052 
809054 


45042 PAGE 46 


| rece qennevcwccctaucseunegooneeuseacaseseccacsessecs 

J} SUBROUTINE (FLINE® CALLEO BY JSP PC 

5 FINOS THE AQDRESS OF TWE LINE NO 

t] REFERENCED BY (R1) IN R2, 

! IF THE SYMBOL YABLE REFERENCE 1S NOT A LINE “OQ, 
t SETS CARPY, OTHERWISE, THE CARRY JS CLEAR, 
FLINEL MOVE (RL) o,R2 


BM} FLE 
SWAB R2 
e1sB (ROO yR2 
ADO (RS) ,R2 
MOV (R2)o,RB 
CMP RB, #, SCALAR 
BL0 FLX 

FLEN Sec 
RTS PC 

FLXt CLC 
RTS PC 


2G 
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le cwwc geen gece ecw enawene essere sewn t ences es cen gecccnneeces 


§  ROYVINE 'FPPRES! CALLED IN POLISH MODE 
, RESTORES RB THRY R4 SAVED SY FPPSAV 
' AND RETURNS IN NORMAL EXEC MODE 
FPPRES} MOV RBSAVE(RS) , RO 

MOV RISAVECRS), RY 

MOV RZSAVE(RS) ,R2 

MOV RESAVE(RS) AS 

MOV R4SAVE(RS) 2 (SP) 

RTS R4 
Je rewececeseccrce seer ences enmswcecewe scene ecesenccccsecccecce 
} ROUTINE ‘Fppsay? CALLED BY JSR RG 
} SAVES RQ THRU R4, AND RETURNS IN 
4 POLISH MNOE 
FPPSAVI MOV RB,ROSAVE (RS) 

MoV RL RAIGAVE(RS) 

MOV R2,RZSAVE(RS) 

MOV RS,RSSAVE(RS) 

MOV (SP) e,R4SAVE(RS) 

MP a(R4)e HENTER POLISH MODE 
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3639 
3o4g 
3044 
3042 
3043 
3044 
3645 
3046 
3047 
3048 
3649 
3658 
3654 
3052 
3653 
3654 
3055 
3656 
3057 
3058 
3659 
3069 
3062 
3662 
3603 
3064 
3665 
3066 
3067 
3668 
3069 
36708 
3671 
3672 
3673 
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3674 
3675 
3676 
3077 
3078 
3679 
3080 
3681 
3082 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3692 
3091 
3692 
3693 
3694 
3695 
3696 
3097 
3698 
3699 
3708 
3781 
3702 
3783 
3704 
3785 
3796 
3707 
3708 
37209 
3748 
3712 
3712 
3713 
3714 
3748 
3716 
3747 
3718 
3719 
3728 


MACX11 


915142 
815146 
915158 
815154 
035168 
925162 
015166 
015179 
815174 
835376 
015209 
815202 
815286 
945218 
015214 
815216 
815220 
815222 
015224 
8145226 


MACX11 


8145238 
845232 
915236 
835240 
845244 
845246 
015250 
815252 
815256 
6152608 
915264 
015266 
615278 
915272 
315274 
015380 
815302 
915304 
915306 
015312 
815316 
015324 


315326 
615332 
315340 
315342 
215356 
015352 
915356 


015360 
815362 


yeas 


032783 
980402 
212703 
622702 
821246 
012732 
260183 
O21362 
682422 
113380 
995243 
@21362 
181422 
816125 
912612 
000242 
988207 
212622 
900261 
200207 


voes 


910246 
204767 
183405 
816132 
203011 
642602 
080207 
916128 
201423 
885064 
300261 
290767 
010046 
919208 
884767 
183001 
300008 
12608 
205064 
1146582 
12772 
000758 


116582 
232772 
281983 
#12772 
280002 
084767 
888725 


177560 
177558 


22eMAR@73 15141 = PAGE 48 
' 
3 GETABYY ive de @ GET BYTE QUT OF RING BUFFER USING 
§ GET POINTER 2 (R2), 
’ 
} CALLE @CBUFF, HOR, BASEI,RL 
J #CBASE OFFSET OF GET PYR,J,R3 
H JSR PC, GETBYT 
1 
J} USES RBARLAR2,RS 
1 
} RETURN CHAR, IN RBy 
so fcf BIY ISy CLR UF CHAR’, OBYAINED 
’ SEY IF BUFF’ WAS EMPTY {NO CHAR) 
' 
890004 GETABYTIMOV SBGETL,RS 
@R GETBYT 
890886 GEP2BYTIMOV WBGETZ,RS 
177776 GETBYT} MOV #PS,Re STATUS 
MOV (R2),0(SP) 
890340 MOV #PRI, (RZ) JHIGHEST PRIORITY 
aoo RLARS 
889818 CMP CRS), BPUT IRL) JANYTHING IN BUFF? 
BEO SUPEMP 
“ove O(R3)O,RA 1GET BYTE 
tN @(R3) sPT, TO NEXT BYTE 
seove2 cup (R3),BENOCRL)  fsHRAP AROUND? 
BLOS NOWRP 
090009 MOV BSTRIGRLIGCRS) GPT, TA NEXT BYTE TO GET 
NOWRP} MOV (SP) 0) (R2) HSTATUS BACK 
cue sSIGNAL SYCCESS 
RTS Pg 
BUFEMP) MOV (SP) o, (R2) ISTATUS BACK 
SEC sSHOW FAILURE 
RTS Pg 
AS O 
22eMARe73 15144 PAGE 49 
H] Pe re rr 
' 
} GEYCHAR @ RETURN A GHAR, IN QB OR WAIT UNTIL You CAN 
5 
} CALL? #CBUFF, HOUR, BASEI,RI 
U JSR PC, GETCHAR 
’ 
) USES RS. (RB-R1,R2) 
' 
J} RETURNS CHAR, IN RO 
) IF PAPER TAPE READER EOY FOUND, EXIT TO fREADY!, 
' 
GETCHARIMOV R2,e(SP) 
477784 GETCHIE JSR PC, GefipyT 
ecs NOCHAR JNOTHING THERE YET 
090012 MOV BFSPEG(R1),R2 CHECK IF READER STOPPED 
BGT XGHAR 38 OR @ IS OK, BRANCH IF CHAP 
GETX! = MOV (SP) 4) R2 
‘ RS PC 
goee12 NOCHARY MOV BFSPEC(RL), RO I ICHESK EOF OR EXTRA CHAR 
BEO REENAB 
egen12 CUR BFSPEC(RI) 
Sec 
BR GETX 
XCWAR} MOV RB,e(SP) iPUSH 9LO CHAR 
MOV R2,RO IPOSITION NEXT 
003314 JSR PC,PUTBYT 
Bcc 144 sMAKE SURE IT GOT IN 
WALT 
MOV (SP) e,RO HGET BACK OLO CHAR 
989012 CLR BFSPEG(R1) 
980077 MOVE TOEV(RS) ,R2 
088101 915369 “OV MLBL,OLTAGCR2) sRE*ENABLE INPUT DEVICE 
BR GEYX y tCARRY [S CLEAR) 
' RESENABLE PROM A OGAD START 
080877 REENABL MOVE TOEV(RS),R2 
eeg4ee8 915369 BIT 80040600,@, TAB(R2) ICHECK BUSY SIT 
BNE GCWAIT 
080121 815360 MOV W104, O1TABCR2) 
GCWAITE WAST SWALT FOR AN INTERRUPT 
200524 JSR PG, TOWALT JWASTE TIME 
8R GEYCHL 
’ TABLE OF INPUT DEVICE STATUS REGISTERS 
1YaBe =, WORD TKS 
+WORD = PRS 
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3724 Perce gnccsenwvecsccceewegbenesnnedecelenccenegecececezucces 


3722 1 IGETVvaARe SUBROUTINE 

3723 ' TRES SUBROUTINE READS A VARIABLE NAME OR 
3724 ' AN ARWAY ELEMENT, AND AQORESSES THAT 
3725 ’ VARIABLE JN CORE, SO THAT A SUBSEQUENT /STOVARE 
3726 ’ CALL WILL STORE THE FAC IN TWE VARTABLE, 
3727 ’ OESTROYS FACi ANO FaCc2,, 

3728 ’ CALLEQ BY SR PC,GETVAR 

3729 ' Ri POINTS TO THE CODE NAMING THE VARIABLE 
3738 ! 

3731 815364 919265 sgen22 GEPVARI MoV R2,VARSAV(RS) 

3732 949379 812702 477777 MOV wad, Re 

3733 015374 930265 so0024 MOV R2,SSYSAV(R5) 

3734 915408 219265 ceeoz6 MOV R2,SSZSAV(R5) 

3735 915404 421127 290255 CMPB (RL) #,LPAR 

3736 015418 302043 ONE NOSUBS 

3737 935412 985201 INC RA 

arce 015414 804767 173762 vSR PO,EVAL 

373 

3748 wSFNOF SNOSTH 

3744 015428 193442 , acs ERRMXS 

3742 ,ENDC 

3743 . 

3744 «045422 904767 390240 vse PC, INT 

3745 «915426 6305765 oo0e40 1ST FACACRS) 

3746 «035432 001057 BNE ERRSS1 

3747 815434 016565 oee042 ope024 MOV FAC2CKS) ,SSASAV(A5) 

3748 323442 190433 amy ERRSSS 

3749 «9159444 112102 Move (Rep RZ 

3758 915446 420227 008237 cMPe R2,8,KPAR 

375% 915452 oei422 SEO NOSUBS 

3752 045454 120227 Be0243 CMPB R2,8, COMMA 

3753 015468 oB1920 BNE ERRSXS 

are 845462 084767 173724 JSR PC, EVAL 

3 

3756 vIFNOF = SNOSTH 

3757 815466 183417 acs ERRMXS 

3758 ,ENOC 

3759 

3768 015479 084767 080108 Jsr pS, INT 

3761 315474 395765 pense TST FACL(RS) 

3762 915508 281014 BNE ERRSSL 

3763 915502 216565 oeee42 sa0026 MOV FAC2(R5),SS2SAV(R5) 

3764 915519 190419 amy ERRSS1 

3765 015512 122127 900237 CMPB (RL) 6) @,RPAR 

3766 315536. 004903 BNE ERRSXS 

3767 015528 980207 NOSUBS} RTS PC 

3768 915522 080367 175816 ERRSX3} JMP ERRSKS 

3769 

3778 vIFNOF = SNOSTK — 
3771 015526 200167 175200 ERRMX34) UMP ERRMIX AS a 
3772 ,ENOC 

3773 

3774 015532 000167 174360 ERRSSL) UMP ERRSSZ 

3775 
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3776 Je cwwwnwaccwe cn nncc er ecwen cee cece s ene cuceseeesececncesccece 


3777 1 

3778 J ENITTBF © INIT, BUFFER HORS, 

3779 ! 

3788 } GALLI Mov #CWOR, ADDR, IJ¢R2 

3784 ' JSR PC, INU TOF 

3782 ! 

3783 } YSES R2aR3 

3784 H 

ve 1 LEAVES R3 POINTING To WARD AFTER LAST IN BUFF, HOR, 
3786 ' 

3787 915536 6912283 INTTBFE MoV (RZ) 41 RS JOUFF, START ADOR, 
3788 315549 295722 TST (R2)+ yPY, 19 3GETL 
3789 315542 340322 MOV R3,(RZ)¢ 

3798 815544 395722 1st (R2)4 yPY, TO BPUT 
3791 845546 210322 MOV RS, (RZ) 

3792 935559 385022 : CLR (R2)¢ sGFSPEC 

3793 945552 90207 RTS PC 

3794 

3795 

3796 

3797 

3798 eee ee. a a ene ane 
3799 ’ 

3828 J INTYSCrR © SCRATCH USER AREA 

3804 f 

3802 ) CALLE JSR PG, INITSCR 

3883 ! 

3804 ) USES RO 

3605 1 

3806 015554 216509 o90016 INIETSCRIMQV CODECKS) RA 

3807 915569 912729 sage2s MOV 8, EOF, (RODe 

3698 345564 219015 MOV RB, RS) 

3809 915566 230965 og0814 MOV. RB,LOFREEGRS) 

3810 915572 300207 RTS PC 


3811 


255 
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3812 Peeerererrerrrr tree ee 


3813 }) SUBROUTINE ‘INTE CALLED BY JSR PC 

3ei4 ' COMPUTES INT(FAC), CONVERTING THE RESULT 
3615 ' TO A LeWORD INTEGER, JF POSSIBLE 

3816 015574 716520 999048 INtt MOV FAGA(HS) RO HGET HIGH OROER WORD IN PO 
3817 915688 C1452 BE0 INTRTS JALREADY AN INTEGER 

3818 315602 384567 203204 uSRk RS, SAVREG SAVE REGISTERS 

3019 015606 419002 MOV RO,RL 

3828 015610 942708 190177 BIC #390177,RO sEXTRACT EXPONENT 

3821 015614 220927 240209 cup RY, #40200 sCWECK ABS VALUE < 4 

3822 015628 123473 BLO INT? 

3623 915022 v2ee27 046008 CMP Re, a4oces }CHECK INTEGER BY TRUNCATION 
3824 915626 194937 BH INTRTS VYES, RETURN 

3825 015638 205902 CLR Re 

3826 815632 162728 945908 sys 843600,R0 HCMECK MORE THAN 15 BITS INTEGER 
3827 3156036 883834 act INTS HYES, PRODUCE FLT INT ANSWER 
3626 315648 280301 SWAB Ry 

3629 6135642 195901 CLRB RY 

3838 045644 156581 290045 8138 FACZ#1(R5),R1  7R4 TS 16 BITS OF MANTISSA 
3834 035659 052701 180080 Bis #200000,R2 sSET HIDDEN @4T 

3832 915654 o9g24s CLC 

3833 615656 906002 ROR Ra sGET 15 BITS OF ABSOLUTE VALVE 
3834 915669 289708 Ys? Re jTEST ALREADY INTEGER 

3835 819662 282925 8GE INTSA bYES 

3836 945664 286201 INf a1 ASR Ry PSWIFT MANTISSA 4 RIGHT 

3837 815686 995582 aoc Re JADU CARRY BIT TO R2 

3638 615678 9627089 s09280 400 #200,80 pINCREMENT EXPONENT 

3839 915674 202773 BLT INTL aLCOP UNTIL, DONE 

3840 815676 208765 900048 INftat TST FACL(RS) HORIGINAL NUMBER NEG 

3844 315702 190005 BPL INT2 NO 

3042 015704 305782 TST R2 pANY BITS ZEROED? 

3843 315786 001402 BE0 INTSB 

3644 915719 905201 INC RY SAOJUST FOR NEGATIVE 

3645 815712 192447 avs INTS sOVERFLOW 

3846 915714 905404 INT181 NEG Ri 

3847 915716 310165 900042 INT21 | MOV RL FACZ(RD) 

3848 315722 295965 o02048 INf2A1 CLR FACL(R5) 

3849 015726 209297 IN@RTS| RTS °¢ 

3058 

3854 215739 929927 o92208 IN? St CMP RO, #2200 SCHECK DONE 

3852 815734 292005 BGE INT6 HYES 

3853 915736 990264 Sec }SET CARRY BIT 

3854 045749 806102 ROL R2 }CREATE PATTERN OF BITS YO CLEAR 
3855 915742 962789 se0200 400 #200,K0 

3856 613746 696778 BR INTS 

3857 915759 216500 998042 INf6! = MOV FAC2(K5) RO sSAVE OLD FAC2 IN CASE NEG ARG 
3858 015754 240265 a90042 arc RZ, FACZ(RD) HCLEAR BITS 

3859 815760 005765 290048 TST FACACKS) sCHECK NEG ARG 

3868 815764 1903628 BPL INTRTS INO, DONE 

3861 015766 230200 BIT R2,R@ {CHECK EXACT INTEGER ALREADY es 
3862 815770 991756 geo INTRTS YES, RETURN Bs 4 
3863 315772 904467 ag00006 JSR R4,SPOLSH }NO, MUST SUBTRACT 1 

3864 215776 816846 ;WORD = PUSH sPUSH FAC 

3865 916008 216972 ,WORO = PUSHY JPUSH FLOATING 4 

3866 816002 20000086 ,WORD = SSBR sSUBTRACT 
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pt dbl ereuce +WORD = POP. 1POP ANSWER TO Fac 

OL WORO INTRTS 4ANO RETURN (OUT OF WH MADE 
3669 016019 995701 intvy ts? Ry JABSCARG) < o aaa 
3678 016012 100403 emt INTS 7 
3871 016014 905965 aonese CLR FAC2¢HS) VIF # THEN ANS IS 2 
3872 016828 200749 aR INT2A 
3873 316022 312765 477777 goeg4ee INT8) MOV #477777, FACZCRS) SIF © THEN ANS IS ef 
3874 916038 200734 BR INT2A 
3875 016932 512765 143600 ooes4e INP9! MOV 9443608, FAC1(R5) 
3876 016048 995965 2308042 CLR FAC2(K5) 
3877 016044 900730 BR INTRTS 
3878 . 
3879 316046 316546 J98042 PUSH! MOV FAC2(K5),€(SP) 
3880 016052 216546 200040 MOV FACA(HS),9(SP) 
3881 316056 300134 UMP egRaye 
3882 016968 212665 00040 Pops MOV (SP)+)FACLCRS) 
3883 316064 712665 200042 MOV (SP)opFACZ(R5) 
3884 216078 0801354 vMP acRaye 
3885 916072 205946 PUSHIt CLR =(SP) 
3886 316074 412746 940200 MOV #40200, °(SP) 
3887 316180 080134 UMP eC Rae 
3888 
3889 
3890 
3891 
3892 
3893 | pewnccnecgecccwee enc scwng conn geee conn ewnetecerccecoceenecces 
3094 ) i 7 —S~- : 
sone } LoWALT © WASTE TIME TILL NEXT INTERRUPT 

H 

3897 A R Cy loWwAlr 
3898 ; CALLE VS PC, Towal 
3699 916102 085265 390079 TOWAITO INC RNOCTIRS) 
3908 916196 105765 900126 TST8 CNCFLGCRS) 
3901 316122 204402 sea WIRE? 
3982 316114 980167 163824 ump READY 
3983 316120 285737 300050 wrreTy TS? onsg HCHECK WAIT LOOP ADDR 
3904 316124 304402 BE 1*6 
3985 316126 080137 300850 vMP e050 WSPECIAL WAIT ROUTINE 
ares 816132 280207 RTS PG 


BASICL 


3908 
3909 
3910 
3914 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3929 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3938 
3932 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3948 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3952 
3952 
3953 
3954 
3955 
3956 
3957 
39568 
3959 
3968 
3961 
3962 


BASICL 
3963 


MACX11 


816134 
816149 
016144 
916158 
816152 
016154 
916156 
016169 
816164 
816170 
016172 
816174 
016200 
816202 
816204 
816286 
816212 
016214 
916216 
846229 
016222 
316224 
816250 
816232 
016236 


016248 


316243 
016245 


816246 


916258 
926252 


MACX11 


Vee 


004567 
116500 
916904 
005720 
281902 
960583 
311104 
946502 
320265 
081404 
285382 
0846767 
103004 
290207 
110812 
284367 
990752 
080207 
488762 
200765 
988202 
820265 
493762 
984167 

B15 


952114 


g15 
086 


860744 


890102 
823734 


VO2a 


22eMAR273 


002732 
090877 
3162590 


099028 
098028 


177838 


172378 


290816 


oas2e6 
12 


114 


o12 


22aMARe73 


1504, PAGE 53 


i * ¢ 7 . . . 
Jw cncwenereweccrccwenenn gi nnntocns ccc seweqeeesececcnesececens 


5 
LINGEY » EDLY A LINE INTq LINE BUFFER USING GETCHaAR 


CALLE USER AREA BASE INTo R5 
JSR PC LINGET 


AN 


art er fet ANO <RUB QUT? FoR 8U8 oUT AND <ALT MQ0E> 
"eur FOR GINE DELETE, <CR> AS LINE TERMINATOR, 


THROWS AWAY ALL OTHERS BELOW ASCII 40 AND ABOVE 


U 
U 
U 
U 
J 
) PRESERVES ALL REGISTERS 
U 
U 
U 
' 
J 
U 


ASCIL 137; 
LINGETI VSR R35, SAVREG 
LINAT = -MOVB 1DEV(K5), Ra 
MOV TAB3(RE) RE 
TST RO 
BNE LINEIN 
a00 AD5,RL 
MOV CRY) RY 
LINEIN} MOV LINECKS) RO 
LINRUBY CMP R2,LINE(RD) 
80 OOCHAR 
vec R2 
OOCHAR: VSR PG, GETCHAR 
acc GOTONE 
RTS PC 
GOTONE! MOVB RB, (RZ) 
JSR RS, CHKCHR 
QR LINA 
RTs eC 
BR GUNRUS 
BR DOCHAR 
INC R2 
CMP R2, CODE (RS) 
8,0 OOCHAR 
JSR Ri MSGERR 
+BYTE = CRALF 
,IFNOF SLONGER 
sASCIT UTE 
1ENOC 
IFOF  SLONGER 
sASCILT LINE TOO LONG?! 
sENOC 
sBYTE = CRALF 
iBYTE @ 
EVEN 
aR GINEIN 
) 
TABS! 
. KBHO 
vIFNOF SNOPTP 
. PREFHO 
,ENOC 
15144 PAGE 53e4 


HSAVE PEGS, 
CURR, INPUT DEV, CODE 
170 SELECT DEV, 


USER RASE 
tHAVE USER BUFF, HOR, 
sO0N/T RUB OUT TOO MUCH 


sOON‘T COME SACK ‘TILL YOU GOT ONE 


VINDICATE INCOMPLETE LINE «(CARRY SET) 
PUT HER IN 

SRETURN EXEC, ONE OF NEXY FIVE LOCS, 
VIF LINE DELETE 

HOONE (<CRD) (CARRY CLEAR) 


HMEANINGLESS CHARS, 
$G00D CHAR; 
HCHECK LINE SPACE OVERFLOW 


2b 


2S7 


BASIC. 


3964 
3965 
3966 
3967 
39608 
3969 
3978 
3972 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3988 
3983 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3999 
3993, 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4009 


BASICL 


4204 
4002 
4003 
4004 
4005 
4006 
4087 
4006 
4009 
4018 
4014 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4028 
4024 
4622 
4923 
4024 
4025 
4026 
4027 
4028 
4929 
4030 
4032 
4032 
4033 
40354 
4035 
4036 
4037 
4038 
4039 
4048 
4041 
4042 
4043 
4044 
4045 
4246 
4047 
4048 
4049 
40528 
4052 
4052 
4053 
4054 
4¢55 


MACKAY 


016254 
816256 
016262 
816266 
826272 
046274 
016308 
816302 
916304 
916306 
816312 
016314 
816329 
046322 
816326 
816358 
016332 
816334 
016349 
816344 
016358 
016354 
816356 
846368 
816364 
816366 
816372 
816374 
816402 
816406 


MACX12 


016410 
016414 
016416 
016422 
316424 
316426 
016430 


016432 


816436 
816442 
016444 
816446 
016459 
016454 
816456 
016468 
016462 
016466 
016479 
816472 
016474 
316506 
016502 
816506 
016518 
916514 
016516 
316520 
316524 
16526 
816532 
316534 
216548 
316542 
216544 
316546 
016550 
916552 
016554 


vo2s 


395800 
305065 
005965 
121327 
001404 
12327 
881202 
005100 
205205 
122327 
001416 
124327 
001404 
122327 
981406 
oge207 
295203 
112365 
122305 
122365 
112365 
305708 
oda. 
005765 
881003 
005465 
000403 
362765 
862716 
088207 


vee. 


021227 
281403 
385762 
180037 
10246 
320446 
318346 


204767 


212703 
311604 
190404 
810304 
004767 
812603 
612604 
842602 
020862 
1814843 
285723 
190427 
895762 
188436 
820362 
181033 
946246 
885216 
818346 
012746 
806383 
286366 
193082 
866603 
205316 
203370 
322626 
285726 
260500 
805220 
306328 


22eMAR*73 15144 PAGE 54 
lqccwaccccqecc econo cenwcgecepcccesocesooercorsecee 
d LIPEVALS SUBROUTINE 
' CALLEQ BY JSR PC LITEVAL 
’ RL POINTS TO THE COLE 
' THES SUBROUTINE 1S CALLED TO EVALUATE A 
I LUTERAL IN THE CODE, 
LIPTEVALICLR RO 
290040 CLR FACa(KS) 
090942 CLR FAC2¢KS) 
oge252 CMPB (R3),#, PLUS 
B8EO LEVPLYS 
890254 CmMPB (R3),8, MINUS 
BNE LEVLIT 
com RO 
LEVPLUS? INC RS 
090575 GEVLIT) CMPB CRS) eM, LEITS 
sca LEVALT 
990374 cMPB e(R3) eR FLIT 
BEG LEVFLT 
088376 cues (RI) ope, LLIT2 
8E0 LEV2LT 
RTS Pg 
LEVFLTY INC RS 
000841 MOVE (RB) op FACLeL(R5) 
open4e Move (H3)o,FACLCRS) 
399043 LEV2LT} MOVe (RE) op FACZeL (RS) 
098042 LEvaLTi ove (R39 %pFACZ(R5) 
Ts? R@ 
BeQ LEVPOS 
908040 TST FACA(HS) 
BNE LEVFNEG 
090042 NEG FAC2(R5) 
OR LEVPOS 
199002 980040 LEVFNEGIAD0 #100000,F ACLCRS) 
egge02 LEVPOS} ADO #2,(¢SP) 
RTS PC 
= 
ast 
22emMARe7S 15441 PAGE 55 
Jreccceces 2 : > 
3 SUBROUTINE fLOCGET! CALLED BY JSR PC 
' GETS LOC OF ELEMENT IN ARRAy (CHECKS SUBSCRIPTS) 
' R®@ MUST CONTAIN SSL GETS DESTROYED 
' R4 UNUSED 
' RZ MUST PAI“T TO VAR GETS SET TO RESULT 
J RZ MUST CONTAIN SS2 GETS DESTROYED 
J R4@ UNUSED 
J R> MUST POINT TO USER AREA 
J SP GOES 7? DEEPER AFTER JSR 
177775 LOCGET! CMP (R2),8,SCALAR 
BEO LOCALOC 
200B04 rst 4(R2) 
BPL Locssi 
LOCALOCSMOV R2,0(SP) 
MOV R4,0(SP) 
“OV RS,e(SP) 
,IFNOF SNOSTH 
172558 uSR PC, ONPACK 
sENOC 
6oog12 MOV #12,R5 
MOV (SP),R4 
Buy .o4 
MoV RZ,RA 
174534 JSR PC,ALLOC 
MoV CSP) OyRS 
MoV (SP)o,R4 
MOV (SP) oeR2 
aeo0n4 Locssit CMP RB, 4(K2) 
BH ERRSSS 
tsT RS 
BmMy LOCNOZ 
890086 TSY 6¢R2) 
BMI ERRSSS 
888806 CMP R3,6(K2) 
BHI ERRSSS 
200004 MOV 44R2)ee(SP) jeoee 
INC (SP) te 8 
MOV RS,e(SP) je8 
980022 MOV #20, % (SP) te ® 
LOCLOOPTASL RS je 8 
880002 ASL 2(SP) Je © MYULTIPLY SS2 BY SSiMAX 
acc 146 te @ RESULT IN RI 
800004 aod 4CSP) ARS je @ 
oEc (SP) te @ 
act LOcLooP je® 
CMP (SP) 4, (SP)e te 8 
TST (SP)e Jeoee 
. aod RO, RA 2 9 
LOENO21 INC RO ; 
asl RO 
t}FNOF = SNOSTR 


BASICL 


4056 
4957 
4058 
4059 
4868 
4064 
462 
4063 
4004 
40605 
4266 
4067 
4068 
4069 
4978 
4072 
4072 
4073 
4074 


BASICL 


4075 
4076 
4077 
4078 
4a79 
4089 
4084 
4062 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4092 
4092 
4093 
4994 
4095 
4096 
4997 
4098 
4999 
4100 
4122 
4122 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4118 
411i 
4412 
4113 
4444 
4415 
4116 
4117 
4118 
4119 
4120 
4422 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 


MACXA1 


846556 
016562 


816564 
216566 
816572 
016574 
816576 


316680 


816683 


MACXL4 


816604 
916618 
816612 
016614 
916628 
816622 
916626 
816639 
916632 
916636 
016649 
816644 
316646 
816652 
916654 
016656 
016668 
016662 
316664 
816666 
816678 
016674 
916676 
016782 
8167284 
216710 
8146712 
816714 
616728 
616722 
816724 
816738 
816732 
316734 
816736 
816742 
016744 
316758 


316754 
816756 
316769 
316762 
016764 
016766 
016770 
316774 
316776 


veer 


224227 
901498 


386328 
816202 
860082 
300227 
aa0004 


347523 


voas 


916501 
112102 
202142 
120227 
301444 
120227 
601001 
380207 
122227 
163064 
042722 
940703 
262703 
310324 
112300 
190376 
120922 
881373 
112400 
180423 
284767 
380773 
124427 
061418 
122127 
884337 
112198 
862788 
806020 
060427 
362701 
200727 
111102 
100010 
120227 
801015 
384167 

045 
216754 
360725 
680302 
205201 
151192 
285301 
964502 
321227 
183763 
812720 


222MARe73 


477777 


e8eene2 


102 


22eMaARe73 


980B16 


990202 
oe0225 


090374 
177400 
164536 


aoeni2 
oeo2i2 
oo0262 


990208 


B8OR15 


oge225 


300530 
at2 


477775 
00154 


45144 PAGE 55-1 


cP (H2))#) SVAR 
8E0 4 

,ENDC 

ASL R@ 

MOV 2¢R2),R2 
ano RB, RZ 

RTS PC 


ERRSS31 LOT 
VIFNOF SGONGER 
sASCIT = \SOBN 
,ENOC 
VIFOF © SWONGER 
VASCIL ‘SUBSCRIPT OUT OF POUNDS! 
+ENOC 
1BYTE 2 
vEVEN 
£07 


15141 8 =PAaGE 56 


ete: : SOURCE FILE #7 
Peer tre Pe ie Pe eer eer 
SUBROUTINE ‘LSTPROG! CALLED BY JSR PC 
LISTS THE USER PROGRAM THROUGH /PUTCHAR? 
AQ © R4 DESTROYED 
R5 MUST POINT TO USER AREA 


' SP GOES 27 MEEPER AFTER VSR 
LSPPROGIMOV CODEC RS), RY 
LSTLOOPIMOVe (RY) + pR2 

BGE LSTPTR 


cMPa R2,#,E0L 
5EQ LSTEOL 
CMPB R2,8,60F 
BNE 84 

RTS PG 

CMPB R2,8, FIT 
BHIS LSTSPEC 


BIC #177400,R2 
MoV PC,RS 
LSTPC} ADD BKEYWOS@LSTPC RS 
LSTSRCHIMOV R3~R4 R4 1S START OF KEYWORD 
MOVB (R3)O,RS 
BPL 122 sL0OP TILL GET END KEYWORG 
CMPB RO,RZ JCOMPAPE VALUES 
BNE LSTSRCH 
USTKWOT MOVE (R47 49RD 
BM LSTCHK 
vSR PG, PUTCHAR 
BR LSTKWO 
LSTCHKY CMPB (RL) G8, NEXT 
#EQ LSTNEXT 
cMPB (RY) Op 8, EN 
BNE LSTLOOP 
LSTFNG OVE CRE) op RD 
A00 ete AMZ, RO 
WOR RO 
BR , &STCHAR 
LSTNEXT#A00 #13,R2 
8R LSTLOOP 
LSTEOLE MOVB CHAD RZ 
BPL LSTLIN 
cMPB R2, 8, £0F 
BNE LSYBSLH 
LSTCRLP ISR RL, MSGODEV 
1BYTE «= CRyLFy@ 
EVEN 
8R LSTLOOP 
LSTLING SWAB R2 
INC RL 
8188 (RY) RZ 
oEc RL 
aoo (RS) RZ 
CMP (R2),8, SCALAR 
BL0 LSTCREF 
LSTSSLNIMOV at\, RO 


260 


Zo 


yr | 
on 


BASICL 


4138 
4232 
4132 
4133 
4134 
4135 
4136 
4137 
4238 
4139 
4149 
aaa 
4242 
4243 
4u44 
4145 
4246 
4147 
4148 
aug 
4158 
4251 
4152 
4153 
4154 
4155 
4156 
4157 
4456 
4159 
4268 
4262 
4162 
4163 
4164 
4165 
4166 
4267 
4168 
4169 
4170 
4171 
4172 
4273 
4274 
4475 
4176 
4477 
4178 
4179 
4288 
4162 
4282 
4183 
4184 


BASICL 


4185 
4286 
4187 
4188 


MACXL4 


817802 
017906 
817918 
017014 
0179816 
817922 
017024 
817026 
017038 
817932 
817936 
817040 
917944 
817858 
017852 
817956 
817062 
817066 
027878 


047974: 


917109 
017184 
017110 
027114 
917128 
947222 
817124 
817126 
817152 
817134 
827136 
017149 
027144 
817159 
817152 
817156 
817162 
917164 
817178 
017174 
017202 
817286 
017212 
817214 
017228 
817224 
827230 
617232 


817236 
947242 


MACXA1 


017244 
917259 


Veer 


006767 
090728 
420227 
301425 
120227 
103426 
081412 
1121090 
001667 
204767 
380773 
105065 
122165 
one4n4 
122268 
422165 
0B5e65 
390410 
112165 
112165 
112165 
122165 
004767 
090367 
380302 
152102 
064582 
024227 
103050 
as2g2 
202405 
010265 
085965 
900414 
110265 
105865 
39a3e2 
110265 
183965 
862765 
004767 
042708 
290673 
116209 
004767 
116208 
oai4o2 
304767 


024227 
081324 


Vees 


012708 
380654 


22eMARe73 1594s 


094708 
990374 
890376 


091650 


800845 
990042 


o9en4s 
egees2 
390860 


900841 
380048 
000843 
ooeese 
090610 
177478 


477775 


988042 
900048 


990843 
apoge2 


ooon4e 
090041 
043600 aB004g 
080516 
990849 


998018 
994462 
060811 


084450 


477777 


22eMARe73 15849 


800844 


PAGE 5604 


LSPCHARS JSR 
BR 


LSPSPECICMPB 


ea 
CMPB 
BLO 
BEG 


UST TEXT SHOVE 


LSPILat 


LSPIL2I 
LSfILe) 


LStFLITIMOVe 


LSTFLBY 
LST IMP} 
LSTPTRY 


LSTLNOS 


LSTLNX! 


LSPVAR} 


“ove 
“Ove 
Move 
JSR 
uMP 
SWAB 
81SB 
A00 


PAGE 5602 
MOV 
BR 
sENOC 


PG,PUICHAR 
LSTLOOP 
R2,8,FUIT 
LSTFLIT 
R2e8,UL1T2 
GSTILG 

LOTILe 
CHL) o, RO 
LSTLOOP 

PG, PUTCHAR 
LSTTEXT 
FAC2¢1(R5) 
(RL)O,FACZCRS) 
QSTILB 

{RO} op FAC2]01 (RS) 
{REPO pPACZERS) 
FACACKS) 
LSTFLS 

(RL) Op FACLHL (RS) 
(RL) 6; FACL(RS) 
(RY) SeFACZe1 (RS) 
(RY) +e FACZURS) 
PG, NUMOUT 
LSTLOOP 

R2 

CRY) % RZ 
(RS), H2 
(R2),8, SCALAR 
LSTVAR 

(RQ) RZ 
LSTLNO 

RB, FAGZ(RS) 
FACL(RS) 
LSTLNKX 
R2,FAC2e1(R5) 
FAC2(HS) 

R2 

RZ, FACACRS) 
FACLOL(RS) 
#43600, F ACY (RS) 
PC, NUMOUT 

#8, R0 

LSTCHAR 
19(R2),RO 

PG, PUTCHAR 
LLCR2) RO 

1*6 

PG, PUTCHAR 


SNOSTK 
LST UMP 


SNOSTK 
(R2),8,SVAR 
LST IMP 


#1S, RO 
LSTCHAR 


Boa 


2-63 


BASICL 


4189 
41998 
Ma9d 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
42008 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
a2aa 
4212 
4ai3 
4234 
4245 
4216 
4247 
4216 
4249 
4228 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4249 
4241 
4242 
4243 


BASICL 


4244 
4245 
4246 
4247 
4248 
4249 
4258 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 
426% 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 


MACX1L2 


917252 
817256 
017260 
827264 
827270 
817272 


947274 


847277 


27308 
817304 
827306 
827312 
817316 
847328 
617324 
817326 
847330 
9173352 
B27334 
017336 
817342 
017344 
817346 
017350 
917352 
917354 
917356 
817366 
817362 
817366 


047378 
817374 
317376 


MACXA1 


017402 
917406 
817412 


847414 
B17446 
817420 
017422 
847424 
817426 
8174358 
8474352 
O17434 
817436 
017448 
917442 


yeas 


084767 
104443 
304767 
364767 
181406 
390804 


O5{523 


384767 
104372 
819965 
316609 
011222 
862702 
110023 
122323 
122223 
885308 
003375 
816680 
110813 
160883 
810600 
085728 
119043 
880308 
119043 
885303 
910366 
080207 


816528 
818803 
866608 


Ve2a 


862728 
920065 
080207 


818346 
810446 
306304 
096103 
386384 
286105 
962604 
885503 
062603 
386304 
286123 
088207 


22eMARe73 «15144 = PAGE: «57 
vTFNOF © SNOSTH 
J ecewcccwcrewcencceccccccs : 
J} SUBROUTINE IMAKESTR! CALLED BY JSR PC 
4 "MAKES A RASIC STRING FROM & STRING OF CHARACTERS 
’ R@ OESTROVEN 
) R44  UNUSFO 
’ R2 MUST POINT TO A WORD WHICH CONTAINS 3 LESS 
‘ THAN THE ADDRESS OF THE FIRS? CHARACTER 
f RS DESTROYED 
) R4@ UNUSED 
’ RS MUST POINT TO USER AREA 
' SP ON ENTRY BSP) MUST CONTAIN # CHARACTERS 
' ON EXI? (SP) CONTAINS POINTER TO THE STRING 
Opeii2 MAKESTRE JSR PG,MAKETRY sWELL NEW STRING FIT? 
BLOS MAKGOT HYES 
171722 JSR PC, ONPACK ING, GARBAGE COLLECT 
098198 SR PG MAKETRY HTRY AGAIN 
80S MAKGOT dFITS YHIS TIME 
ERRSOV! 107 
,IPNOF = SLONGER 
117 ASCII \SSON 
vENDC 
rSFOF = S$ L,ONGER 
:ASCIT «STRING STORAGE OVERFLOWS 
1 ENOC 
:BYTE 2 
1 EVEN 
op0064 MAKCHK} JSR PG, MAKETRY 
BHI ERRSOV 
989074 MAKGOTI MOV RO, HISTRCRS) SAVE NEW HIGH STRING ADDR 
090902 MOV 2¢SP),Ro sRa NOW CONTAINS # CHARS, 
MOV (RZ), RZ 
890R05 aoo #3,R2 §R2 “OW CONTAINS ADDRESS OF CHARS, 
MOVE RB, (RIVe IRS PUTS CHARACTERS IN 
CMPB CRS) SE (RID 6 
Move (R294) (R3) o> 
oec Ro 
BGT 184 
apone2 MOV 2(3P).RO 
Move RB»(RS) 
sus ROARS 
MOV SP,R@ 
TS? CRO)O 
MOVE RB, o(RS) 
SWAB Ro 
MOVB RO,a(KS) 
oec RS 
eeoge2 MOV R3,2(SP) 
RTS PG 
' SUBROUTINE To CHECK ROOM ENOUGH FoR STRING B67 
800074 MAKETRYIMOV HISTR(RS) (RO 
MOV RO,RS 
eoaues aod 4(SP))RO 
22eMARe7S «15142 = PAGE 5701 
090884 ano #4,RO 
GB0o12 CMP RO,HIFREE (RS) 
RTS PC 
yENOC 
J ecwwcnccwccewnqeeeeccceweccenscwcetenccesessscseres 
J SUBROUTINE 'MpYTEN! CALLEO BY JsR PC 
i MULTIPLIES R3,R4 BY OECIMAL 19 
' R@,R1,R2 UNUSED 
' R3,R4 [1S THE 32 BIT UNSIGNED INTEGER TO MULTPLY 
} RS UNUSED 
' SP GOES 4 DFEPER AFTER JSR 
MPYTENT HOV R3,0(SP) 
MOV R4,0(SP) 
ASL R4 
AOL R3 
ASL R4 
ROL Rs 
aoo (SP)o,R4 
aoc RS 
aod (SP) o)R3 
ASL R4 
ROL, RS 
RTS PC 


Bes 


BASICL 


4272 
4273 
4274 
4275 
4276 
4277 
42768 
4279 
4280 
4284 
4282 
4283 
4284 
4285 
426 

428 

4288 
4209 
4298 
4292 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4308 
4301 
4302 
4303 
4304 
4305 
4326 
4397 
4308 


BASICL 


4384 
4318 
4324 
4312 
4323 
4314 
4315 
4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4338 
4332 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4349 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4358 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
43568 
4359 
4368 
4362 
4362 
4363 


MACX21 


017444 
047459 


017452 
017454 
817469 
017464 
047472 
817476 
017508 
017504 
817506 
817548 
g175i4 
017516 
017520 
017522 
a17524 
017530 


MACXL1 


317532 
317536 
317540 
317542 
017544 
217546 
317550 
017552 
817556 
917568 
017562 
017564 
017566 
817579 
017572 
817574 
817576 
617600 
017682 
317684 
847626 
817618 
317612 
017614 
017616 
617620 
317622 
317624 
847626 
317632 
617636 
617649 
347642 
217646 
947650 
917652 
817654 
817656 
317662 
317664 
217666 
317678 
517674 
917708 
317702 
917786 
017722 
017714 
817716 
817729 


veeL 


112708 
890403 


422108 
193965 
816546 
812765 
860565 
000484 
816546 
112199 
081403 
094767 
998773 
OBS202 
686201 
086301 
012665 
390221 


yee. 


812746 
6957233 
381413 
190003 
986803 
006804 
85216 
938327 
281030 
806324 
986125 
305316 
080771 
395704 
881367 
395726 
800207 
805702 
001425 
180416 
386203 
306004 
886203 
906004 
886205 
286904 
886203 
386004 
362716 
304767 
395302 
280744 
284767 
385202 
0807490 
886203 
306004 
330327 
981373 
805716 
383802 
AL2726 
821627 
104402 
512716 
110366 
812603 
388323 
026025 
e86004 


222MARe73 15142 PAGE 58 
’ 
3 MSG e@ OUTPUT A LINE TO TTY 
) MSGODEV © OUTPUT A RINE TO CURR, OUTPUT DEV, 
’ 
) CALLY JSR RAeMSG (MSGQDEV) 
’ rASCII "QMESSAGEI® 
' BYTE ® 
’ 1 EVEN 
' PRETURN WERE 
U 
1 USES RO 
' 
) SEY UP LINE WIyYH NUMBER oF BYTES TERMINATED 
' BY A BYTE OF 088, 
$ 
MSGERRI 
vIFNOF SLONGER 
890045 “OVE ote, RO 
8R MSGCOM 
,ENOC 
MSGI MOVB (RL) ORO 
000127 MSGCOM! CLRB CNOFLG(R5) 
880034 MOV COLUMN( RS), #(SP) HSAVE FOR TEMP SUI TCH 
880056 890034 MOV WGLMNTTY, COLUMN( RS) 
800054 aoo RS, COLUMN RS) 
BR FRSTOUT 
ooeas4 MSGODEVIMOV COLUMN(RS) , 9 (SP) 
00mMSGi MOVB (RL) 4 RO 
BEQ LLNOUN 
oosa72 FRSTOVTS JSR PC,PUTCHAR JPUT CHAR, TO TTY 
BR QOMSG 100 NEXT CHAR 
GINOUNE INC RL 370 INSURE RETURN ON 
ASR RY 1 EVEN WORO BOUNDARY 
ASL Q) 
ogens4 MOV (SP), COLYMN(RS) 
RTS RL 
22eMARe7S 15941 PAGE 59 
’ eee cm ccm em ecw cece cme peewee mews e rec weseeecceses 
) SUBROUTINE NORMS NORMALIZES I“TEGER CONTAINED IN 
f RS AND R4, MULTIPLIED BY EXPONENT 
' IN R2, ANSWER [S IN RS, R4, 
f CALLED BY ySP PC 
080237 NORMI = OV #237, 9(SP) 
TST RS 
BE0 LITTST 
BPL LITNOKM 
ROR RS 
ROR Re 
INC (SP) 
840000 LITNORMIBIT R3, 840000 
BNE LIitox 
ASL R4 
~ ROL RS 
OEC (SP) - 
UR LLYNORM 
LITTST) TST R4 
BNE LITNOKM 
TST (SP)e 
RTS PC 
GITOKE TST R2 
EO LITSTO 
amy LUTOLV 
ASR RS 
ROR R4 
ase RS 
ROR R4 
ASR RS 
ROR R4 
ASR RS 
ROR R4 
890004 ao0 #4, (SP) 
177556 Jsr PC, MPYTEN 
oec RZ 
BR LLYNOKM 
174302 LITOIVS USR PC, OIVTEN 
INC R2 
BR GL TNOKM 
LIPTSHRY ASR RS 
ROR R4 
177008 LIfSTOI BIT R35, 0177908 
BNE LITSHH 
Ts? (SP) 
BGT 196 
990001 MoV #1, (SP) 
380377 cmp (SP), #377 
BLOS #6 
880377 MOV 9377, (SP) 
80000, MQve RS,2 (SP) 
MOV (SP) o,R3 
SWAB RS 
ROR RS 


ROR Re 


ab6 


267 


BASICL 


4304 
4365 


BASICL 


4366 
4367 
4368 
4369 
4372 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4388 
4383 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
7 4Ad9I2 
4393 
4394 
4395 
4396 
4597 
43968 
4399 
4488 
4401 
4402 
4403 
4404 
4405 
4426 
4407 
4408 
4409 
4410 
4442 
4412 
4413 
- 4424 
4415 
4416 
4417 
4418 
4419 
4420 


MACKXAL 
317722 


MACX4L2 


847724 
017739 
817734 


417736 
817742 
317746 
017752 
017754 
247760 
817762 
017764 
017772 
017774 
0200008 
820902 
020006 
o20810 
g20014 
320916 
020924 
220830 
020034 


820836 
329042 


320844 
020050 


820052 
828856 
328868 
320864 
328066 
020072 
920074 
928076 


Ve22 
590207 


voad 


984567 
912704 
388446 


217608 
362726 
384567 
810002 
305765 
861438 
100925 
362765 
282016 
305065 
881016 
205765 
186015 
965465 
182005 
812765 
085965 
612700 
289405 


820127 
381493 


342708 
Ob4741 


316504 
885002 
916583 
384918 
312790 
808704 
301016 
312788 


22eMARW73 


220MARG73 


004142 
020706 


280008 
Beoge2 
901128 


800840 


ig08e8 
agense 
909042 
900042 
044980 


080042 
990955 


920578 


980849 


ee804e 


aene4e 
0e0837 


380068 


000049 


090049 


15144 PAGE 5904 


RTS PG 


abe 


15442 PAGE 68 


ert ee ee erry 


)  fNUMQUTF SUBROUTINE 


j CALLEQ BY JSR PC,NUMOUT 
) OUTPUTS AN UNSIGNED NUMBER FROM THE Fac 
’ VIA THE SUBROUTINE PUTCHAR, 
NUMOUTI JSR RS, SAVREG 
MOV #PUTCHAR, RY 
8R NUMSTT 


| pecncccccscocces 
§  ENUMSGNE SUBROYTINE 

, CALLED BY JSR PC,NUMSGN 

' {WORD OUTPUT 

’ WHERE OUTPUT IS THE OUTPUT ROUTINE, 
J WHICH MAY BE PUTCHAR OR SAVCHAR, 
' 
} 
N 


OUTPUTS A SIGNED NUMRER FROM THE 
FAC VIA THE OUTPUT ROUTINE, 


UMSGN} MOY @(SP),RO 
apo #2, (SP) 
JSR RS, SAVREG 
“OV RORY 
TS? FACL(RS) 
Bea NUMF IX 
BPL NUMPOS 
400 #100000,FACAi¢R5) 
BNE NUMNEG 
CLR FACQ(RS) 
BNE NUMPOS 
NUMFIX! TST FAC2(RS) 
SPL NUMPOS 
NEG FAC2(RS) 
Bvc NUMNEG 
MOV #44000, FACL(RS) 
CLR FAG2(RS) 
NUMNEGE MOV le, RB 
aR NUMPRS 
NUMPOS} ‘ 
,IFNDF = SNOSTR 
CMP Ri, #SAVCHAR 
BE0 NUMSTT WOON’ T OUTPUT BLANK FOR STRS 
1 ENO 
mov 8B RO 
NUMPRS} JSR PC, (RL) 
NUMSTTI 
MoV FACZCRS) RS §R4 ® Low ORDER MANTISSA, 
CLR R2 JR2 DECIMAL EXPONENT) 
MOV FACLEKS) RS §R3 = HIGH ONDER MANTISSA, 
BNE NUMFLT : 
MOV 837,80 }RO = BINARY EXPONENT, 2-69 
TST R4q 
BNE NUMSHFT 
mov #18,RO 


BASICL 


4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4449 
4442 
4442 
4443 
4444 
4445 
4446 
4447 
4446 
aaay 
4450 
4453 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4462 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4409 
4478 
4474 
4472 
4473 
4474 
4475 


BASICL 


4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4499 
aaoy 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4502 
4502 
4993 
4904 
4505 
4506 
45907 
4508 
4509 
4912 
4542 
4542 
4543 
4516 
4545 
4516 
4547 
4518 
4539 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 


MACXAL 


920102 
820104 
020106 
020110 
826112 
020114 
828116 
920122 
320126 
820132 
820134 
820136 
620149 
620144 
028146 
920158 
020152 
820154 
920156 
28168 
320162 
920164 
820166 
020178 
820172 
820176 
326202 
O20204 
025206 
020212 
20214 
820229 
020222 
O28224 
320226 
8202358 
828232 
820236 
820249 
20244 
320246 
020252 
929254 
828256 
820262 
920264 
820278 
820272 
020274 
020380 
828302 
820304 
820306 
820310 
029312 


MACX41 


320316 
820322 
320326 
320332 
820354 
828336 
820349 
320344 
320358 
820352 
326354 
320360 
828362 
328364 
928366 
820372 
828374 
828406 
820402 
620404 
920406 
320410 
620414 
820416 
829422 
029424 
828426 
920452 
320434 
820436 
920442 
820446 
820458 
820452 
828454 
320456 
328469 
020464 
320466 
020479 
320474 
820476 
320502 
920504 
020518 
320512 
829516 
928528 
822522 
320524 
828526 
920530 
020532 
020534 
320536 


Veer 


004742 
2980207 
810308 
386308 
195008 
380300 
162720 
942793 
852793 
885308 
886304 
886103 
839327 
881772 
265709 
eo3016 
386283 
8g6g04 
086203 
966004 
286203 
386004 
686203 
986004 
862708 
084767 
985382 
808755 
920027 
883407 
094767 
995282 
880746 
295209 
986203 
986004 
920027 
202772 
229327 
183363 
062704 
103010 
885203 
929327 
1893404 
012703 
005904 
885202 
012788 
019346 
600326 
886816 
686016 
OB6R26 
842716 


vo2a 


362716 
842783 
884767 
085300 
083364 
340623 
3627283 
320227 
202404 
204446 
820227 
002454 
914308 
304712 
512700 
304741 
812704 
214308 
84711 
AO5304 
983374 
312700 
O8A711 
212708 
395782 
180983 
912708 
905402 
084741 
212788 
162722 
180482 
305200 
200773 
886711 
413200 
2362700 
094742 
089455 
012700 
OO4742 
812700 
OB4711 
312724 
2106239 
222327 
384902 
205394 
080773 
228402 
383082 
240294 
285204 
985202 
295292 


22aMARe73 


080373 
177688 
ogezae 


840808 


890004 
177212 


oao8e4 
170730 


8egae4 
050008 
091250 


050008 
904009 


177768 


22eMARa73 
209060 


174008 
177062 


890014 
177776 


880856 
898005 


808105 
889053 


898855 


380860 
B9eR12 


898a72 


988056 
890260 
9800e6 
388060 


15143 


15142 


NUMFLTI 


PAGE 6894 


JSR 
RTS 
MOV 
ASL 
CLRB 
SWAB 
syB 
BIC 
Bs 


NUMSHFTIDEC 


ASL 
ROL 


NUMNORMIBIT 


NUMBIGS 
NUMOTVE 


NUMALNE 


NUMOK} 


BEo 


INC 


NORNOOVIMOV 
NUMDIGE MOV 


NUMFM1 


NUMLPLI 


NUMF M24 


NUMPM34 


SWAB 
ROR 
ROR 
ROR 
atc 


PAGE 6002 


ad0 
BIC 
JSR 
oEc 
ect 
MOV 
apo 
CMP 
BLY 
BEG 
CMP 
aur 
MOV 
JSR 


PGaCRI) 
PC 

R3,RB 

Ro 

RO 

RO 

#472,H0 
#477600,R3 
a200,K3 

Ro 

R4 

RS 

RS, n4u000 
NUMSHFT 


#4,R0 
PC, MPYTEN 
R2 


NUMNOKM 
RO, N4 
NUMOK 

PG, OLVTEN 
R2 


NUMNOKM 

RO 

RS 

a4 

RO a4 

NYMALN 

RS, 050080 

NUMDIY 
#125¢,R4 JROUNDING; 
NORNOOV 

RS 

RS, #50000 

NORNOOV 

#4000,R3 


#0, RO 
(SP) 


(SP) a 70 


#477700, (SP) 


#0, (SP) 
2474000, R35 
PC, MPYTEN 
RO 

NUMOIG 

SP, RS 

#44, RS 

R2, 802 
NUMFML 
NUMFM2 

R24 86 
NUMFMS 

9 OR3) RO 
PC, (RL) 
atyRo 
PC,(RA) 
#5,R4 
(RS) RO 
PG, (RL) 

R4 
NUMLP2 
#tE, Re 
PC,(R1) 
ate, Ro 
R2 

1°12 
#la,RO 
R2 

PC, CR) 
#10,R8 


#13612 ,R0 
PC,(RL) 
NUMEXIT 
ot Re 
PG, (RL) 
oto, Re 
PC, (RI) 
#O,R4 
SP1RP 
(RB) opera 
16 

R4 

mJ 
R4,R2 

1*6 


R2,R4 270 
Ra 
Re 
R2 


BASICL 


4531 
4532 
43533 
4534 
4535 
4536 
4537 
4538 
4539 
4542 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 


BASICL 


4553 
4554 
4555 
4556 
4557 
4558 
4559 
4368 
4564 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
> 41509 

4578 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 


MACK4A1 


920549 
820542 
828544 
020559 
820552 
920554 


929556 
820569 
220562 
320566 


020576 
020574 
020609 
320082 
320686 
820612 


MACX11 


920614 
920620 
628622 
020626 
329632 
520634 
320640 
820042 
020646 
820652 
320654 
2206690 
029662 
020666 
320672 
220674 
820676 
329706 
029702 
320704 


VoO2. 


085302 
982083 
242709 
O84741 
944320 
304732 


885304 
803367 
362726 
080207 


84567 
216582 
110023 
210165 
385265 
280207 


VO2s 


312702 
321246 
812712 
16183 
885203 
820362 
191402 
016103 
820363 
381412 
320361 
0892407 
123072 
910364 
012612 
ogoees 
2800287 
942642 
908261 
380207 


22emMARe73 


66Be56 


agooss 


0gg276 
o90068 


098068 
880056 


22aMARe73S 


177776 


008340 
980018 


Seaen2 


990088 
990004 


oe0826 


300010 
oo9018 


15144 PAGE 


NUMLPSI 


NUMEXITE 


SAVCHARI 


6003 
OEC 
ByE 
MOV 
JSR 


MOV 
JSR 


vec 
BGT 
aod 
RTS 


e TPNOF 


ysR 
MOV 
MOVE 
MOV 
INC 
RTS 
,ENOC 


15144 PAGE 61 


GALLI 


’ 
’ 
' 
’ 
' 
' 
’ 
' 
' 
’ 
} 
’ 
' 
’ 
' 
pureyrt 


NOWRAP 


NOROOM} 


MOV 
MOV 
JSR 


Mov 
MOV 
MOV 
MOV 
INC 
CMP 
BLOS 
MOV 
CMP 
BEG 
cmP 
BEQ 
MOVE 
MOV 
MOV 
CLC 
RTS 
MOV 
SEC 
RTS 


R2 
1740 
at, Ro 
PC, (RL) 
e(RS) RO 
PC, (RL) 


R4 
NUMLPS 
#14,5P 
PC 


SNOSTH 


RS, SAVREG 
T2ER5) RY 
RO,(RL)« 
RL, T2URS) 
TLERS) 

PG 


COUFF, HOR, IRI 


COHARI,RO 
PG, PUTBYT 


USES RO RL R2RS 


SET 


HPS RE 
(R2),9(SP) 
aPRT,(R2) 
BPUTCRS) RE 
RS 


R3,BENO(RI) 
NOWRAP 
BSTRT(R1) RB 
RS, BGETICRL) 
NOROOM 
RS,BGET2(RY) 
NOROOM 

RO, OBPUT(RY) 
RS,BPYUTCRL) 
(SP) ey (R2) 


PC 
(SP) 0) (R2) 


PC 


PUTBYT = PUT BYTE NTO RyNG BUFFER 


RAISE PRIORITY SINGE THIS MAY BE CALLED ar 
MAINSTREAM, BU? ACCESSES POINTERS THAT MAY CHANGE AT 
INTERUPT LEVEL 

RETURNS WITH ‘C) BIT! CLR IF AYYE GOT IN 

IF NO ROOM 


WSAVE STATUS 
JREPLACE WITH WIGHEST 


sJCANDIDATE FOR NEW POSITION 
INEEO 70 WRAP ARQUNO? 


1YES! NEW POS, AT TOP 
HIF EQUAL TO EITHER GET PTR,, 
+ THEN NQ ROOM 


HUPDATE PTR, 
WSTATUS BACK 
HSIGNAL SUCCESS 


STATUS BACK 
SHOW FAILURE 


BIE 


2273 


BASIC, MACX114 veer 22eMARe73 a5i4s PAGE 62 


4589 . ' 
ae 1 PUTCHAR © PUT CHAR To CURRENT CUTPUT DEV, 
4594, f 
4592 } CALLE (LOAD ODEV(RS)) 
4593 ’ MOV COWARD, RO 
4394 } JSR PG,PUTCHAN 
4595 1’ 
4596 3 SAVES ALL REGS, 
4597 ’ 
4598 ) TRIES To FIT CHAR INTO PROPER BUFFER, GoES To IQWAIT ON 
4599 1 FASLURE, 
4689 i 
460% 328706 304567 o90100 PUTCHARIJSR R53, SAVREG 
4002 628712 612746 047777 MOV #47777, 9(SP) VIMIT TIME OUT COUNT 
4003 020716 085275 ageus4 INC PCOLUMN( RS) 
4004 920722 195765 980306 TST CNCFLG(RS) 
4005 920726 294402 BEQ PYTCCO 
4606 0628730 200167 160210 ume READY 
4087 820734 116504 200076 PUTCCON MOVE OOEV(RS),R4 OUTPUT DEVICE CODE 
4608 928749 seig03 BNE WORSTYP VU NOY TRY, CONTINUE 
4089 920742 185765 090327 Ts18 CNOFLG(RS) HCWECK FOR 1004 
4018 920746 891932 ONE oyraie sIF SEY EXIT IMMEDIATELY 
4011 029758 016401 o2%e40 HORSTUPIMOV TABL(R4) RE 
46012 320754 095706 TST R4 JWHICH DEVICE? 
46013 320756 291982 BNE PUTIT iNCT TTY 
4614 920768 060502 aod RO,RL WNEED CURR, USER'S BUFF, 
4015 928762 911101 MOV (RL) KL INOW, ACTUAL HEADER 
4616 920764 9046767 177624 PUTITy JSR PC, PUTBYT 
4027 028778 «103007 acc ITSIN 
4618 920772 3846767 1751304 JSR PC, IOWAIT INO ROOM WAIT 
4619 929776 095316 occ (SP) sTIME OUT 
4628 021908 2084371 ONE PUTIT 
4021 321002 165963 098012 CLRB BFSPEC(R1) 
4622 021006 280422 BR OEVERK 
4623 O21019 195961 00012 ITSINE CLR BFSPEC(R1) 
4624 824914 212774 Be0100 021046 MOV #100, @TARZ(R4) JENARLE INTERUPT ON CHOSFN OFV, 
4025 021822 2005265 090072 INC RNOGT(RS) 
4626 921926 105761 og00i2 TSs18 BFSPEC(R1) 1170 ERROR? 
4627 321932 0841019 BNE OBVERR 
4628 821934 095726 oufgsa) TST (SP)e sPOP TIME OUT COUNT 
4629 321936 200207 RTS PC PRESTORES REGS, AND RETURNS 
4638 ' 
4633 } 7AB1 » DEV, BUFFER HORS, (TPHD IS nFFSEY INTO USRAREA 
4632 J FOR ADOR, YO TPRTR, BUFF, HOR,) 
4033 ’ 
4634 821948 o8ore8 yasit o¢ TPHO 
4635 vLFNOF SNOPTP 
4636 824042 023769 o PPBFHO 
4637 ,ENOC 
4638 vIFOF SNOPTP 
4639 8 
4040 vEnoc 
4041 2 ay 
4642 sTFNOF SNOLPT 
4043 924044 a240924 Py LPSFHU 
BASICL MACX42 VO2i 22eMAR@73 151944 = PAGE 6204 
4044 s€NOC 
4645 : 
4646 FOF 
ae 3! OF SNOLPT 
4648 +ENDC 
4649 ' 
4658 AB2 © 
aes ; TAB2 © DEV, STATUS KEG, 
4652 321046 177564 raB2n + TPS 
4653 921050 177554 + - PPS 
4054 921952 177514 . LPs 
4655 
4056 921954 290804 DEVERR! IoT 
4657 LTFNOF © SONGER 
4058 321056 247194 122 sASCIT  \QNRAN 
Aeoy. +ENOC 
A860 LTFOF — SLONGER 
phot aASET NOEVICE NOP READY\ 
4063 a24961 208 ‘BYTE @ 
4664 +EVEN 
4665 ,E0T 
4666 


BA? 


BASICL 


4667 
4668 
4069 
4676 
4074 
4672 
4673 
4674 
4675 
4676 
4077 
4678 
4079 
4689 
4681 
4082 
4683 
4684 
4685 
4666 
4087 
4688 
4089 
46998 
4692 
4692 
M693 
4694 
46095 
46096 
4697 
4696 
4699 
4798 
A704 
4702 
4723 
4724 
4705 
4706 
4707 
4728 
4709 
4710 
A74r 
4722 
4713 
4744 
4715 
4716 
47147 
4718 
4729 


BASICL 


4720 
4724 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4738 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4748 
4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4752 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4768 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4768 
4769 
4779 
4774, 
4772 
4773 
4774 


MACX11 


824062 
921964 
321072 
321074 
824876 
321100 
921102 
821104 
021106 
822112 
o24114 
822116 
o21120 
921122 
322124 
021126 
621138 


821132 


324134 
821142 
924144 
021158 
021152 
831156 


MACX11 


921168 
8241164 
821166 
321170 
924172 
a22174 
821290 
821202 
B21204 
321218 
321212 
821216 
321220 
821224 
821226 
821232 


021234 
321249 
821242 
021244 
821246 
321259 
821252 


821254 


321260 
221264 


321266 
621272 
821274 
8213508 
821304 
321306 
321312 
321314 


vo2s 


411646 
212766 
810446 
318346 
810246 
010146 
810046 
810546 
316605 
304736 
342600 
822602 
812602 
912603 
812604 
322605 
480287 


832765 
05201 
122127 
091482 
880167 
880207 


Vo2s 


062701 
005201 
395203 
105721 
802375 
124127 
901767 
101014 
122127 
901420 
124127 
081762 
122127 
BOL364 
362721 
380756 


122127 
882754 
183752 
195721 
281376 
490747 
380227 


216582 


221227 
381421 


916500 
100425 
916503 
284767 
388404 
222227 
701401 
311202 


22eMARe7S 


15942 


PAGE 63 
— SOURCE FILE #8 


SAVREG » SAVE ALL REGISTERS 


MUST CALL SAVREG From suBRTN, 
uSR RS, SAVREG 


PUSHES ALL REGS, AND EXITS WITH ACDR, oN STACK 
WHICH BRINGS CONTROL BACK kHEN SUBR, DOES RTS PCr, 
THEN, RESTORES REGS, AND DOES ‘RTS PC! WHICH RETURNS TO JUST 


4 

te 

4 

y 

\ 

+ CALLE CJSR pC, susr,) 
U 

I 

U 

1 

i 

5 AFTER CALL TO INITIAL SUBROUTINE (MODIFIED BOWERING SPECTAL) 


u 
SAVRGII Mov 


(SP),¢¢SP) 
@21132 eeeea2 MOV #INTEXT, 2¢SP) 
SAVREGS MOV R4,0(SP) 
MOV RS, e(SP) 
MOV R2,0(SP) 
MOV RE,e(SP) 
MOV RB, e(SP) 
MOV RS, e(SP) sFOR RETURN TO SUBR, 
9e0014 MOV 12, (SP), RS JGET OLD RS 
JSR PC,@(SP)+ HSTACK NEXT LOC,! 
RESREGI MOV CSP), RO 
MOV (SP)4) Ri 
MOV (SP) +,R2 
MOV (SP) 4, RS 
MoV (SP) o,R4 
MOV (SP)o,R5 
RTS PG sBACK TQ CALLER OF INIT, SuUP, 
4 
UNTEXTH RTS 
PEPTIC ITT ee) 
U 
} SCANPNO © SCAN TOKEN For ‘#t 
t] 
1 CALLE MoV CPYR, To BYTE BEFORE (#! TOKENI,AL 
| JSR PG,SCANPNO 
J 
) USES RL 
’ 
177775) «=0ea3B SCANENE LON hier aie a 
IN 
090263 CMPs (R4)o_8, POUND 
BEQ PNOGO 
171366 UMP ERRSXS 
PNOGOS RTS PC 
22aMARp73 1504. PAGE 64 
feces ewe cece wees ewes eneccecsccce 
SUBROUTINE ‘SKIPEOL¢ CALLED BY JSF PC 
i MOVES R1 PAST THE NEXT fEOLS 
1 R@ UNUSED 
q R1 MODIFIED TO REFLECT OPERATION 
' R2,R3,R4,R5 UNUSED 
J SP GOES NO MEEPER AFTER JSR 
880003 SKIPQ51 AOD #5,RL 
SKIPS2y INC Ri 
SKIPO14 INC Ri 
SKIPEOLITSTB Raye 
8GE SKIPO3 
888374 CMPB ARID ML FLIT 
Bea SKIPQS 
- BHI SKIPHI 
990203 cMPB (RL) *) 8, £0, 
8EO SKIPRTS 
080262 CMPB o(RL) 8, FN 
Bea SKIPa2 
Oaee2rs cMPB CRY) 9,8, NEXT 
BNE SKIPEQL 
9aa12 A00 #12,RL 
8R SKIPEOL 
H EUTHER ,ULUTL(375), ,ILI72¢376) OR ,TEXT(377) 
888376 SKIPWI} CMPB CREB ILIT2 
BEO SKIPQ2 
BLO SKIPOL 
SKIPTXTITSTB (RL) 
BNE SKIPTXT 
8R SKIPEOL 
SK{PRISIRTS PC 
Per ee ea 
} 'STovaR! SUBROYTINE 
' CALLED BY JSR PC,STOVAP 
' STORES FACq, FAC? IN THE VARIABLE OR 
1 ARRAY ELEMENT LAST ANORESSED BY THE 
H SUBROUTINE ‘GETVaR! 
238822 STOVAR} MOV VARSAV(R5) ,R2 
,IFNOF SNOSTK 
177777 CMP (R2),#,SVAR 
BEO ERRMX7 
,ENOC 
agoee4 MOV SSLSAV(RS) AA 
BM! STONOSS 
880926 MOV SS2SAV(R5), RS 
175424 JSR PC,LOGGET 
@R STOCOMM 
477775 STONOSSICMP (R2)o,8,SCALAR 
BEG STOCOMM 
MOV (R2),K2 


276 


277 


BASICL MACX11 Vea. 22aNARe73 25142 PAGE 64=4 


4775 821316 916522 ageese STOCOMMIMOV FACLCHS), (R2)% 
4776 8214322 916512 oe0042 MoV FAC2(K5),(R2) 
4777 921326 ©900227 RTS PG 

4778 

4779 tTFNOF = SNOSTK 

4788 921330 390167 174456 ERRMX7t UMP ERRMIR 

4781 +E£NOC 

4782 


PT a 


BASIC, MACX122 VO24 22mmAR@7S 35341 PAGE 65 


4783 ,IFNOF SNOSTK 
4784 [Pere w ecw swwwcwce ren ccw ce enn cwews ewes er ersccceces 

4785 J! STOSVAR® SUBROUTINE 

4786 ‘ CALLEQ BY JSR PC,STOSVAR 

4787 1 STORES A STRING VARIABLE AS ADDRESSED By 
4788 ' VARSAV 

4789 021334 216502 s00022 STOSVARIMOV VARSAV(R5) ,R2 

4798 821348 324227 177777 CMP CR2)¢B,SVAR 

4791 021344 201057 BNE ERRMXO 

4792 8213346 316508 sa0024 MOV SS4SAV(R5S),RA 

4793 821352 190405 BMI STOSSNO 

4794 021354 216503 2990026 MOV SS2SAVC(R5) , RI 

4795 B21360 994767 175024 vSR PC, LOCGET 

4796 821364 100406 BR STOMMCO 

4797) 821366 303722 STOSSNOITST (R2)4 

4798 021378 226227 opae92 177777 CMP 24R2) #04 

4799 321376 991485 : B8EQ STOyTAB 

4808 321480 211282 MOV (R2),K2 

4801 021402 212623 STOMMCOIMOV (SP) ey RS 

4802 621404 712600 MOV (SP) 4,RO 

4803 921406 410912 MOV RB, (RZ) 

4804 921410 3g0405 BR STOVCUM 

4805 921412 212603 STOVTABIMOV (SP )oyR 

4686 921414 312600 MOV (SP) o,RB 

4807 421416 -219022 MOV RO, (RZ) 

48068 921429 295202 INC R2 

4609 921422 161502 Sys (R5),H2 

4810 021424 205209 STOVCOMIING RO 

4811 021426 394405 sea STOSX ICHESK NULL STRING 

4812 8213430 362790 savev2 aoo #2,RO 

4813 921434 119249 MOVE R2,0(KO) 

4814 921436 390302 Swas Re 

4615 021449 119246 MOVB R2,e(hB) 

4616 921442 299113 STOSX} JUMP (RS) 

4817 921444 390167 1714342 ERRMX63 UMP ERRMIX 

4818 ,ENOC 

4819 

4820 

4624 

4822 

4823 Ur Oo ae 
4824 } SUBROUTINE 'SUBSTK! CALLED BY JsR PC 

4625 H] NEGATES 2(SP),2(SP) THEN CONTINUES I #aD0STK? 
4826 ‘ R@,R1 UNUSED 

4827 4 R2,R3 DESTROYED 

4828 J R4 MODIFIED 19 REFLECT STACK USAGE 
4829 ’ 85 MUST POI"T TO USER AREA 
4830 J SP GOES 7? TEEPER AFTER ySR 
4831 321459 395766 sgaec2 SuasTKi TST 2(SP) 

4832 321454 394405 gEQ SUBINT 

4833 921456 2362766 i1eg980 se0e82 aoo #130000,2¢SP) 

4654 021464 290167 166132 AOSTKi} UMP AOOSTK “7 9 
4635 321479 395466 aga004 SUBINT) NEG 4(SP) = 
4836 821474 192373 ve AOSTKY 


4837 021476 212766 044800 oaveae2 MoV #44900,2¢5P) 


BASICL 


4838 
4839 
4840 


BASICL 


484. 
4842 
4843 
4044 
4645 
4846 
4847 
4848 
4049 
4859 
4851 
4852 
4053 
4654 
4855 
4856 
4857 
4858 
4859 
4660 
4861 
4862 
4863 
4864 
4865 
4866 
4867 
4868 
4869 
48708 
4872 
4672 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4680 
4661 
4682 
4883 
4864 
4865 
4886 
4687 
4688 
4889 
4898 
4891 
4892 
4893 
4894 
4895 


MACKXA4 


021504 
821510 


MACXLL 


921512 
921516 
321528 
921524 
821526 
821532 
821534 
824536 
821549 
321544 
321558 
921552 
023556 
821568 
821564 
821566 
0239572 
321574 
823600 
821602 
321686 
321618 


21614 
821629 
824624 
321626 
921652 
322634 
321649 
821642 
821644 
921646 
321659 
321652 
821654 
821656 
321668 
22662 
321666 
221678 
321072 
321676 
321700 


Vo2s 


195066 
800765 


V@2a 


316502 
820202 
122127 
284375 
016508 
114240 
220192 
381375 
205065 
122927 
881775 
124027 
881083 
122742 
908297 
124927 
381406 
121027 
103485 
121927 
191902 
200167 


242704 
12{027 
183485 
121927 
191902 
312724 
918793 
260403 
e1ga82 
122223 
201776 
1143284 
180414 
004559 
6053a2 
122227 
204767 
805302 
122327 
004763 
195723 


22aMARe73 


gages 


22eMARw73 


308828 
980815 
BOBRL6 


890856 
090040 


290015 
ogee, 
230036 
aganee 
290071 
299738 


156542 
080122 


oeess2 
4566034 


800040 


200040 


15144 PAGE 6504 


cur 4(S8P) 
5R AQSTKA 


15144 PAGE 66 
| Rewewcccwcnowscrcceen cece sens cccecccescccccecsecce 
} TRANS SUBROUTINE 
4 CALLED BY JSR PC, TRAN 
J TRANSLATES FROM {NPUT ASCII CODE 
‘ TQ INTERNAL CODE, CONSISTING OF TOKENS, 
i LINE NUMBER REFERENCES, SYMBOL TABLE 
! REFERENCES, AND LIVEPALS, ALWAYS RETURNS, 
f] NO MATTER WHAT IS INPUT, 
! AS NEW SYMBOLS ARE ENCOUNTERED, BUILDS NEW 
H ENTRIES INTO THE SYMAOL TABLE, 
, ERRORS ARE TRANSLATE” YO C,TEXT) 44) 
TRANS MOV GINECKS) ,R2 
MOV R2,R1L 
CMPB CRL) 4, aR 
BNE ,e@ 
MOV CODE(RS), Ra 
MOVE TERA) eC RO) 
CMP R4,R2 dRO 1S WHERE ORIGINAL TEXT IS, 
BNE 104 WRL 1S WHERE TRANSLATED TEXT GOES, 
TRANLUPICLR TLERS) PREVIOUS ITEM WASN‘T A VAR, 
TRANVARSCMPB CRO) O, #BL, 
seo TRANYAR 
CMPB #(RB),#CR 
BNE TRYNUM 
MOVB #, EOL, (RL) 
RTS PC 
TRYNUME CMPB (RO), 8h, 
BEO NUM MP 
CMPB (KB), #10 
BLO TRYKWO 
CMPB (RB), 809 
BHI TRYKWO 
NUMJMP} JMP TSNYM 
TRYKWOE MOV #KEYWOSeTRNPC,RS 
CMPB (RO), BIA CHECK ALPHA KEYWORDS 
8L0 COMTAB STOO LOW 
cmMPe CRO) HEE . 
BHI COMTABS = 3TOO HIGH 
MOV BKEYAMTRNPC,R4 = JUST FIGHT 
COMTABE MOV PC,RS 
TRNPC} 400 R4,R3 ADDRESS TABLE 
TRYAGNE MOV RO,R2 
REPRY$ CMPB CR2V+CREVG 
seo RETRY 
Move o4R37D9RE 
BM AMATCH 
BEO NOTKWO 
oEec R2 
CMPB (h2)+1aBL 
BEG RETRY 
DEC R2 2 oy 
CMPB (R3) 6, BL 
BEQ RETRY 


Ts78 CRI) 


a 


BASICL 


4896 
4897 
4898 
4899 
4908 
4901 
4992 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4948 
aout 
4912 
4913 
4944 
4945 
4926 
4917 
4918 
4949 
4920 
4922 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4938 
4934 
4932 
A933 
4934 
4935 
4936 
4937 
4938 
4939 
4948 
49as 
4942 
49463 
4944 
4945 
4946 
4947 
4948 
4949 
4950 


BASICL 


4952 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 
4968 
4964 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4979 
4972 
4972 
4973 
4974 
4975 
4976 
4977 
4978 
4979 
4988 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4988 
4989 
4999 
4992 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5008 
5001 
5002 
3003 
5024 
5205 


MACX412 


321782 
321704 
321786 
924710 
324712 
921714 
321720 
321722 
321726 
233738 
824734 
321736 
821742 
824744 
821759 
024752 
021756 
921768 
321764 
824778 
824774 
3214776 
822000 
822002 
822004 
822018 
822032 
822834 
922816 
922928 
922922 
922026 
022038 
822854 
022236 
322942 
322044 
922846 
922952 
222954 
822968 
822962 
022064 
822978 
822872 
922076 
922198 
022194 
822106 
922112 
922114 
022116 
622128 
3922124 
822126 


MACXA1L 


322130 
3221354 
922140 
322142 
822144 
322146 
822156 
322152 
322154 
022156 
822160 
822164 
022166 
622179 
822174 
822208 
922204 
322286 
322212 
B22214 
822228 
022222 
922226 
022258 
322232 
822236 
822246 
322242 
022244 
022246 
922252 
822254 
322256 
822262 
322264 
222278 
322272 
322276 
822308 
322302 
322304 
822306 
822319 
822314 
222316 
922320 
322324 
822326 
322332 
822334 
322348 
322342 


922346 
. 


va2i 


180376 
200757 
295382 
318298 
120424 
122427 
301540 
120427 
304464 
120427 
304535 
123427 
081483 
120427 
881973 
122704 
691402 
42704 
362734 
112723 
020190 
183076 
121804 
201409 
124927 
ai415 
122222 
OBO772 
185021 
385200 
120427 
084495 
242721 
8064s 
222722 
880656 
185023 
122781 
910102 
124227 
064375 
126442 
122742 
300207 
122927 
304775 
124927 
183431 
124927 
181026 
112682 
9896382 
162702 
120222 
808604 


veas 


112749 
122749 
885301 
320100 
181033 
080425 
020109 
183618 
195021 
185011 
362701 
o20198 
193802 
200267 
780167 
121927 
181926 
124927 
183403 
895765 
282415 
112721 
820108 
193361 
121827 
984482 
422621 
380773 
195924 
422723 
200207 
112902 
122927 
384775 
124927 
194936 
121927 
193433 
488382 
152992 
089382 
#11583 
122927 
204775 
285300 
428365 
183933 
324327 
183083 
7627083 
200767 
2627283 


926327 


22eMARe73 


aoezz0 
oge2e2 
eeoaiy, 
090257 
egn256 
890257 
090252 


177578 
900577 


ogsei5 


eeee47 
oaeese 
0ge257 


060202 
889377 


090377 
090040 
980103 
9903352 


229MARe73 


098116 
880106 


oeeeis 


177344 


BB8564 


oga1s2 
080423 
0a6956 
988377 


998015 


080203 


890040 
BB0071 
920869 


938040 


398014 
177775 


ego0e6 
200818 


177778 


4177777 


15044 PAGE 6604 


BPL 102 

BR TRYAGN 
AMATCHE DEC R2 

MOV R2,RO 


MOVB =—-R4, (RLY 
CMPB R48, REN 


BEQ REMPACK 

cMPa R4,6,FN 

BEG TRNFN 

curs R4,#, NEXT 

BEO NEXFILL 

CMPB R4,8,SQU0T 

BEO QUOTPAK 

cMPa R4,8,0QU0T 

BNE TRANLUP 
QUOTPAKECMPB #,SQUOT,R4 

cla) 16 

MOV HEMel Se, SQUOTIRG 

aoo #0 te, SQUOT,R4 

Move w, TEXT, CRAY} 

cme R4,RO 


BHIS ERRTRN 
STaSTRi CMPB (RB), KS 


BEo ENOQUOT 

CMPB (RO), BER 

BEO ENOCR 

MOVE CROVO PIRI) 

BR STOSTK 
ENDQUOTICLRB (Rte 

INC Ro 

CMPB R4, eft 

Bea eENnosoyo 

MOVE #,OQUOTE, (Ride 

BR TRANLUP 
ENDSQUOIMOVE # SQUOTE, (R81)% 

aR TRANGYP 


ENOCRE CURB (Rije 
MOVE #, COL CRY) 


MOV RL, RZ 
CMPB o(R2),8, TEXT 
BNE 


1a4 
Move R4,(R2) 
“ove #, TEXT, *(R2) 


RTS PG 

TRNFNY CMPB CRO), #BL 
BEo 104 
cMPs o(RO) ATA 
849 TRFENGAD 
CMPB (RO), ate 
BHI TRFENBAO 
MOVE CRO) SR 
ASL. R2 
su8 #OAGTAR2,R2 
MOVE R2, (R14 
BR TRANLYP 


4514s PAGE 6602 


TRENBAD MOVE ING RO) 
Move at eR) 


ogc Ri 
cMP RL,RO 
SHI ERRTRN 
BR REMPACK 
NEXFILLICMP RA, RO 


SHIS ERRTRN 
CLRE CRL)e 


CLRB CR4) 
aoo #11, R1 
cMP RL, RO 
BHIS ERRTRN 
JMP TRANLUP 
ERRTRN| UMP ERRTR] 
NOTKWO) CMPB (RB), BE 
BHI REMPACK 
CMPB (RO), BIA 
BLO REMPACK 
rst TACRS) 
aco TSVAR 
REMPACKIMOVE #, TEXT, CR1Lye 
cue RL,RO 


BHIS ERRTRN 
STOTXT# CMPB (RB), 8CR 


BEQ CARRET 
MOVB CHB) OP (RL) & 
BR STOTXT 


CARRET! CURB CRO)e 
MOVB ReEQu thd) 
cd 


TSVAR} OVE CRB) O,R2 
CMPB (RB)o, #BL 


geo a4 

CMPG 8 (RQ), HI 

SHI NODIGIT 

CMPB (RB) 8B 

alo NODIG]T 

SWAB Re 

B1SB CRB) O,R2 

SWAB R2 
NODIGITIMOV CRS) RS 

CMPB CRO) O, #BL 

BEQ a4 

pec Ro 
VARSRCHICHP R3,LOFREE( 95) 

BHIS PUTITIN 

cMP (R3))@, SCALAR 

BHIS NOTIT 

ago #4, R3 

BR VARSROW 
NOTIT; A009 419,85 


,IFNOF SNOSTK 
CMP °30(RS),#,SVAR 


SAME AS INITIAL QUOTE CHAR,? 


$2 VARS IN A ROW JS AN ERROR SC DONT 
WASTE SYMBOL SPACE ON IT, 


ASA 


BASICL 


5006 
5207 
5908 
5009 
5012 
5011 
5012 
5813 
5014 
5015 
5016 
5017 
5018 
5019 
5028 
5824 
5B22 
5023 
5024 
5025 
5926 
5027 
5028 
5229 
5038 
5031 
5932 
5033 
5034 
5035 
5836 
5037 
5038 
5039 
5240 
5042 
5942 
5043 
5044 
5245 
5246 
5047 
5048 
5049 
5058 
5054 
5052 
5053 
5054 
5955 
5056 
5057 
5058 
5259 
5268 


BASICL 


5064 
5062 
5063 
5064 
5065 
5266 
5067 
5868 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5876 
5077 
5078 
5079 
5080 
5084 
5082 
5083 
5084 
5085 
5086 
5087 
5988 
5089 
5099 
5091 
5992 
5093 
5094 
5095 
5996 
5097 
5098 
5099 
5108 
5101 
5102 
5123 
5104 
5125 
5106 
5107 
5108 
5109 
5112 
5411 
5112 
5113 
5114 
5115 


MACX11 


822354 


922356 
322368 
322362 
822366 


822378 
222372 
22374 
922376 
022402 
822404 


922406 
22412 


22414 
922428 
822424 
922426 
022452 
9224356 
922448 


822442 
822446 
022459 
322454 
022456 
822468 
922462 
822464 


922478 
322474 
822476 
622500 
022504 
022506 
822518 
922512 


922516 


MACXLA 


822522 
022524 
322526 
322538 
322532 
022534 
322536 
822548 


822544 
022546 
922552 
822556 
822569 
022562 
822564 


322579 


922573 


822574 
922608 


322604 


822687 


822618 
022614 
822620 
222622 
322624 
022626 
822632 
822634 
222636 
822649 
322642 
822644 
322659 
322652 
922656 
822660 
822662 
322664 
822678 
822672 
222676 


V@2a 
381426 


822322 
881357 
121027 
8047346 


280486 
322332 
081352 
121927 
904346 
385208 


162733 
900444 


062783 
820365 
103425 
884767 
820365 
183060 
885743 


820365 
101034 
818365 
010243 
295943 
805843 
095043 
812743 


121927 
061010 
905208 
242723 
905123 
383123 
905113 
162783 


010565 


VOaa 


161583 
880303 
110322 
40303 
110321 
220108 
181216 
300167 


810846 
304767 
121027 
801016 
812600 
300617 
304167 


346124 


300167 
304167 


352120 


300167 
020327 
181140 
385732 
883404 
304767 
805302 
983767 
804132 
885783 
094427 
329427 
103124 
916583 
203304 
320103 
183452 
121127 
#04447 
121127 
881444 


22eMARe73 


000044 


000844 


egaoi2 


oeoo14 
000072 


290526 
ag0972 


890012 
290014 


177775 


900044 


177777 


880806 


898856 


22eMARe73 


177008 


oaeee2 
290856 


174654 
124 


156406 
174040 


182 


156372 


014630 


174562 


477775 


890820 


08204 
200205 


15142 PAGE 6603 


eee 
»ENOC 


BNE 


FOUNDV! SUB 
PUTITING 


PUTAQK) TST 


CLR 
MOV 


cL TFNOF 
cMPB 
BNE 
INC 
MOV 
CoM 
com 
com 
sus 
,ENOC 


REPVARI MOV 


15441 PAGE 6604 


REPLNO! SUB 
SWAB 
Move 
SWAB 
MOVB 
CMP 
BHI 
JMP 


MOV 
JSR 
Cure 
BNE 
MOV 
SR 
ERRTR71 JSR 
1 UFNOF 
ASCII 
1ENOC 
VTFOF 
sASCII 
1ENOC 
:BYTE 3 
,EVEN 
JMP 
ERROV2} JSR 
1 TFNOF 
rASCTL 
,ENOC 
VIFOF 
ASCII 
,ENOC 
1BYTE 2 
1EVEN 
JMP 
EXPTEN! CHP 


TSNUMS 


EXPNEG) BNE 


YRYSVaR 


(83) Oy RZ 
VARSRGH 
(RO), 8S 
VARSRGH 


SNOSTR 
FOUNOV 
(R3) oy R2 
VARSRGH 
(RO), 8S 
VARSRGH 
RB 


#12, R3 
RETVAR 


SNOSTR 
#44,R35 
R3,LOSTR(RS) 
PUTAOK 

PC, UPPACK 
RS,LOSTR(RS) 
ERROV2 

2(R3) 


SNOSTK 
#42, R35 


RS, HIFREE(R5) 
ERROVE 
R3,LOFREE(RS) 
R2,0(K3) 

o(R3) 

(RS) 

oCR3) 

#, SCALAR, e(R3) 


SNOSTK 
(RO), ats 
RETVAK 

RO 

# SVAR, (R3)% 
(R3)4 

(R3)4 

(RS) 

#6,R3 


R35, TL(RS) 


(R5) RS 
RS 

RS, (RLV 
ag 


R3,(R1)+ 
RL RO 
ERRTRN 
TRANVAR 


RB, a(SP) 
PC, VAL 
(RO) at, 
EXPTEN 
(SP) o,RB 
REMPACK 
RY ,MSGERR 
SLONGER 
\TLTN 


SLONGER 


MAKE SURE STRINGS ARE NOT THERE 


JIF THEY ARE, PACK THEM UPWAPOS 
yANO TRY AGAIN 

1NO 6000 

pR3_1S END OF ENTRY 


sADDPESS END OF ENTRY IN RB 


PS aed 


SSQMETHING NONZERO, 


SAVE PTR JN CASE OF BAD NUM 
HFINO MANTISSA AND EXPONENT 


'GINE TOO LONG TA TRANSLATES 


REAOY2 
RL,MSGERR 
SLONGER 
\PTBA 


SLONGER 


‘PROGRAM TOO BIG! 


READY2 

RS, #44030 
MAKFLIT 

R2 

EXPNEG 

PO, MPYTEN 
Re 

EXPTEN 
MAKFLIT 

RS 

MAKFLIT 
R4, #8, SCALAR 
MAKFLYT 
LINECKS), RS 
Ri 

R4RS 
MAKLNO 
(Ra), #,GOSuUB 
MAKING 
(RL), 8, GOTO 
MAKLNO 


“Nee 


BASICL 


5416 
5117 
5218 
5419 
5128 
5221 
5122 
5123 
5124 
5125 
5126 
5127 
5428 
5129 
5136 
5132 
5132 
3133 
5434 
5135 
5136 
5137 
5138 
5139 
5140 
5143 
5142 
5443 
5144 
5145 
5146 
5447 
5148 
5149 
5150 
5451 
5152 
5153 
5154 
5455 
5156 
5157 
5158 
5159 
5168 
5262 
5162 
5163 
5164 
5165 
5166 
5107 
5168 
5169 
5178 


BASIC, 


5472 
5472 
5473 
5474 
5475 
5276 
5177 
5178 
5179 
5188 
5184 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5198 
5191 


MACK14 


922799 
822704 
822706 
322712 
822734 
022720 
022722 
922724 
822726 
922738 
822732 
322736 
822749 
922744 
022746 
822752 
822754 
922756 
822768 
822762 
022764 
822766 
022770 
822772 
822774 
23000 
023004 
923810 
623012 
023014 
823028 
23522 
823826 
823838 
823834 
823836 
923849 
823042 
823046 


023059 
323954 
823069 
823962 
023866 
823072 
023074 


823076 


MACXI2 


023182 
323194 
923118 
923112 
823114 
823116 
323122 
823424 
823126 
0231358 
323132 
323136 
223142 
223144 
023146 
323158 
023152 
923154 
823156 


vees 


121127 
284441 
124127 
201436 
121127 
884433 
905201 
805803 
095704 
082474 
029427 
883883 
112721 
096407 
112721 
390304 
820108 
183839 
110424 
080394 
110421 
085726 
20100 
104002 
890167 
900167 
800167 
099202 
0245283 
820365 
103033 
021327 
183483 
862783 
900767 
024324 
eo4e25 
062733 
908762 


262703 
029365 
193495 
804767 
829365 
183344 
805743 


229365 


vOas 


101346 
848365 
385043 
810443 
885726 
080167 
295723 
881002 
995704 
884703 
084767 
122721 
888303 
329188 
103344 
1120321 
880383 
140322 
080675 


22emMARe73S 
oge224 
oge242 
888506 


900377 
800375 
380376 


176548 
477378 
177579 


90oe1¢ 
177775 
000012 


698004 


seegee 
oeen72 


990972 
ge072 


eeo12 


22eMARC73 


30014 


177409 


174374 
809574 


15142 PAGE 6645 


cuPa 
BEO 
CMPB 
BECO 
CHPB 
BEQ 
INC 
CLR 
TST 
BLT 
CHP 
ect 
LIYZERON MOVE 
BR 
MAREI2) MOVE 
LITCOMNISWAB 
_CMP 
BHIS 
MOV 
Swas 
MAKEOK} MOVE 
TST 
cme 
BHI 
JMP 
TRNERG} JMP 
ERROVS| UMP 
MAKLNO} INC 
MOV 
LNOSRCHICMP 
BHIS 


TSLNO} CMP 


STOLNOI 


STOAOK! TST 


15h4a PAGE 66°6 


BHt 
MOV 
CLR 
MOV 
FOUNOLNITS? 
UMP 
MAKFLITS 


CALNAM| JSR 


CRLF CALL 


MAKLNG 
CRE) 8, THEN 
MAKLNO 
(RL), #,LISt 
MAKLNO 

Ry 

RS 

Re 

MAKFLIT 
R4,8577 
MAKEL2 

Hy TLITS RL) e 
MAKEOK 

M ELITZ CRED * 
Re 


R4,R2 
TRNERG 
RO, (RIO 
R4 


R4, (R10 
(SP)e 

R4,ROE 

TRNERS 
TRANLUP 
ERRTRN 
ERROV2 

RL 

(RS) KS 

RS, LOFREE (RS) 
STOLNO 
(R3) B, SCALAR 
TSLNO 

#42,R5 
LNOSRCH 

(R3) ARS 
FOUNOLN 
#4,R3 
LNOSRCH 


SNOSTH 
#4,R3 


SNOSTK 
#6,R3 
R3,LOSTRIRS) 
STOAQK 

PG, UPPACK 
R3,LOSTR(RS) 
ERROVS 

#(R3) 


RS, HIFREE(R5) 


ERROVS 

RS, OPREE(R5) 
e(R3) 
R4,0(RS) 


LIY2ZEKO 

PG ,NOKM 

My FLIT A CRIVe 
RS 


RL, RO 
TRNERS 
RSp(RLI& 
RS 

RS, (R1D © 
LITCOMN 


CHECK THAT THE SYMTAB SPACE 
sTS SOY OCCUPIED BY STRINGS 


dIP IT 1S, MOVE STRINGS UP 
BAND CHECK ROOM ENOUGH AGAIN 


sADJUST SYMTAB AQORESS 


AXE 


2e7 


BASIC 


5192 
5193 
5194 
5195, 
5196 
5197 
5196 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
3207 
5208 
5209 
5210 
521i 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
522k 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
52408 
5241 
5242 
5243 
5244 
5245 
5246 


BASICL 


5247 
5248 
5249 
5250 
5254 
5252 
5253 


MACXLL 


323168 
823162 
825164 
823166 
823178 
823174 
023290 
825204 
323206 
23218 
023212 
B23216 
923220 
923224 
823226 
623238 
623232 
023234 
223236 
023246 
823242 
823244 
825246 
023250 
923252 
823254 
825260 
223262 
823264 
823266 
923272 
023274 
323276 
223308 
923304 
923306 
923312 
825314 
823329 
825322 
823324 
823326 
823332 
823334 
223336 
823348 


MACX42 


823342 
823344 
023346 
92335¢8 
823352 


V62i 


310146 
310246 
510346 
983946 
016503 
326582 
819265 
885916 
154146 
081912 
620165 
184372 
8140265 
005726 
812603 
022602 
842602 
890207 
161603 
085905 
154103 
200303 
154103 
380303 
205304 
330327 
381482 
285383 
061503 
820365 
183347 
820306 
103035 
828365 
104342 
820365 
184805 
020365 
103334 
820325 
193732 
262726 
024303 
904326 
964601 
166143 


vo2s 


360213 
114242 
305316 
303375 
200747 


22eMARC73 


800074 
Baeei2 
880074 


egeo72 
200072 


300003 


888004 


800010 


090012 


00834 


890804 


22ahARe73 


15142 PAGE 67 
, _ , LFNOF  SNOSTR 
| peewee ccc wen sen gneceowngsccrsccessoesanesscesesces 
} SUBROUTINE 'UpPACK! CALLED BY Jsp PC 
' PACKS STRING STORAGE TOWARD NIGH CORE 
! R@ UNUSED 
' RL,R2,R3 PRESERVED 
' R4 UNUSED 
' RS MUST POINT TO USER AREA 
} SP GOES 1 MEEPER AFTER VSR 
UPPACK} MOV RL,e( SP) 
MOV R2,0($P) 
MOV R3,e(SP) 
CLR (SP) 
MOV WISTROIRS) AL 
MOV HIFREECRS),R2 
MOV RA HISTRERS) 
UPPLOOPICLR (SP) sGET END OF THE NEXT STRING 
BISsB e(RL), (SP) 
BNE UPPNZKO ICLAST BYTE CONTAINS THE LENGTH) 
UPPBAD} CMP RA, LOSTRORS) 
BHI UPPLOOP 
MOV R2,LOSTR(RS) 
rs? (SP)o 
MOV (SP)o,R3 
MOV (SP)4)R2 
MOV (SP)e RL 
RTS Pp 
UPPNZROISUBS CSP) ,KL HAOORESS BACK PTR 
CLR RS 
8ySB oR) ARS 
SWAB RS 
B1se e(RL) ERS 1GET IT IN RS 
Swas RS 
oECc Ry 
BT RS, 84 sCHECK REL TO SYMBOLS 
8EO 1% 
DEC R3 
aoo (R35) RS HYES, A00 BASE OF SYM YAR 
cup RS,POLERS) IMAKE SURE ITS NOY TOO WI 
BHIS UPPBAQ 
CMP R3,SP sIN STACK IS OK 
BHIS UPPGOOO 
CMP RS,ARRAYS(RS) jyIN ARRAYS IS GOCO 
BHI UPPBAD 
CMP RS, HIFREE(RS) HIN FREE STORAGE IS BAD 
BHI UPPGOOO 
cmMP RS, LOFREE(RS) 
BHIS VPPBAD 
CMP RS, RD) 
urecoooisas —saytthy —J0nbaafutecy SOMES FSB 
1 #4, (SP) , KING, MOVE [YT UP 
cmp (R3), KL AVF 
BNE UPPBAQ sCOON/T GARBAGE COLLECT IT) 
ao0 CSP), RY 
sus Ra, (RS) 
15141 PAGE 6704 
aoo R2q (RS) 
Move e(RL)ee(R2) 
oec (SP) 
8GT 1a4 
8R UPPBAD 
1 ENDC 
SS 
AST 


BASICL 


5254 
52558 
5256 
5257 
5258 
5259 
5268 
5261 
5262 
5263 
5204 
5265 
5266 
5267 
5208 
5269 
5270 
5274 
5272 
5273 
5274 
5275 
5276 
5277 
5278 
5279 
5289 
5281 
5282 
5283 
5284 
5285 
5286 
5287 
5288 
5209 
5298 
5294 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 


BASICL 


5309 
5318 
$311 
5312 
5313 
5314 
5315 
5316 
5317 
5318 
5349 
5322 
532% 
5322 
5323 
5324 
5325 
5326 
5327 
5326 
5329 
5338 
5334 
5332 
5333 
5334 
3335 
5336 
5337 
5338 
5339 
5348 
5341 
5342 
5343 
5344 
5345 
5346 


MACX12 


623354 
323356 
823360 
823362 
023366 
323370 
323374 
823376 
823402 
323404 
823418 
023412 
923414 
823416 
923428 
0235422 
823424 
823430 
823452 
8234354 
023449 
823442 
023444 
923446 
923459 
023452 
023454 
823469 
323462 
823464 
023466 
023472 
823474 
023476 
623502 
923504 
023519 
923512 
923516 
623520 
923522 
823524 
823536 


323532 
023534 
023549 
923542 
323546 


MACX44 


223559 
223552 
323536 
823569 
323564 
823566 
023572 
023574 
823576 
823602 
223606 
323618 
O23614 
325616 
323622 
323624 
823626 
323630 
823632 
323636 
323640 
823646 
923658 
823652 
823654 
323656 
925662 
923664 
823666 
323678 
823674 
323676 
823798 
923792 
823726 
323710 
823712 


ve2t 


385022 
385823 
385004 
122927 
304775 
124027 
193427 
124927 
101924 
920327 
181405 
285208 
985702 
882764 
395202 
000757 
884767 
395046 
112916 
162716 
062604 
685503 
905702 
361745 
985242 
088743 
122027 
ae1g24 
095702 
801083 
312722 
090733 
303000 
122027 
201775 
124027 
183405 
121927 
101002 
o85208 
680765 
122927 
801409 


095046 
124927 
204956 
320165 
381453 


Vo2s 


805220 
121927 
884774 
122027 
781406 
124927 
204003 
985220 
812726 
122027 
204775 
124027 
183423 
121927 
181928 
241646 
386316 
306316 
066616 
986316 
242766 
262616 
805946 
112816 
362616 
462746 
300747 
905716 
882895 
342716 
085416 
885702 
382003 
942722 
885402 
962622 
280207 


22nMARG7S 


2909490 
8892008 
890871 
914650 


173764 


299060 


988056 


1290808 


300840 
290868 
086872 


888185 
oeevee 


22eMARe73 


990048 
0806535 
989055 


190809 
208040 


90o06e 
980871 


280002 
277777 


080868 


190000 


190008 


9eeeo2 


15142 = PAGE 68 


Jecewccnsccce qeowccees codec c seve genegeecccsssecnces 


1 SUBROUTINE 'VaLé CALLED BY JSR R7 
’ CONVERTS AN ASCII STRING AT (RO) 
’ TO A VALUE IN R3,R4, AND 
’ ‘ AN EXPONENT IN R2 
VALS 
CLR R2 HOEC PLACES4+4290002 OR TRAILING ZEROES, 
CUR RS IHIGH OROER OF 32 BIT INTEGER, 
CLR R4 JLOW ORDER OF 32 BIT INTEGER, 
NUDIGITICMPB CRB) OBL 
BEG a4 
cMPB (RB) AtO 
BLO NOTOIG 
CMPS (RO) MED 
aH! NOTOIG 
cMP RS, 944630 SUF HIGH WORO GREATER THAN THIS 
BLOS CANFIT HYHEN CANT FIT ANOTHER OIGIT IN 32 BITS, 
ING RO 
TS? R2 HCANT FIT DIGITS IN MANTISSA, BIT {TS 
eur NYOIGIT sAFTER POINT SO NEEONY COUNT THEM, 
INC R2 SCANT FIT DIGITS IN MANTISSA SO MUST 
BR NYOIGIT JKEEP YRACK OF TRAILING 2ER0ES;, 
CANFIT} JSR PC, MPYTEN 
CLR #(SP) 
“OVE CRB), (SP) PANO ADO IN THE DIGIT, 
sys 910, (SP) 
ADO (SP)4)R4 
aoc RS 
rsY R2 
BE0 NYDIGLY sFITS IN MANTISSA, 
INC R2 IFITS IN MANTISSA BUT AFTER POINT SO 
oR NYOIGIT sCOU"T DECIMAL PLACES, 
NOTOIG) CMPB CRO)opat, 
BNE NOTOOT 
Ts? R2 
BNE OOTROT 
MOV #1002000,R2 1O00T COMES AFTER SHORT NUMBER SO GET 
BR NUOIGIT pREAMY TO COUNT DECIMAL PLACrS, 
DOPROT! SGT DOTIGNO 
DOPIGNOSCHPS (RB) o, 8BL 
gea 704 
cMPB s(RQ) at sOOT COMES AFTER FULL MANTISSA WITH 
BLO PASTOOT HTRAILING ZEROES SO IGNORE MORE OJGITS, 
cMPB (RO), 809 
BH PASTDOT 
INC RO 
BR OOTIGNO 
PASTOOTICMPB (ROpOpat, sOOT COMES WHILE IGNORING TRAILING 
BEO ooTsAD PAFTER POINT WITH FULL MANTISSASERROR, 
NORDOT! CLR #(SP) 
° 
CHPB = (RQ), APE BIO 
BNE NOEXPON INO ‘EL AFTER THE NUMBER 
CMP RA LINERS) yIF ITS THE FIRST THING ON THE LINE IT 
BEG NOEXPON sMUST BE A LINENO SO #E/ IS ILLEGAL, 
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INC RO 

Cups (RB), #8y 

BE0 186 

CMPB (RO) Op eee 

BEO EXPOIG 

CMPB a(ROI ate 

BNE EXPOIG 

TNC RB 

MOV #100008, (SP) 
EXPOIG) CMPB (RB) oe, BL 

EQ yea 

CMPB (RO), 88 

BLO EXPOUN 

CMPB (AB), 8E9 

BHI EXPOUN 7 * 

MOV {(SP),e(SP) 

ASL (SP) 

ASL (SP) 

LY]) 2¢SP), (SP) 

ASL (SP) 

aIc 4877777,2¢SP) 

ano (SP)4, (SP) 

CLR e (SP) 

MOVE (RO), (SP) 

aod (SP)4, (SP) 

sus #10,(SP) 

§R EXPOIG 
EXPOUN) TST (SP) 

8GE NOEXPON 

Bre #300008, (SP) 

NEG ¢SP) 
NOEXPONITST R2 

BGE EXPOK 

Bic 8199208,R2 

NEG R2 
EXPOK} A00 (SP) o,RZ 

RTS PC 


BASIC, 


5347 
5348 
5349 
5358 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5300 
5363 
5362 
5303 
5364 
5365 
5366 
5367 
5368 
5369 
5378 
5374 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5384 
5382 
5383 
5384 
5385 
5386 
5387 
5388 
5309 
5399 
5394 
5392 
5393 
5394 
5395 
5396 
5397 
53968 


BASICL 


5399 
54200 
5401 
5402 
5403 


MACKXLL 


B23714 
823716 
823728 
023722 
823724 
823726 


023768 
323762 
823764 
823766 
823778 
023772 


324g24 
324926 
824038 
824032 
324934 
324036 


MACXL1 
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4 
1 SYSTEM 1/0 BUFFERS AND HEADERS 


! 
823756 PREFHO} 
923757 
823730 
oseoee 
923730 
860ge8 
823738 PRBUF 
823760 ' 
023757 PRBEND 


5 
1 paper 


4 
323774 pparHot 
824023 
223774 
ooeecs 
28774 
aeeges 
823774 PPBUF 
S2ag2e ’ 
224623 PPBEND 


+EPNOF SNOPTP 
TAPE READER 


e pRBUF 
+ PRBENO 
,WORO = PRBYF 
ry a 
WORD PRBUF 


WORD a 
bat) 
=, eSPRBS2 
Biel 

i tVEN 
TAPE PUNCH 
+ ppeuF 
‘ PPBEND 
,WORD = PPBUF 
+ @ 
;WORO = PPBUF 
;WORD 
ba) 

, *SPPBS2 
ered 

seVEN 

ENO 


VTENOF = SNOLPT 


' 
J LINE PRINTER 


U 
824949 LPBFHO) 
824077 
824040 
800088 
824948 
ITT TT 
024040 LPeaUF 
024198 ’ 
826077 LPBEND 


o LpBuUF 

. LPBEND 
sWORD = LPBUF 

o a 


WORD = PBUF 


sWORD 8 
belt) 

#, eSLPASZ 
eyal 
EVEN 
,ENOC 


Ve2a 22eMARa73 15444 PAGE 73 


924120 ENBAB 
egegeg! 

egeeog! BEGIN 
224100 ’ 
380004 


Ss 
+CSECT 
2) ¢ENDAG 
+ END 


iBsrrT 


BEND 
sBGETL 
1BGET2 
sBPUT 
WBFSPEC 


s8STAT 
sBEND 
sBGETL 
sBGET2 
yePuT 
sBFSPEC 


sBSreRT 
sBEND 
sOGETL 
sOGET2 
sBPUT 
1BFSPEC 


AIA 


BASICL 


ADOINT 
ADOZER 
AWLNOA 
ALLSTR 
ARGS 

ATAN 

BF SPEC 
BOMB 

BOMBNX 
BSTRT 
CALL. 

CALLNM 
CANFIT 
CAYNOT 
CHKCHR 


ONPIGN 
DOCHAR 
DOTBAD 
ECHOSP 
EOI WMP 
EDIMVY 
EDIRLC 
EOISKI 
END 

ENDSOU 
EREXP 
ERRAGL 
ERROEE 
ERREXP 
ERRMIX 
ERRMX4 
ERRMX8 
ERROVS 
ERRPO2 
ERRRET 
ERRSS2 
ERRSX4 
ERRSX5 
ERRSX9 
ERRTRE 
ERSTAR 
EXECUT 
EXPOUN 
EXPTEN 
FILLCH 
FIXRET 


BASICL 


FLINE 
FNFN 
FNOLNN 
FNRSNU 
FNSWAP 
FORGTL 
FORNQOL, 
FOUNOL 
FRSTOU 
FUNRET 
GEYCHL 
GET2BY 
GOTECH 
GoToaT 
HIFREE 
IF COMP 
IFLLTR 
IFSGT 
IWIT2 
INTTSC 
INPLOO 
INPNUL, 
TNPSTO 
INPYOL 
INTRTS 
INT2 
INT7 
IOWAIT 
{Tas 
KBCO 
KEYA 
LEVFNE 
LEVILT 
LINA 
LINENO 
LISTSV 
LITNOR 
LITTST 
LOCGET 
LOFREE 
LPB 
LPERR 
LPSTRN 
USTCRLE 
LSTFN 
LST UMP 
USTLNX 
LSTPRO 
USTTEX 
MAKEOK 
MAKGOT 
MSG 
MSGSUP 
NEXGTL 
NOCHR2 


MACX11 


087662 
807742 
919842 
019164 
919262 
eeecee 
8oo812 
8403520 
19360 
2230000 
083104 
803242 
923424 
813832 
819602 
908492 
911978 
011902 
985312 
921646 
909015 
907312 
382326 
011150 
811576 
016174 
823532 
900194 
8920356 
081724 
981772 
981542 
003340 
922036 
43214 
614514 
004134 
814064 
013812 
003762 
013448 
991662 
8135292 
004226 
012116 
083236 
012546 
013470 
086352 
843214 
802746 
823664 
922614 
oae112 
915032 


MACX14 


015034 
044252 
814452 
014734 
814276 
084666 
004444 
023114 
817519 
013446 
815232 
015150 
997222 
011516 
000012 
903630 
083712 
003766 
011650 
815554 
205736 
006342 
006152 
005730 
015726 
015716 
916010 
016192 
815360 
026774 
090476 
816374 
81635@ 
a161e0 
980030 
902262 
017552 
317570 
816410 
gae014 
177516 
807546 
811720 
016744 
616712 
047114 
817202 
216604 
817026 
322764 
217306 
817452 
337290 
025160 
8075¢2 


VO23 


vo2s 


22eMARe73 


ADOOVF 
ADSTKL 
ALLOC 
aALOG os 
ARRAYS 8 
ATNEN 
BGET1 «& 
BOMBOO 
BOMBOK 
BUPCLR 
CALLCK 
CALLX 
CARRET 
CCEXIT 
CHKISE 
CLMNPP 
CLRLOO 
CNCFLG 8 
COLWMN # 
CONGAT 
CRLFME 
OEVERR 
OJMNON 
DNPACK 
ONPLOO 
DOT TNO 
OOTIGN 
EDICHG 
EDIMME 
EDJOVE 
EOTRLO 
EOUSRC 
ENOAB os 
cor 
ERLOG 
ERRARA 
ERROEF 
ERRFNY 
ERRMXL 
ERRMXS 
ERRMXD 
ERROV2 
ERRPOS 
ERRRUN 
ERRSSS 
ERRSX2 
ERRSX6 
ERRSYN 
ERRUEN 
ERSX19 
EX}T92 
EXPFEN 
Fach s 
FILLCO 8 
FIXTST 


22eMARW73 


FUIT 
FNNEWN 
FNRCOM 
FNRSSC 
FOR 
FORLOO 
FORONE 
FOUNOV 
FUNCT] 
GCWAIT 
GETVAR 
GOEXEC 
GoTo 
GOTVAL, 
HISTR = 
IFLEND 
IFLOoP 
IGNORE 
IMMED 
INPEND 
INPNEW 
INPOK 
INPSTR 
INT 
TNTL 
INT2A 
INTS 
ISLNO 
ITABLE 
KBHO os 
KEYWOS 
LEVLIT 
LEV2LT 
LINOUN 
LINGET 
LITCOM 
LITOK 
LITZER 
Loc,oo 
LOGFN 
LPBENO « 
LPYNT 
LSV8S, 
LSTEOL 
LSTiLe 
LSTKWO 
LSTLOO 
LSTPTR 
LSTVAR 
MAKEST 
MAKLNO 
MSGCOM 
NEXEND 
NEXLTL 
NOCNC 
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907792 
924464 
010018 
aceoee 
posers 
913252 
gepeg4 
018372 
010470 
0105198 
883136 
903290 
o22244 
o19700 
840792 
a00eoe 
o11920 
Beg186 
909034 
g13e2e8 
BO7322 
921054 
902346 
011296 
811232 
842274 
823676 
921656 
981330 
931476 
ov2830 
081346 
024108 
803368 
910312 
040254 
282634 
983232 
914242 
004222 
OL3318 
o22088 
993756 
082726 
916576 
085268 
904450 
042544 
014520 
904674 
007416 
913268 
gooees 
020118 
045018 


6 


id 
G 


15144 


911656 
914462 
614798 
814642 
284234 
024420 
04404 
O22496 
B13328 
815350 
O15364 
006230 
04050 
012640 
9200764 
803536 
983506 
902742 
ee2e42 
oue2e4 
BO5764 
006112 
006254 
045574 
045664 
015722 
816022 
023036 
039777 
900192 
Opgege 
046306 
810344 
617516 
816134 
822752 
817698 
022749 
016524 
Q13274 
024077 
007530 
816776 
816732 
917062 
816664 
816610 
Bi7t20 
047214 
017252 
823010 
017454 
805176 
985179 
882766 


G 
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aooros 
ALLEXE 
aLbocs 
AMATCH 
ASSIGN 
BEGIN 
BGET2 
BOMBUM 
BPOL 
BYFEMP 
CALLML 
CALNRM 
CAaTCOM 
CCMES 
CHKOSE 
CLMNTT 
CLROK 
CNOFLG 
COMCHK 
cos 
OEFOUN 
OJMOON 
OMSCL 
ONPBAD 
ONPN2R 
OOMSG 
OOTROT 
EDICON 
EDIMOo 
EDIPAS 
EDtROO 
EoIT 
ENOCR 
€RA00 
ERPOB? 
ERRARG 
ERRDIM 
ERRFPU 
ERRMX2 
ERRMX6 
ERRNEX 
ERROVS 
ERRPOS 
ERRSOV 
ERRSTR 
ERRSXS 
ERRSX7 
ERRTRN 
ERR4WO 
ERSX12 
xP 
EXPNEG 
Fac2 
FILLNO 
FUMUP 
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FULX 
FNNOCO 
FNREPL 
FNRSTR 
FORGO 
FORLTL 
FORSKI 
FPPRES 
FUNCTY 
GeYBYT 
GEYX 
GONOSA 
GOTOFN 
GSBCTR 
IDEV 
IFLEGR 
UFNUME 
ILsTCo 
TMMSTM 
TNPEOL 
TNPNGU 
INPPC 
INPUT 
INTEXT 
INTLA 


MAKETR 
MINUS 
MSGERR 
NEXFTL 
NEXT 
NODIGI 


867796 
o40242 
062452 
822786 
883278 
BOQSBOR 
B20b6 
@19504 
@424422 
@45222 
883146 
823182 
B13104 
897325 
018718 
O98056 
011008 
000107 
#10714 
eeooee G 
O8240e 
002074 
8825594 
21240 
8411204 
617504 
O23474 
061540 
001516 
081406 
setae 
601226 
b22044 
015244 
012646 
G18342 G 
982626 
eneeee G 
O420604 
24444 
085252 
823004 
044236 
@17272 
843206 
645522 
083624 
22476 
084532 
049762 
eao0ate G 
822636 
baged2 G 
@68111 
044754 


015002 
214526 
014502 
014636 
004730 
604700 
04414 
915066 
D1SSS2 
615194 
045246 
084126 
@12200 
2ag0s2 
200077 
093560 
083640 
41666 
692124 
906350 
006234 
805752 
885690 
0211352 
045676 
615750 
816052 
922544 
621939 
07000 
603256 
b16304 
Be0ez2 
o0e0¢o 
016404 
047642 
BL7652 
023014 
046592 
eoge72 
@24024 
807594 
B17002 
17110 
047040 
816750 
016724 
@47010 
817300 
047370 
@12504 
O17444 
22190 
904752 
G22306 


aDOSTK 
ALLLOO 
ALLOC2 
AMPWAT 
ASSSTR 
REND 
AL 
ROMBNE 
BPUT 
RUFTP 
CALLM2 
CALOS 
CATLON 
CExXP 
CLEAR 
CLRECH 
CLRSVA 
COOE 
COMES 
COSFN 
SEFGOT 
NIMGOT 
OTVLOO 
ANPGOO 
NOALLO 
nOoPUT 
ECHORA 
FOIGRO 
EDIMOV 
EQIPUT 
EDISAM 
eOrre 
ENDQUO 
ERCHAN 
FRPOGL 
ERROAT 
ERROLV 
ERRGO 
ERRMX3 
ERRMX7 
ERROVR 
FRRPOL 
ERRPNS 
ERRSSL 
ERRSXA 
ERRSX4 


MEXGO 
SOCHAR 
“OEX®Q 


907622 
819832 
002924 
a13002 
Ga3s24 
Boezs2 
0230040 
g104eg 
waoe1e 
B195646 
0931708 
914212 
813054 
a14224 
@81152 
O07164 
@11252 
@89016 
0873530 
a1323e 
992642 
2224n6 
@11154 
O11352 
822536 
ge7ers 
887304 
ao1e24 
21950 
901902 
ae1752 
gar2sa 
222416 
310766 
O133514 
206526 
913576 
804442 
915526 
321530 
313214 
BL14772 
012360 
815932 
a14246 
o11714 
086250 
022566 
819312 
911402 
823682 
023718 
aeon14 
g1503e 
815056 


014716 
214750 
914602 
314362 
804726 
oe4>20 
2047234 
15114 
313364 
g15230 
915142 
064050 
016234 
020750 
083402 
903772 
903054 
@11632 
015936 
006176 
806320 
205754 
305672 
913444 
15714 
@15790 
801222 
O22254 
023376 
806722 
816352 
216492 
a08a82 
216460 
ad2272 
216254 
Q17656 
o16424 
916462 
811720 


a p24040 
= 4775914 


316676 
217270 
817452 
817152 
016646 
016652 
822746 
823122 
017414 
817900 
g25214 
015252 
323676 


G 


6 


AAS 


BASICL 


nOQM 
NORNOQ 
NOYOOT 
NOTSYM 
NUMALN 
NUMEX] 
NUMFM2 
NUMLPS 
NYMOUT 
NUMSHF 
OuD 
OPRFN 
PASTOO 
PLUS 
POWLP 
PPBFHO 
PPS 
PRBUF 
PRECS 
PRICOM 
PRINCR 
PRITES 
PRS 
PTRINT 
PUTAOK 
PYTIT 
Qyore 
READOY 
READSY 
REAFIN 
REMPAC 
RETRY 
RNOCY 
RUN 
RASAVE 
RSSAVE 
SAVCHA 
SCANPN 
SINFN 
SKIPTX 
SLASH 
SPARE 
SSaSav 
STAR 
STOMMC 
STOSTR 
STOVAR 
STRGAR 
SUBINT 
$,0102 
TABLES 
TAB2 
TBLSEN 
TPB 
TPINT 


BASICL 


MACKS 


986208 
929274 
823532 
803262 
820224 
829562 
920478 
020540 
847724 
829132 
292172 
6135464 
923524 
812430 
007574 
823768 
177554 
023730 
812244 
005512 
685632 
005600 
890168 
987336 
822440 
920764 
012552 
006456 
o06714 
006552 
822222 
821646 
006076 
862516 
020846 
988052 
029578 
G21134 
045222 
o21244 
942466 
209115 
200024 
812462 
821492 
022000 
021254 
012652 
021478 
007054 
002118 
021946 
814626 
177566 
887074 


MACKXL4 


921548 
022072 
021614 
012520 


= 890056 


014194 
914128 
913710 
013760 
814040 
014146 
013616 
813474 
B232g4 
11732 
812019 
16120 
eoenee 
eeosee 
seenee 
oeg3e0 
080343 
oo2223 
809247 
908225 
OO0374 
oog204 
988375 
000244 
288272 
908250 
20g232 
200216 
980213 
008307 
000325 
088251 
oe0242 
802276 
900248 
624198R 


QAO 


vo2s 


Ve2a 


ERRORS OETECTEO! B 


22eMARe73 «= 45844 
NOQMS 806014 
NOROOM 828790 
NOTIT 822342 
NOWRAP 928646 
NUMBIG 929296 
NUMFIX 928092 
NUMFMS §=6920504 
NUMNEG 828038 
NUMPOS 829036 
NUMSTT g20952 
OL098%2 B82230 
OTABLE 048774 
PC =#%908007 
PNOGO 022156 
PowyUP 007572 
PPBUF #8 823774 
PRB #177552 
PREC2 842266 
PREOT 907426 
PRIVMP = 985696 
PRINT 685264 
PRNTIOE 887278 
PRE ® 900200 
PUSH 036846 
PUTBYT 928614 
PUTITI 822414 
QUOTPA 921752 
REAOGO BB6A24 
READY 301144 
REANUL 886710 
RESREG 21114 
RETURN 894154 
RNOGOT 982608 
Re 5X9BB000 
Re 8x990002 
R4 8x000004 
SAVE B02234 
SCRATC 981122 
SKjPEQ =. 842478 
SKIPOL 921166 
SOPRAT 912728 
SPECME 087334 
SS2SAV = 990026 
STOAOQK 923074 
STONOS 0821396 
STOSVA 9823336 
STOVvCO = 21424 
STRGBT 812674 
SUBSTK 621450 
TAB ® 900011 
TABLES 8115962 
TABS 046258 
TERMIN 832554 
TPCN 087240 
TPNXT 887122 
22eMARG73 «= 15144 
TRANVA 6215944 
TRNPC 021642 
TRYNUM 921566 
TSYS2 042526 
T2 = p80068 
UANJMP = - 844498 
UAL 835520 
uagec 833720 
UALTA 913772 
UAL? 44056 
YAa 013558 
UINTEG 342406 
UPPACK 923160 
UPPNER 923236 
VARNOS 9812156 
VERNUM 900040 
XCHAR 845278 
SIR 2 efeene 
SPPBSZ = gogn30 
SSYKS2 = gag200 
AYN = -® 908270 
1GOLON * 888268 
,OEF == g88221 
+E 3 838245 
15 = 808204 
1FN ® 900262 
GOTO #8 gag2g5 
rILIT2 8 889376 
»eEN = «8 088277 
1bPAR 2 999255 
NEXT ® 9802113 
POS) = ® 980352 
yREAD 8 999222 
¢RNO = 908264 
SAVE ® 990319 
,SEML & 980236 
1, SOR ® 008267 
STOP = gpB214 
TERM = 989235 
WNARY & 880233 
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NoQuOoY 
Nosvss 
NOTKWO 
NOWRP 
NUMOIG 
NUMFLY 
NUMUMP 
NUMNOR 
NUMPRS 
ODEV 
OPERAN 
Ourese 
POL 
PoP 
PPE 
PPERR 
PRBEND 
PRECS 
PRIBOT 
PRILOO 
PRISEM 
PRNTOL 
PRY 
PUSHF 
Purcco 
QUNULL 
READ 
READOU 
READYS. 
REASRC 
RESTOR 
RETVAR 
RNOL 
ROSAVE 
R2SAVE 
R4SAVE 
SAVREG 
SETLFE 
SKIPHI 
Sk{Pa2 
SOPRX 
SQRFN 
STAR 
STOCOM 
sToP 
sTosx 
STOVTA 
STRGYJM 
SYMBOL, 
TABLES 
TABLS 
TBLIEN 
kB 
TPCO 
TPS 
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TRENBA 
TRYAGN 
TRYSVA 
TYPE 


SPRBS2 


841522 
o155268 
822200 
045234 
829308 
820106 
824620 
820140 
028058 
088076 
013424 
024034 
oopoe4 
016000 
477536 
007474 
823757 
812208 
285670 
0054352 
085570 
905326 
gee3see 
912530 
020734 
212636 
006336 
086522 
o01140 
086546 
884036 
az25i6 
gegoes 
oon044 
TILES 
990054 
O2a272 


oe3010 
005406 
063200 
177562 
007254 
177504 


822130 
821644 
8223872 
0871442 
oaero2 
014150 
013630 
843732 
a14040 
014136 
013556 
011444 
O23212 
eeeeee 
ooaez2 
612122 
eegeee 
ooge4a 
290850 
8o0273 
oeg224 
oen24s 
000215 
089254 
0ag254 
pep203 
090253 
800287 
eo0210 
999252 
477776 
000261 
oog2ze 
pagzes 
477775 
200275 
900257 
200305 
280377 
000227 


NORM 
NorolG 
NOTNOW 
NUDIGI 
NUMOTV 
MUMEMG 
NUMEPL 
NUMOK 
NUMSGN 
OFFTYP 
APRATO 
OuTa12 
POSIZE 
POWOWN 
PPBENO 
PRINT 


SAVRGI 
SIN 
SKIPRY 
SKIPSS 
sP 
SORT 
START 
STOLNO 
STOSSN 
STOTXT 
STPRO 
STRGVA 
$,0124 
TABLE2 
TABL 
YOL4EN 
KS 
TPHO 
TRAN 


TRNERS 
TRYECH 
TSTSTK 
TYPES 
AASR 
UATSTQ 
uUAi@A 
UAL2 
Uat79 
UA22 
tas 
UNARY 
UPPGOO 
vaL 
VARSRC 
vTWOSS 


817532 
Q23454 
812330 
O23302 
20216 
820362 
2284208 
820232 
B17736 
007212 
812166 
a10760 
8 830006 
087562 
8 024023 
007436 
6237146 
012252 
g05eo2 
905506 
on5e14 
= 177950 
8 1477776 
916072 
020706 
913162 
826934 
906614 
av1286 
815326 
222522 
014170 
= B89R66 
BxOO0oBs 
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ADSTK2 48340 ©4836 

ALLEXT 2327 2344 
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ALLOC 969 22730 

ALLOCL 938 94a4e 
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BGET2 3578 3655 
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CARRET 4976 49798 

CATCOM 3105 31368 

CAYLON 3101 31268 


22eMARe7S 15144 PAGE 7005 


29704834 
4839 
23488 


4027 


3394 


342 2624 2626 2697 3234 


4573 
2830 2139 2143 2162 2182 3689 
4376 
45768 
4242 1667 4171 4409 4861 4898 


4571-45890 504 
4375 
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CLRFRE 
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COSFN 
GR 


CRLF ME 
OEPOUN 
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OEVERR 
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ERCHAN 
EREXP 
ERLOG 
ERPOR2 
ERPOLL 
ERR4WO 
ERRAGL 
ERRARA 
ERRARG 
ERROAT 
ERROEE 
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ERROIM 
ERROLV 
ERREXP 
ERRFNG 
ERRFPU 
ERRGO 
ERRMIX 
ERRMXY 


700" 


728 
74208 


a35e 
8168 
714 


7048 
837 


2550 


3418 


34848 
2294 
2373 
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FOUNOY 
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FUNRET 
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GETCHS 
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GETVAR 
GETX 
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GONOSA 
GOSUB 
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LINE 
LINEIN 
LINENO 
LINGET 
GINRYB 
Is? 
LUSTSV 
GITCOM 
GUTOIV 
LITEVA 
LIYNOR 
LITOK 
LITSHR 
LITSTO 
LITTST 
LITZER 
LNOSRC 
LOCALO 
LOCGET 
LOCLOO 
LOGNO2 
4OGSS2 
LOFREE 


LoGFn 
LosTR 
UPAR 
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LPBEND 
LPBFHO 
LPBUF 
LPERR 
LPINT 
LPOFF 
LPS 
LPSTRN 
LSTBSL 
LSTCHA 
LSTGHK 
USTCRL 
LSTEOL 
USTFLB 
LUSTFUL 
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GSTILe 
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PPBFHO 
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PRBEND 
PRBFHO 
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2133 
3959 
3374 
4026 
4339 
4492 
4875 
4926 


664 

768 

832 
1083 
1316 
1419 
1490 
4562 
1747 
1644 
2055 
2196 
2259 
2405 


2545 
2671 
2818 
2963 
3281 
3428 
3623 
3761 
3871 
3930 
4142 
4168 
4391 
4644 
47499 
5260 
5229 


1342 
1543 
1932 
1914 
1966 
2262 
2595 
2683 
2799 
3056 
3290 
3556 
37A9 
4047 
4223 
4267 
4361 
4463 
4576 
4893 
5033 
S062 
5153 
S2a3 
5238 


957 
2032 
2232 
3179 
3393 
4029 
4342 
4495 
4ang 
4937 


666 

778 

848 
1012 
1529 
1433 
1492 
1569 
4759 
1843 
2056 
2198 
2260 
2447 


2598 
2675 
2644 
2965 
32R2 
3425 
3604 
3763 
3873 
3943 
4144 
4169 
4393 
46°7 
4792 
SOS. 
5232 


1344 
1344 
1632 
1916 
1968 
2275 
2578 
2684 
2893 
3057 
3388 
3558 
3794 
4223 
4224 
4269 
4362 
4464 
4578 
4895 
5949 
3263 
S261 
5215 
5249 


959 
2034 
2276 
3205 
3409 
4095 
4359 
4519 
4882 
5176 


679 

772 

B49 
1013 
1531 
1444 
1494 
1572 
1763 
1859 
2057 
2235 
2261 
2423 


2599 
2677 
28612 
2967 
32R6 
3438 
3632 
3876 
3875 
3974 
4145 
4219 
4395 
4609 
4794 
5178 
5234 


2678 
2692 
2832 
2968 
3288 
$449 
$633 
3878 
3876 
3972 
4146 
4241 
4397 
4614 
4an9 
5144 
2236 


3/3 


See 


SINFN 2781 $2718 
SKJPOL 4729" 4934 4746 


SK}PQ2 47268 4738 4745 ° 
SKIPOS 47278 4733 
SKIPEO 783 718 835 927 {032 1435 1954 47308 4748 4742 4749 


SKIPHI 4734 47448 
SKIPRT 4736 47508 
SKIPTX 47478 4748 


SLASH 2945 29898 

SOPRAT 74 2627 3044 30640 3085 3098 3142 3561 

SOPRX 3975 3a8L8 

sp 2738 638 644 652 664 684 680 695 697 743 756 618 847 878 


1082 tate 41116 1117 1123 1132 1135 1136 1137 1141 1142 1143 1148 1149 
1159 1454 4205 4287 1214 4245 1246 1217 1218 1222 1233 1248 1244 1246 
1247 1262 4263 1269 1271 1272 1278 1280 13592 13463 1386 1529 1484 1482 
4492 1492 1494 1495 1496 1504 4509 1507 1542 15435 1514 4945 1516 1552 
1553 1554 1555 1556 {558 1560 4564 1562 1563 1504 1565 4977 4579 1589 
1584 1582 1583 1659 {768 4769 4776 1785 1789 1797 1798 1812 1812 1813 
1829 4831 1840 1863 {864 1865 1866 4867 1869 1873 1876 1978 1941 1913 
4952 4956 1968 1969 (9798 4971 4972 4973 1974 1977 4978 4979 1985 1986 
2198 2226 2237 2238 2273 2274 2288 2287 2229 23469 2350 2400 2472 2644 
2658 2653 2665 2666 2667 2668 2672 2673 2678 2679 2686 20A4 2687 2695 
27985 2786 2731 2744 2736 2738 2740 2744 2867 2861 2895 2902 2929 2938 
2959 2954 2953 2954 2988 2999 2993 2994 3027 3029 3038 3634 332 3235 
3937 3049 3e42 3043 3059 3961 3a62 3064 3068 3073 3071 3072 3073 3077 
3983 3e95 3097 3099 3122 3123 3404 3148 3129 32111 3112 3113 3114 3116 
3419 3128 3423 3126 3427 3435 3436 3472 3173 3479 3178 3180 3183 3229 
3218 32u1 Tez 32413 3214 3215 3217 3219 3228 3221 3245 3247 3249 $260 
3263 3309 33569 3373 3385 3386 3387 33868 3389 3398 3391 3392 3409 3413 
3420 3435 3437 3439 3444 3456 3457 3458 3464 3465 3478 347n 3496 39a. 
3507 3518 35141 3342 3543 3314 3529 3526 3578 3529 3548 35941 3554 3558 
3577 3578 3582 3599 3624 3636 3657 3667 3672 3646 3691 36098 3793 3879 
388g 3882 3863 3885 3886 3998 4815 4216 4017 4024 4928 4029 4930 4239 
4949 4a4y 4042 4044 4046 4047 4049 4050 4220 4228 4231 4237 4243 4259 
4268 4265 4267 4294 4298 4306 4344 4328 4325 4329 4342 4353 4355 4356 
4358 4359 4360 4384 4385 4479 4472 4472 4473 4474 4475 4476 4484 452¢ 
4549 4569 4582 4585 4602 4649 4626 4680 4oR, 4682 4683 46R4 4685 4696 
4687 4686 4089 4099 4694 4692 4693 4694 4695 48a1 4802 4875 4826 4831 
4833 48355 4837 4838 5079 5974 3137 5475 S20. 5202 52a3 S274 5278 Dang 
5214 $215 5216 5247 $219 5232 5242 5245 $249 $277 5278 5279 5288 D304 
5317 S324 5325 5326 $327 3328 5329 5330 5331 5332 S333 5334 5336 9338 


5339 59344 

SPARE 3308 

SPECME 20668 2094 2098 2101 2104 

SQRFN 2783031750 

SORT 683175 

SS4SAV 3178 34844064496 4834844490) 5840373303787 4767 4792 

SS2SAV 3i8e 31914170485 £486) 1495) 48564558) 4889) 1872 3734 376347694794 
STAR 2944 «= 29728 

STARS 29799 = 2987 

STarT 66 209 o378 


STOAOK 5163 51678 
STOCOM 4774 4773 47758 


<i? 


STOLNO 5146 51556 

STomMc 4796 4a0as 

STONOS 4768 47726 

STOP 1056 12948 

STOSSN 4793 47970 

STOSTR 49188 © 4923 

STOSVA 1177 1872 4987 47898 


STosx 4811 4816 
STOTXT 49750 4978 
STOVAR 720 44724487) 4585) casa 942 a 7608 


sTovco 4804 4838 

STOVTA 4799 49058 

STPRO 76 3a34H = 3962 
STRGAR 2987's 38508 

STRGBT 3054 3054 3056" 
STRGUM 2836 26478 

STRGVA 2847 3e528 

SUBINT 4832 40350 

SVBSTK 1281 i496 1506 2969 - 48318 
SYMBOL 3078 308 

S$,0101 2929 20320 8 §=62033 
$0102 20368 2837 


Th 73 3308 334 4549 4868 4970 5060 
T2 75 3348 332 4546 4548 

T3 75 3328 333 1759 {763 1779 

TAB 2949 

TABL 4614 40348 

TAB2 4624 46520 

TABS 3924 39588 

TABLS 1695 16438 


TABLES 1041 10458 1046 1047 ig48 1049 1056 {052 1952 1993 1054 1055 1256 1097 
1258 1959 1260 4061 1262 4063 4264 1065 
TABLE? 29436 2944 2945 2946 2947 2948 2949 


TABLES 855 86o" 861 862 863 864 865 
TABLES 71 2774 27798 = =2784 2782 2783 2784 2785 2726 2788 
TBLIEN 1041 19658 

TBL4EN 855 865" 

TBLSEN 71 2774 28028 

TERMIN 2949 29578 

TK 2798 = 2913 

TKS 65 2788 §©62938 3718 

TPS 68 2818 = 2035 2072 

TPCN 2089 20918 

TPCO 2092 20958 

TPHO 3428 343 2079 2476 4634 

TPINT 236 2055" 

TPNXT 2058 20628 

TPS 28e8 2912 2082 4652 

TRAN 682 1810 4e52n 


TRANLY 4860" 4918 4929 4931 4950 4964 5140 
TRANVA 48618 4862 5968 

TRENBA 4943 4945 495." 

TRNER4 5433 5459 5a4ae 5485 


5 


TRNFN 
TRNPC 
TRYAGN 
TRYECH 
TRYKWO 
TRYNUM 
TRYSVA 
TSTS4 
TSYS2 
TSTSTK 
TYPE 
TYPEL 
UAL 
VALS 
UALBA 
VALO8 
vasec 
VAL8,5 
UAg2 
UAL? 
UAAT7A 
VAL78 
VAL70 
UALIF 
UAL? 
Uae 
VAaS 
UA2S 
VAG 
UAS 
VAS 
UA9 
VAASR 
UAyne 
UANJMP 
VATSTS 
UATST2 
UAYSTA 
UINTEG 
UMEINUS 
UNARY 
UPARRO 
UPPACK 
UPPBAD 
UPPGOO 
UPPLOO 
UPPNER 
USRARE 
VAL 
VARBLE 
VARNOS 
VARSAV 
VARSRC 


2834 
2288 
2878 
2896 
3901 
3698 
1998 
2338 
766 
1228 
1608 
2699 
3703 
4522 
5264 
5404 
4288 
391# 
435% 
4258 
3898 
436# 
4520 
4178 
75 
1919 
4230 
386e 
386" 
3828 
4154 
40a" 
4068 
4188 
3718 
3998 
75 
1686 
4735 
4134 
4268 
4534 
4198 
3726 
4078 
3738 
3748 
412" 
3754 
4548 
4558 
3768 
4298 


4940" 
4889 
4897 
2B75e 
4872 
48678 
5e168 
2995 
29928 
2982 
2083 
2878 
3248 
32868 
3304 
33020 
3305# 
3292 
33158 
33208 
33240 
3336 
33328 
33378 
33430 
33736 
3378 
33768 
3283 
32638 
$277 
32818 
33578 
3336 
3365 
33630 
33668 
3378 
29658 
2754 
29618 
32458 
5030 
5231 
5237 
5242 
52190 
637 
5073 
20300 
2844 
317 
500. 


2665" 


26988 
29018 
39030 
36988 
2048 
2350 
772 
1238 
1862 
2742 
3904 
4524 
5294 
5402" 
429 
392 
436 
426 
398 
437 
616 
418 
4040 
2879 
424 
389 
387 
383 
416 
409 
407 
4434 
372 
392 
3708 
1644 
4865 
4u4 
427 
2749 
420 
373 
408 
374 
375 
443 
376 
937 
939 
377 
430 


4s8z0 


2096 
48758 


29888 
R098 

20728 
32540 


3297 


3307 
3279 
3326 


3358 
3368 


5464 
5235 
52428 


2028 
5e59e 


29.38 


4399 
5810 


202 

2378 

773 
4245 
2925 
2776 
4025 
4526 
5311 


570 
481 
582 
504 
550 
584 


509 
405 
3489 
560 
548 
544 
596 
505 


004 
679 
374 
4608 
4933 
503 
566 
398, 
552 
524 
494 
534 
322 
50% 
320 
953 
955 
3538 
572 


2107 


3299 


3347 


33640 


32018 
3239 


2056 


4458 
5042 


2034 

2408 

776 
4259 
4946 
2802 
4945 
4532 
3319 


3064 
3116 


4608 
485 
3752 


1948 
928 
948 

1983 


705 

479 
1695 
4989 
1164 


4099 
Lo00 
4449 

493 
4327 
4251 
4341 


2745 
2747 


33898 


3364 


$241 


2154 


1476 
3047 


204 

2460 

780 
{286 
(965 
2996 
4657 
4855 
5363 


3066 


1766 
949 


2763 


719 
883 
4777 


£203 


4132 
2757 
1528 
1255 
54i2 
1287 


3979 
3983 


3367 


5244 


2475 


1543 
3099 


2058 

2538 

789 
4306 
2278 
3826 
4988 
4859 
53640 


9738 


4909 


823 
972 
1634 
1257 


4732 
4126 


1309 
4307 


5128 
4134 


5253, 


ase 


14790 


206 
254 
804 
1493 
2299 
3433 
4997 
4390 
5365 


$610 


4928 


878 
979 
1838 
4267 


5482 
4737 


29146 


4744 


2403 


1845 


2078 

2558 

812 
1547 
2306 
3202 
4176 
4912 
5376 


{672 


924 
(169 
4882 
4397 


4943 


$114 


3138 


3734, 


220% 

2588 

815 
1557 
2309 
3433 
4227 
4936 
53778 


1625 


1015 
1475 
4896 


1542 


4700 


2208 

733 

819 
1633 
2337 
3453 
4354 
494L 
5378 


1832 


1445 
1323 
1914 


2927 


4789 


221 
735 
622 
1643 
2615 
3524 
4357 
4984 
5393 


1636 


1958 
1359 
1921 


2929 


2220 

741 

666 
4657 
2625 
3596 
4504 
4994 
5394" 


1874 


3897 
1420 
2944 


3499 


223 

747 
L220 
1678 
2634 
3523 
4507 
5227 
5395 


1898 


4087 
1430 
3528 


2278 

763 
1224 
1804 
2646 
3569 
4509 
>2>0 
29399 


1916 


4116 
1478 
4ge5 


Se: 


SipBs2 
SMLR 

SNOLPT 
SNOPOW 
SNOPTP 
SNOSTR 


SPOLSH 
sPPgSz 
SPRBS2 
SPRORG 
SSaR 

SSTKSZ 


469 


853 


475 
2291 
2733 

497 
4447 


2755 
4599 

922 
4904 


2769 
477 


727 
4127 


4612 


2923 
4905 
4422 


4793 
5005 


3068 
4915 
4249 
4406 


2918 


2989 
3375 

995 
4733 
2852 
3486 
5099 


3334 
2461 


2147 

792 
4g49 

760 
3187 
4a49 
3049 


{201 


3128 
513 


2925 
1293 
4104 


3973 
{762 


545 


631 
4157 


1692 


2933 
2761 


1818 
5053 


4935 
1285 


2921 


3176 
3584 
1018 
1846 
2854 
3409 


3381 
2574 


2455 
1079 
£703 
2791 
3194 
4055 
5156 


4253 


934 


2931 
1343 
4739 


4705 


947 


ara 
4713 


4987 


2294 


4938 
1305 


2935 


3181 
3592 
4821 
4869 
3oa9 
3967 


2577 


2568 
1289 
4792 
2846 
3226 
4179 
5168 


4265 


10¢e 
3979 
4905 


so6y 
4772 


4921 


2545 


4972 
5116 


2939 


3184 


1339 
1926 
3015 
3936 


4642 


257 

1163 
1847 
2024 
3232 
4482 
5192 


1289 


2751 


2820 


4442 
4998 


4913 


2607 


3254 


1342 
4929 
3887 
4065 


4646 


2582 
1174 
1858 
2836 
3400 
4189 


2833 


2625 


1546 
3047 


4944 


2837 


1348 
1936 
3292 
4068 


5383 


2585 
12108 
1902 
2846 
3416 
aang 


3406 


2677 


2447 
5106 


4932 


2905 


13541 
1939 
3148 
4209 


3969 
1276 
1939 
2801 
3427 
4543 


3552 


2091 


2623 
5447 


3428 


1378 
2353 
3152 
4212 


4635 
1298 
2293 
2870 
3443 
4762 


3785 


3203 


2612 


3450 


1584 
2556 
31462 
4288 


4638 
1373 
2512 
26R4 
3917 
4779 


3236 


2644 


3518 


1464 
2382 
3145 
4057 


5353 
1422 
2326 
2904 
3534 
4783 


3494 


3432 


4956 


1464 
2385 
S268 
4663 


1412 
2362 
2997 
3555 
ogee 


SIF 


or 


886888868888 AAAAAAAAA SSSSSSSSSSSS YUIIVIVIY cececcccerce HHH HHH 
888888880888 AAAAAAAAA SSSSSSSSSSSS COU! cececccccece HAH HHH 
seseeeeeeese AAAAAAAAA SSSSSSSSSSSS TOQUTTiy ceccccceccce HHH HHH 
888 868 AMA AAA sss +3 8 ccc HHH HHH 
BBB 688 AAA AAA sss WW ccc HHH HHH 
688 868 AAA AAA sss tl ccc HHH HHW 
ube 888 AAA AAA sss Itt ccc HHH HHH 
ee8 888 AMA AMA sss oi ccc KHH HHH 
668 888 AAA AAA sss tl ccc HHH HAM 
88866888888R AAA AAA SSSSSSSSS tt ccc “HHHHHW HHH AHH 
88888b8e8888 AAA AAA Sssssssss Tit ccc HHH HHH HAH Hid 
8B8B8B88888B AMA AMA SSSSSSSSS M1 ccc HHHHHHHHHHHWHHH 
eee 888 AAAAAAAAAMAAAAA sss Il ccc HHH HEY 
B68 888 AAAAAAAAAAAAAAA sss M1 ccc HHH HHH 
ese 868 ARAAAAAAAMAAAAA sss M1 ccc HHH HHH 
BaB BBB AAA AAA sss MW ccc HHH 4H 
sea 688 AMA AAA sss Itt ccc HHH HHH 
388 888 AMA AAA sss Mt ccc HHH HHH 
888688888888 AAA AAA SSSSSSSSSSSS QILIYItr! ccccccceccce HHH HH 
88688b88R888 AAA AAA SSSSSSSSSSSS TULUTIUIY ceccecccccce HHH He 
8888686888888 AAA AAA SSSSSSSSSSSS TILItgri! eccccccccece HHH HHH 
doooDDDODNND RRRRRRRRRRRR KKK KKK 

opo0000000000 RRRRRRRRRRARR KKK KKK 

obooo0D00000 RRRRRRRRRRRR KKK KKK 

000 op0 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

000 oo00 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

000 Doo RRR RAR KKK KKK 

000 ooo RRRRRRRRRRRR KKKKKKKKK 

000 000 RRRRRRRRRRRR KKKKKKKKK 

000 000 RRRRRRRRRRAR KKKKKKKKK 

ooo 000 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

000 900 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK a 

000 000 RRR RRR KKK KKK 

oopo00000000 RRR RRR KKK KKK 

O00000000000 RRR RRR KKK KKK 

oooo0DDD0000 RRR RRR KKK KKK 
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888888888888 AAAAAAAAA SSSSSSSSSSSS VIIUQIII cccccccceecc HHH HHH 
888888888868 AAAAAAAAA SSSSSSSSSSSS YULUGLII ecccccccccce HHH HHH 
888888888888 AAAAAAAAA SSSSSSSSSSSS PSSS SSS: eccceccccccce HHH HHH 
888 888 AMA AAA sss Mt ccc HHH HHH 
888 bee AAA AAA sss ttt cce HHH lala] 
886 888 AAA AAA sss M1 ccc HHH HHH 
888 68 AAA AAA sss tt cce HHH HHH 
888 8BB8 AAA AAA sss Tit ccc HHH HHH 
686 888 AAA AAA sss Itt ccc HHH HHH 
8888888886888 AAA AAA SSSSSSSSS U1 ccc HHHHHHHHHHHW HA 
888888888888 AAA AAA SSSSSSSSS til ccc HHHWHHHW HHH HA 
8868888688888 AAA AAA sssssssss Wt ccc HHHHHWHHHHHR HAH 
388 888 AAAAMAAAAAAAAAA sss Wi ccc HHH HHH 
-I-J:} 888 AAAAAAAAAAAAAAA sss tr cce HHH HHH 
[-I-T:) 868 AMAAAAAAAAAAAAA sss 1 ccc HHH HHH 
BBB ses AAA AAA sss M1 ccc HHA HHH 
8e8 eB AAA AAA sss Mt ccc HHH Ha 
888 888 AAA AAA sss MW cec HHH HHH 
886688868888 AAA AAA SSSSSSSSSSSS YOQLTIILY ccccceccccccc HHH HHH 
888888868888 AAA AAA SSSSSSSSSSSS TULIGIUIY cccccccccece HHH HH 
886888888888 AAA AAA SSSSSSSSSSSS VILLTIrd! cccecceccecce HHH HHH 
oO00000000000 RRRRRRRRRRRR KKK KKK 

ooond00D00000 RRRARRRRRRRR KKK KKK 

oo0000D000000 RRRRRRRARRRRR KKK KKK 

000 000 RRR RRR KKK KKK 

ooo 000 RRR RRR KKK KKK 

000 ooo RRR RRR KKK KKK 

000 ooo RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

ooo 000 RRRRRRRRARAR KKKKKKKKK 

000 000 RRRRRRRARRRR KKKKKKKKK 

000 opp RRRAARRRARAR KKKKKKKKK 

000 000 RRR RRR KKK KKK 

000 000 RRR = RRR KKK KKK 

ooo 000 RRR RRR KKK KKK 

000 000 RRR RRR KKK KKK 

ooo 000 RRR RRR KKK KKK 

000 ooo RRR RRR KKK KKK 

obo0D0000000 RRR RRR KKK KKK 

obDD000000000 RRR RRR KKK KKK 

ObD000000000 RRR RRR KKK KKK 
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BASIC, 


S23 


BASICH 


29 
38 
31 
32 
33 
34 
35 
36 
37 
38 
39 
48 
4. 
42 
43 
a4 


BASICH 


64 
65 
66 
67 
68 
69 
72 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
98 
91 
92 


MACKX22 


MACXAL 


20aag¢ 


aoaeoet 
820006! 
209010! 
300014! 


300016! 
aee2ot 
agaged! 
8eoe26! 
300039! 
800832! 
BoaaS4! 
8036! 
og0g4g! 
980042! 
000044! 
300046! 
20052! 
gpeg54! 
820056! 
gae62! 
800064! 
020086! 
200079 
800072! 
820074! 
880876! 
380108! 
o2e4a2! 
900104 
200106! 
3O0118¢ 
aeo112! 
aoe1i4s 
aee120¢ 
320124! 
000159° 
OO01540 


vo2t 


Y¥O22 


2oogce! 
980000 
200004 
Beeeve 
388083 
302004 
280005 
909096 
380007 
200048 


300000 


204737 
103452 
122127 
881045 


910500 
962702 
11023 
G14902 
286303 
286102 
362902 
464003 
205502 
264002 
190082 
862702 
810320 
910240 
012709 
986383 
086122 
183422 
305300 
980773 
185923 
130293 
209333 
195902 
150922 
280302 
206022 
206003 
210265 
910365 
900137 
300137 
ooe137 


22emMARe73 


22eMARe73 


2090086 


0000006 


82008006 


100008 


O9920 


2900086 
ogageeG 
2902006 
2o90ee6 
9909006 
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U 
§ GLOBALS 


' 
G08 
1GLO8L 
1GL08L 
1GLOBL 
GLOBL 
1GLOBL 
GhOBL 
1GLOBL 
»GLOBL 
1GLOBL 
+GLOBL 
1GL08L 
+GLORL 


TPB, TKS 
START) FILLCO 

USRAREA 

LIMIT, POL, ARRAYS, POSIZE 
TABLES, TELSEND 

COLUMN, FACi, FAC2, ,RPAR 

ERRMIX, ERRPOL, ERRSYN, ERRARG 
EVAL, INT, MAKEST, OPRATO, SOPRAY 
sGOMMA, TL, 72, 73 

ARGB, SAVGWAR, NUMSGM, STPRO 
NORM, VAL 

RND1, RNDZ 

SSTKSE ,IFPMP 


' 
} ASSEMBLY PARAMETERS 
i 


 UFNOF 
STPBSZ 28 
+ENDC 


' 
TFNOF 

SKBBSZ 820 
,ENOC 


1 
, TFNOF 


SULNSP 21228 
+ENOC 
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+oSeEcY 
RO 8x0 
RL ext 
Re 8x2 
RS axS 
r4 ax4 
R5 ax5 
SP 8x6 
PC "x7 
BL 840 


USRAREA?, WORD 
BASICH) 


STpBS# ITELEPRINTER BUFFER gl2e 
ICHARACTERS 


SKBBSé KEYBOARD BYFF, SIZE 
SCHARACTERS 


SYLNSP USER LINE SPACE 
“ pBYTES 


3274 


JRND FUNCTION e= GENERATE RANOOM NUMAER 
SCAN PAST ARG [F PRESENT 


‘ 
RNOLFN} JSR 


RNOFNI 
RNOFN21 MOV 


RPLUS! MOV 


RNORME ASL 


REXPI CRB 


vue 
ERRNOS} JMP 
ERRNOA| UMP 
RNOFNET 


PC, @WEVAL 
ERRNDA 
(R41) 4) @,RPAR 
ERRNOS 


R5,RO 
#RND2, RB 
ORO, RS 


JMULT BY 2 
CRB) O~RZ NOW BY 3 


@R|,R2 INOW BY Zeetess 

RPLUS 

#420000 ,R2 IGET 2093246 

RS, ORO SSTORE NEW GENERATORS 
R2,0(RB) 

#234,K0 FINUTTIAL EXPONENT 

R sFLOAT RESULT 


REXP SJUMP WHEN LEADING BIT FOUND 
RO HAQJUST EXPONENT FOR SWIFT 


RB,R2 VINSER? EXPONENT INTO RESULT 


RS FINSERT * SIGN 
R2,FACLCRSY 

R3,FAGZ(RS) 

@#OPRATOR 

@RERRSYN 


@RERRARG B22” 


‘. eee 


BASICH 


119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
132 
132 
433 
434 
135 
136 
437 
138 
139 
148 


BASICH 


144 
142 
143 
144 
445 
146 
147 
148 
149 
150 
154 
152 
153 
154 
155 
156 
157 
156 
i159 
160 
161 
162 


MACKAY 


6901494 
898244! 
800146) 
980152! 
990154! 
000160! 
000162! 
oon164s 
808172! 
ape174! 
ege2ea! 
eee2o2! 
eeo2ae! 
oge2ig! 
oee2i6/ 
go0222! 
opo226 
eoo232! 


MACXi1 


080236! 
aep242! 
080244! 
oeo25e! 
800252 
oo0254 
e0260! 
BOn262! 
080266! 
280279! 
8eo272! 
ooo274! 
880276! 
O0B30g¢ 
O00304/ 
208310! 
900314! 
800320 


Veas 


004737 
103436 
122127 
081927 
005765 
081425 
180017 
042765 
880433 
905765 
100820 
689465 
192905 
212765 
985065 
800137 
080137 
00137 


veer 


804737 
103424 
122127 
884023 
085008 
905765 
081003 
005765 
001416 
100002 
085308 
800421 
o5208 
812965 
805065 
8801357 
200137 
980137 


yagS FUNCTION ROUTINE 


PG, OSEVAL 
ERABSA 

(RL) 6,8, RPAR 
ERaeSS 

FACL(RS) 

ABSENT 

agsx 

#LOOBRH, FAELCRS) 
ABSX 


FACZ(RS) 

ABSXx 

FACR(RS) 

ABSx 
944908, F AGG(RS) 
FAC2(HS) 
PROPRATOR 
@#ERRARG 
@BERASYN 


ISGN PUNCTION ROUTINE 


22eMARe7S «15145 = PAGE 5S 
o00900G ABSFNi SR 
acs 
2908006 CMPB 
BNE 
9890086 rs? 
sea 
BP. 
108008 sgo008aG aie 
8 
QeogeeG ABSINT! TST 
BP, 
oeoeseeG NEG 
ave 
944988 o98008G MOV 
9998086 Cur 
9808006 ABSX! dMP 
098006 ERABSAS JMP 
8800086 ERaBSS} JMP 
ABSFNE} 
22eMARe7S 45145 PAGE 6 
oogesac SGNFNI ys 
cs 
0000006 CMPB 
BNE 
CLR 
9800006 rst 
BNE 
seeoons TS? 
SEG 
SGNFLT} 8PL 
OE 
BR 
SGNPOS} INC 
@88G0RG MOV 
08d000G CLR 
2689086 SGNX1 JMP 
8809086 ERSGNA! JMP 
8800086 ERSGNS} JMP 
SGNFNE} 


PC, OREVAL 
ERSGNA 
(RA), 8, RPAR 
ERSGNS 

Re 


FACLCKS) 
SGNFLT 
FAC2(KB) 


RB FAGZCRD) 
FAC(KS) 
@ROPRATOR 
O#ERRARG 
@#ERASYN 


Gaeé 


327 


BASICH 


163 
164 
165 
166 
167 
168 
169 
178 
172 
172 
173 
174 
175 
176 
477 
178 
179 
188 
181 
182 
183 
184 
185 
186 
187 
188 
189 
198 
191 
192 


BASICH 


193 
194 
295 
196 
197 
198 
199 
2008 
201 
202 
203 
204 
2a5 
206 
207 
208 
209 


MACXIL 


ao9524! 
880350! 
3083545 
88336! 
200349! 
300344! 
898359! 
898352! 
808356! 
690360! 
OBD364! 
089366! 
898379! 
080372! 
800374! 
B0O376¢ 
o004e0! 
O90404s 
990406! 
oea4ig! 
899412! 
OO04168 
000422! 
880424! 
080426! 
880432! 


MACX11 


880436! 
o00442! 
000444) 
30045¢! 
Oo0452! 
800456! 
880462! 
ooe4e4l 
000466! 
300479! 
9004741 
920500 
300504! 


veer 


904737 
122127 
804836 
985846 
116526 
021627 
183483 
162716 
880772 
167526 
1eeo0s 
085916 
081922 
283316 
880416 
810502 
084737 
011608 
905822 
151002 
862708 
112720 
885302 
883374 
980137 
090137 


vo2a 


064737 
183046 
122427 
oe1915 
905065 
085065 
#12602 
905202 
281402 
114265 
900137 
200137 
200137 


22aMARa73 


e9ap08G 
9880206 


seopeec 
ooe210 
oae110 
2a000RG 


298005 
990040 


8900006 
B0000RG 


22eMARe73 


0000086 
0890086 


8000006 
8820006 


9880086 
O90R006 
9e09006 
0000206 
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ITAB FUNCTION ROUTINE 


TABFNE are 


BNE 
CLR 
MOVE 
TABBS = CMP 
ALO 
sus 


TABCH sue 


TABNON| MOV 


aor 
TABNULL § UMP 
ERPABS| JMP 
TABFNE} 
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) LEN PUNCTION 
LENFNY JSR 
gcc 
CMPa 
BNE 
CLR 
CLR 
MOV 
INC 
BEG 
MOVB 
JMP 
ERLENAI JMP 
ERLENSt UMP 
LENFNEt 


PG, @AARGB 
(RE), a, RPAR 
ERTABS 

*(SP) 

FAC2(R5), (SP) 
(SP),#72, 

TABC 

#72, ,$SP) 

TABB 

PEOLUMNERSY (SP) 


PC, @#MAKESIR 
(SP), RO 
RZ 


(RB), R2 
#5,RO 
BL, (KB) 
R2 


78d 
O#SOPKATR 
@BERRSYN 


ROUTINE 

PC, OWEVAL 
ERLENA ' 
(R4) op 8, RPAR 
ERLENS 
FACACKS) 
FAC2(R5) 
(SP) o,R2 

R2 

106 
(R27 ,F AC2(R5) 
OROPRATOR 
@RERRARG 
@WERRSYN 


ce a 


B27 


“ae De 


BASICH 


210 
212 
212 
213 
214 
215 
216 
247 
2168 
219 
228 
222 
222 
223 
224 
225 
226 


BASICH 


243 
264 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
268 
261 
262 
263 
264 
265 
266 
267 
268 
269 
2708 
e7a 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
299 
291 
292 
293 
294 
295 
296 
297 


MACKXLL 


ooe5i9/ 
ooosi4at 
090516! 
9ees22¢ 
880524! 
898526! 
098532! 
880554! 
990549! 
800542! 
800546! 
088552! 
ORO56g4 
080564! 
890579° 


888574! 
8B0609" 
oeg6a4) 
080606) 
800614! 
890629! 
988622¢ 
980626! 
820630! 
898636! 
380642" 


MACXL2 


288646! 
088652" 
B80654' 
900668! 
808662! 
908666! 
800679! 
889674! 
BBB676! 
980722¢ 
8087048 
680719! 
380714! 
080716! 
880729! 
O80724) 
288726! 
800752! 
868734! 


BBa74Q98 
800746! 
988759! 
900752! 


8907540 
890756! 


2007628 
600766! 


2090779" 
8807720 
820774+ 
0887764 


281909! 
381902! 
801206! 
801019! 
884014! 
301020" 
681922! 


881226! 
8812308 
301834! 
501049! 
0819426 
801044 


3812504 
201052! 
001054! 


veer 


884737 
193823 
122127 
081922 
942602 
329227 
Betas 
124227 
204011 
805865 
205965 
116265 
900137 
880137 
900137 


004737 
122127 
081016 
142765 
812746 
910502 
904737 
011600 
116560 
990137 
000137 


vo2L 


804737 
193133 
122127 
304132 
904737 
103125 
122127 
881124 
004737 
193517 
994737 
122127 
84114 
285998 
805765 
784877 
905765 
893474 
156508 


226627 
901002 
285006 
080464 


205002 
157602 


021627 
381004 


820022 
OB3454 
619200 
880452 


385903 
157603 
461603 
262703 
810365 
942683 
462703 


964602 
262702 
819265 
012602 
860202 
362792 


121322 
281406 
085200 


22eMARe73S 15145 PACE 9 

y ASC FUNCTION ROUTINE 

090908¢ ASCFNI 338 PG, OeEVAL 

ce ERASCA 
oeaeeeG CMPB (RE) 0,8, RPAR 

ONE ERaSCcy 

MOV (SP)e,R2 
177777 cmp R2,0477777 

8EO ERASCA 
CTT TTF cure (R2), 84 

BNE ERASCA 
8ogoeeG CLR FAGA(NS) 
000006 CLR FACZ(KS) 
890883 so0Bee6 MOVB 34R2) FACZERS) 
2808086 MP @BOPRATOR 
990800 ERASCA JMP @BERRARG 
egogogG ERASCS| UMP OWERRSYN 

ASCFNE} 

» CHRS FUNCTION ROUTINE 
egeeeeG CHASFNY USR PG, OMARGB 
Ba080R6 cure (RY) Oy 8, RPAR 

8Ne ERCHRS 
090208 eoeeenG 81¢8 6200, FAC2(R5) 
CITT TEY MOV #4,0(8P) 

MOV R5,R2 
8000086 JsA PC, @AMAKESER 

MoV (SP), Ko 
Oo0e08G BORED MOVE FACQ(KS) ,3(RO) 
9000086 ump OWSOPRATR 
ageveac ERGHRS} JMP @RERRSYN 

CHRFNEI 
22eMARO7S «15445 = PAGE 19 

} POS FUNCTION ROUTINE . 
0800006 POSFNI SR PG, OREVAL 

acc ERPOSA 
Ge0R0RG CMPB (RL) 6) 8, COMMA 
BNE ERPOSS 
000006 JSR PC, @WEVAL 
Bcc ERPOSA 
8ooveaG CMPB CRO) oe, COMMA 
BNE ERPOSS 
0890006 JSR PC, OWEVAL 
acs ERPOSA 
0880906 SR PCG, OWINT 
8eneR0G CMPB (RL) 0,8, RPAR 
BNE ERPOSS 
CLR Ro 
oengegs TST FACL(KS) 
: BNE POSF 
2000806 TST FAC2(HS) 
BLE POSF 
8900006 81sB FAG2CRE) RS 

HCHECK NULL XS 

Beeee2 177777 CMP 2(SP) 48477777 
BNE POSx 
CLR Ro 
BR POSF 

ICOMPUTE LENGTH OF xs 

POSX! CLR RZ 
o90e02 8386 2 (SP),R2 

ICHECK NULL YS 
177777 CMP CP) 04777797 

BNE Posy 
NULL YS) ANS 3S MINCNPLENCXS)) 
cup RB, Re 
BLE POsr 
MOV R23, RO 
eR Posr 

JSAVE ADOR OF END OF YS IN To 

POSY} CLR RS 
oeenne BySB O(SP),RS 

aco (9P), 83 
0p0R83 ano #3,R3 
8898006 MOV RS, T2GRS) 

MOV (SP) o,R3 
TTT aod a3,R3 

SSAVE AOOR OF ENO OF XS IN Ty 

aoo (SP), R2 
BOIR03 ano 83,2 
880006 MOV R2,72¢R5) 

MOV (SP) O,R2 

400 RO,R2 
egoeve ado a2 


JFINO MATCHING FIR 


POSFST) CMPS 
BEo 
POSTRYS INC 


(RS), (R290 
POSREM 
RQ 


aR2 
ST GHARACTER 


STAKE CHAR MOO 128 


RAIS N 


33/ 
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298 981056! 320265 speR08¢ cme AQ, TLGRS) 
299 884262! 904372 cr4 pgsrsy 

308 91064! Ag5B00 CLA I 

324 301966! 290417 BR posre 

3a2 ICWECK THAY REMAINING GHARS MATCH 
383 801878" 310246 POSREM} MOV RZ, 0(SP) 
304 901072! 2140346 MOV R3,0(dP) 
305 901974! 205293 INC RS 

326 301976! 320365 saa000G POSNXT} CMP RS, T2ERS) 
387 3011024 aBs4i0 BEO PosF 

308 3881104! 229265 aaaeoeG cMP RO,TLGRS) 
309 884118! 294422 BEQ POSNO 

318 881112! 122223 curs CRAG ACRE} 
3140 94114! 284779 BEQ POSNXT 

342 804116! 912693 POSNO! MOV CSP) RS 
343° 9611204 212602 MOV (9P)o,R2 
314 901122! 300754 BR Posrry 

315 JRETURN FROM FUNCTION 

316 981124! 922626 i POSFi CMP (SP)%,(SP)e 
317 982126 319965 seeoees POSF2y MOV RO, FACZCRS) 
318 894132! 305965 sesnee8G cur FAGA(RS) 
319 «981136! 380137 segoeeG UMP @#OPRATOR 
328 901142! 900137 ageo2ed ‘ ERPOSAL UMP @#ERRARG 
321 681146 309137 sgaR006 ERPOSS) UMP O@RERRSYN 
322 POSFNE| 

323 

324 


BASICH MACX11 veed 22eMARO73 15145 PAGE 1% 


325 } SEG PUNGTION ROWTINE 
326 001152! 294737 aneR00g SEGFNI ySR PG, OMEVAL 

327 901156" 103114 acc ERSEGA 

328 001160! 122127 sa0B006 CMPB (RG) 4) 8, COMMA 

329 981164! 304113 BNE ERSEGS 

330 001166! 004737 B900206 vSR PC, OWEVAL 

334 081472! 193506 Bcs ERSEGA 

332 001174! 994737 200006 vSR PG, ORINT 

333 O81200! 916546 ao90006 MOV FAGA(K5),0(SP) 

334 001204! 014546 3990006 MOV FACZ(K5), 0(SP) 

335 001210! 122127 sag0006 cure (RL), 8, COMMA 

336 901214! 901077 BNE ERSEOS 

337 001216" 904737 900006 vgR PC, @#EVAL 

338 901222! 193472 acs ERSEGA 

339 981224! 704737 opeReeG vse PC, @8sNT 

349° 881238! 122127 9990086 oMPs (R4) oy 8, RPAR 

344 001234/ 394967 BNE ERSEGS 

342 IGET X VALUE IN RZ 

343 921236! 912602 MOV ($P)o,R2 

344° 801240! 312608 MOV ($P) 4, RB 

345 991242! 190403 emt SEGK® 

346 001244" 904055 ONE SEGNUL 

347 901246! 905722 TST R 

348 801250! 903002 BGT SEL 

349 901252" 212792 soee4 SEGXB} MOV #4, R2 

350 ICOMPUTE LENGTH OF AS IN Ro 

354 001256! 305008 SEGL! LR RO 

352 901260! 9214627 177777 cme (SP) 0477777 HCHECK NULL STRING 
353 991264! 157609 oganee BSB 0(SP),R 

354 )GET Y VALUE IN RS 

355 0912784 205765 spooeeG SEGTY! TST FACA(H5) 

356 901274! 100443 BM SEGNUL 

357 081276! 201402 BEO SEGTY? 

358 301300! 319803 MOV ROR 

359 991302! 309403 BR SEGANG 

368 301304! 916503 oapoues SEGTY2] MOV FACZ(H5),R3 

362 801318! 203433 BLE SEGNUL 

362 ICHECK BCaR2CeRSCERG 

363 881312! J2g803 SEGRNG! CMP RO,RS 

364 301314! 194903 BHT SEGRE 

365 901316! 210023 MOV ROARS 

366 881328! 928203 SEGR21 CHP REARS 

367 981322! 191926 BHI SEGNUL, 

368 ICOMPUTE LENGTH OF OUTPUT STRING 

369 81324! 169203 sys R2,R3 

378 881326! 295223 ING RY 

374 IMAKE NEW STRING OF THE CORRECT LENGTH 

372 981330 210246 MOV RZ,e(9P) jSAVE START CHAR 
373° 801332! 310522 MOV R5,R2 

374 B813349 210346 MOV AS, 0(9P) 

375 001336! 294737 sooaeG ysr PG, OMMAKESYR 

376 IFIX SYACK AND MOVE IN CHARS FROM O10 STRING 
377 981342! 232602 MOV (SP) 0, R2 JNEW STRING POINTER 
378 904344! 232600 MOV (SP)o,R8 JSTART CHAR 


379 984346" do160g ado CSP), RO TAOD OLD STR POINTER 


et 
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388 881358! 210216 MOV R2,(SP) SAVE NEW STRING 

381 001352! 205003 CLR as 

382 8013544 154243 8tSB (RZ) ANS pR3 1S NEW STRING LENGTH 
383 301356" 762702 Bg0005 400 #3,R2 yADOP FIRST CHAR JN NEW STR 
384 8813562! 062709 s90082 400 82,R0 PADOR START CHAR IN OL9 &TR 
385 901366 112922 SEGLP} MOVE (RO) Op (RZ) 6 SFYLL IN NEW STRING 

386 881370! 2053083 ogc RS 

387 081372! 3891375 BNE SEGUP 

388 881374! 709137 2000086 vMP @RSTPRO 

389 VOUTPUT NULL STRING 

399 901400" 012716 177777 SEGNULI MOV 477777, (SP) 

391 881404! 890157 AB0808G SEGX) UMP ORSOPKATR 

392 901410! 799137 BoBB0B6 ERSEGA JMP @RERRARG 

393 001414! 080137 B0900006 ERSEGS} yMP @HERRSYN 

394 SEGFNEY 

395 

396 


337 
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397 1 VAL FUNCTION ROUTING 

398 081429! 994737 Bpeeddc VALFNE = ySR PG, @WEVAL 

399 381424! 103956 gcc ERVALA 

408 001426! 122127 aaege0G cMPB (RL) 0) #8, RPAR 

401 081432! apdo5s 8NE ERVALS 

402 JREAD STRING 

403 001434! B11600 MOV (SP), KO 

404 001436! 620927 177777 CMP RO, #477777 ICHECK NULL STRING 
405 901442! aos906 BNE VALR : 
406 081444! 995965 segeues CLR FACS(RS) 

487 901458! 905965 oap80808 GR PACQCRS) 

408 391454! 905726 TST CSP)e 

409 991456! 990435 BR VALS 

410 «201460! sosave VALRE CLR RZ 

411 904462! 154902 ese (RO), K2 

412 081464 319216 MOV R2,(5#) 

413 901466" 262799 agooes 400 a3,RO 

414 991472! seag02 aoo RO,RZ 

415° 001474! 195912 CURB (Re) 

416 881476/ 010446 MOV R4,9(SP) 

417 301500! 010146 MOV Riyet9P) 

418 094502! 710246 MQV RZ, 0($P) 

419 PREAOD ASCIY NUMBER ANO EXPONENT 
420 081504! 984737 seD000G - JSR PC, eevAL 

424 INORMALIZE TO FORM FLT PT NUMBER 
422 001510 294737 se0ve06 uSR PG, @#NORM 

423 801514' 219365 sgo0006 MOV RS FAGLCRS) 

424 9091528" 219465 segg026 MOV R4FACZ(R5) 

425 JCMECK ENO OF STRING 

426 081524/ 105719 VALCEL =TS8 (RO) 

427 881526! 394403 BEG VALX 

428 981538! 122927 ogne40 Cups (RO) oe, #8, 

429° 9091534) 904773 Bea VALCE 

430 HRESTORE REGS ANO RETYRN To EVAL 
431 901536" g29926 VALXt CMP RO, (SP)+ 

432 901549 991019 BNE ERVALA 

433° 901542! 712604 MOV CSP) ORL 

434 881544! 312604 MoV (SP) 0,R4 

435 201546! 042602 MOV CSP) 0, R2 

436 301550! 149218 MOVE R2, (RO) JRESTORE STRING LENGTH 
437 901552! a99137 sa080e8G VALJt | UMP @ROPRATOR 

438 991556! 080137 seon006 ERVALS! JMP @BERRSYN 

439 901562 300137 ogo0eeG ERVALAT MP OBERRARG 

440 VALFNES 

441 

442 


33S 


BASICH 


443 
aag 
445 
446 
447 
448 
rr) 
458 
451 
452 
453 
4354 
455 
456 
457 
456 
459 
460 
464 
462 
463 
466 
465 
466 
467 
468 
409 


BASICH 


470 
474 
472 
473 
474 
475 
476 
477 
478 
479 
490 
484 
482 
483 
4a4 
485 
486 
487 
488 
489 
490 
494 
492 
493 
494 
495 
496 
497 
498 
499 
308 
521 
502 
583 
504 
505 
586 
507 
308 
509 
518 
514 
312 
513 
544 
515 
516 


MACXLL 


084566! 
381572 
304574! 
981600! 
991602! 
O81606! 
881619! 
OB1614! 
201616! 
281622! 
681626! 
981632! 
881656! 
891649! 
801642! 
901646! 
881652! 
081654) 


881660! 
801664! 


MACXS1 


3016708 
aB1672 
OBLO74s 
301676! 
3017008 
801702! 
301704" 
881706! 
ao4710/ 
O84712! 
Oor7140 
804716! 
904729! 
304722! 
804724! 
884726! 
081730! 
901732! 
081734! 
81736! 
901749! 
981742! 
801744! 
901746! 
801750¢ 
084752! 
901754! 
901756! 
884769! 
881762! 
884764! 
301766! 
9841767! 
381770! 
BOL772¢ 
304774! 
04776! 
8017778 
982009! 
802001! 
892002! 
a02ea3! 


voes 


004737 
103432 
122127 
801032 
942746 
018502 
986737 
941603 
862733 
819365 
085965 
004737 
8998086 
819682 
016546 
904737 
212646 
980437 


800437 
6204357 


yaar 


200000 
200000 
000008 
909029 
8899090 
9e0008 
289800 
092214! 
oe2g76! 
88000 
ov0g0 
a0ggag 
a20008 
380000 
299000 
299809 
200ec0 
280880 
299900 
ao0008 
a90008 
298080 
988080 
200940 
288088 
380000 
909908 
808008 
898808 
280009 
888098 
800 
O09 
op294Q! 
ap2gaal 
388020 
280 
030 
80g 
928 
aoe 
028 


22uMARe73 15145 PAGE 15 


) STR FUNCTION ROUTINE 


OBouea6 STRFNE JSR PG, eebvaL 
acs ERSTRA 
2000086 CMPB (RQ) o,e,RPAR 
BNE ERSTRS 
ogee2D MoV 620,9(SP) 
MOV RD,R2 
8609000 JSR PC, @MAKESTR 
MOV CSP), RS 
890083 a00 43,83 
298000G MOV RS, T2¢R5) 
0900086 CLR TLCRS 
8900006 uSR PG, @WNUMSGN 
WORD SAVCHAR 
MOV SP,R2 
ogee08G MOV TACR5),0CSP) 
OBGBeRG vsr PC, @UMAKESYR 
MoV (SP 4, (SP) 
8900206 vMP ORSTPRO 
2082006 ERSTRAI yMP PRERRARG 
2800006 ERSTRS) UMP @BERRSYN 
STRFNE} 
FNENO} 


22eMAR@7S 45345 PAGE 14 


) 

! 

; USER AREA STORAGE CELLS 
u 


srt +WoRO 
+WORD 
+WOROD 
WORD 
WORD 
WORD 
WORD 
+WORD 
WORD 
+ WORD 
+WORD 
+WORD 
;WORD 
‘WORD 
WORD 
+WORD 
1WORD 
+ WORD 
1WORO 
WORD 
:WORO 
+WORO 
+WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
RAND} =, WORD 
WORD 
WORD 
:BYTE 
BYTE 
C7 


SEsVeEsGaHTVAsaesvsaqgarea2grsgaeveanccasseaea 


~ 
oO 
a 
™_ 
x 


e 
+WORD 
: BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


x 
a 
a 
™ 
x 

Pry 


seauacag 


sPROTECT STRING 


JSYMROLS 
WLIMI? 
yPOL 
sPOSI2E 
PARRAYS 
SHIFREE 
ILOFREE 
COVE 
WLINE 
HVARSAV 
rSSiSAV 
sSS2Sav 
JLINENG 
SGSBCTR 
HCOLUMN 
ICLMNTTY 
sF ACL 
iFAC2 
sROSAVE 
SRISAVE 
pRESAVE 
IRSSAVE 
pRASAVE 
tg 

72 

ws 
WRNOL 
sRNOQ 
yRNOCT 
1LOSTR 
PHISTR 
10DEV 
yTOEV 
TPH 
KBHC 
recHasP 
SCNCFLG 
ICNOFLS 
sFILLCO 
dFILLNO 
JFIULCH 
1 CSPARE BYTE 


336 


BASICH 


517 
518 
519 
520 
524 
522 
523 
524 
525 
526 
527 
528 
529 
530 
534 
932 
533 
534 
535 
536 
537 
538 
539 
540 
543 
542 
543 
544 


BAS|CH 


545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
564 
562 
563 
564 
565 
566 
367 


568 
569 


“MACKXLL 


802004! 
062006! 
882019" 
oo2012! 
ooesias 
882016! 


382049! 
882042! 
BO2044! 
802046! 
392039! 
oe2052 


MACKX22 


oo2214! 
9e2220! 
892222! 


882224! 
4922268 
802252! 
9922356! 
862244! 
AG2258! 
802252! 
202269! 


OB2264! 


802270! 
892274! 
BB2276! 
BO23a45 
082311! 
882313" 
982329¢ 
O82326! 
802334! 
882342! 
802350! 
802352! 
862353! 


802354! 
882369! 
302364! 
8823664 
382370! 
802374! 
382376! 
O9240R¢ 
882402! 
882406! 


OB2419! 
ap2414! 
OO2417¢ 
8024245 
0024324 
O02435! 
902434) 
392449! 


0024444 


ye2i 


os2g2e/ 
992037! 
802820! 
eg2g2a/ 
ee2g2g/ 
BReR00 

oe2g29! 
992049! 
992037! 


ap2ese! 
882973? 
900008 

082054! 
002054) 
080880 

002954! 
og2074! 
292073! 


op22iel 


ve2a 


162704 
922626 
8890442 


980005 
842726 
8946767 
942737 
42794 
285744 
812737 
610467 


942702 


384367 
O15 
940502 
230126 
015 
117 
951546 
946194 
947855 
244449 
015 
077 
000 


204767 
120027 
881532 
885902 
120927 
201002 
885202 
200445 
120927 
804358 


094367 
915 
048 

820423 
117 
209 

912705 

042704 


911503 


22eMARO7S 


22amARe73 


017776 


agssear 
2900006 
ao22i40 
160890 


OBOB06 
001108 
oeonee! 
000756 


026114 
047147 
944455 

g12 


999722 
890116 


300101 


090111 


BB96O36 

612 
8265314 
047048 


893374! 
2208096 


O800R4 


eoog04 


920103 
1081 


843049 
020501 
047049 
926105 
242116 


b12 
042531 
047855 


15145 PAGE 43 


' . 
} USER 370 BUFFER AND BUFFER HOR, SPACE (TTY) 


J 
KBBFHiT © KBByFS s8STAy 
e KOBENS BEND 
WORD KBBYFS 1BGETL 
WORD KBBYFS 1B6ET2 
sWORD) §=- KBBUFA sOPUT 
o a sBFSPEC 
KBBUFL 8, 
: 8, oSKe9Sz HDEFAYLT-SIZE = 20 CHARS, 
KBBENL 8,01 
rEVEN 
| 
TPBFHAt © TPOYyF, dBSTRY 
. TPBENY BEND 
oo @ #BGETL (NOT USED) 
»WORD = TPBUF2 pBGET2 
sWORD = TPBUFR paPyt 
o ] JBFSPEC 
TPBUFL 8, 
F #, esTPasz HOEFAULT © 20 CHARS, 
TPBENL 8,04 
+EVEN 
USRLINEt 
18", ¢SULNSP HOEFAULT § 129 
USRCODE! 


15145 = PAGE 16 


’ 
} esQNCESONLY INIT, CODE 
’ FINO OUT HOW MUCH CORE AND EXPANO USRAREA ACCORDINGLY 


j 

DECCORE I Sy8 #47770,R4 HCOME HEHE ON TRAP FOR BAD MFM, 
CMP (SP) 4, (SP)e 
BR TRYCORE 1 REF,, AND OEC, CORE SIZE 

' 

ONCEONLIRESET 
MOV wTMPSTCK, SP iTEMP, STACK 
JSR PC, IFPMP VIN]T FOR FPMP ROUTINES 
MOV WOECCORE, O44 }SET UP TRAP ADOR, 
MOV #160200,R4 y28K 

TRYCOREI TST 3(R4) sTPAPS TO DECCORE IF BAD gn0R 
MOV 90 ,0n4 JFALLS THRU IF OK @ RESTORE TRAP. ADGR, 
MOV R4,HICORE 

FINITIALIZE Yor oF BASIC 
MOV #BASICH, RY 

IPRINT HEADING ANO REAO ANSWER 

INfHOI JSR R3,PRMSG 


BYTE «45,12 
sASCIL (BASIC Vaaqas 


BYTE = .512 
sASCTI OPT FNSt AwALL, NeNONE, [e@INDE 


BYTE = 4.5432 


eASCIT ¢ 78 
sOYTE t 
EVEN 
vSR PG,ROANS ¢ 
CMPB ROBIN HCHECK FOR N 
BEQ INTSAV 
CLR RZ ICLEAR ALL FLAG 
cMPB RO WA JCHECK FOR A 
BNE INUTT 
INC R2 sSET ALL FLAG 
BR INTALR 

INtTIY CMPB RO wey HCWECK FOR | 
BNE INTHO 

SPRINT HEADING FOR INUIV FUNCTIONS 
JSR RS, PRMSG 


BYTE = 45,22,42 
sASCIT ' YeYES NeNOF 


1BYTE 
INfALLE MOV WENTAB, RS 
MOV aT ABLES, R4 


IGET NEXT FUNCTION TAULE ABDRESS 
INELPE MOV (RB) RS 


337 


BASICH 


593 
394 
595 
596 
597 
598 
599 
600 
604 
602 
603 
004 
605 
626 
607 
628 
699 
642 
614 
642 
6413 
644 
615 
$16 
647 
o18 
619 
620 
624 
22 
623 
624 
625 
626 
627 
628 
629 
630 
634 


BASICH 


646 
647 
648 
049 
650 
554 
652 
653 
654 
655 
656 
657 
658 
659 
660 
664 
662 
663 
664 
665 


666 
667 
668 
669 
670 
672 
672 
673 
674 
675 
976 
677 


678 
679 
689 
684 
682 
683 
684 
685 
686 
687 
688 
089 


698 
691 
692 
693 
694 


MACX11 


892446) 
392459! 
ao24540 
a0246g" 


802462! 
802466! 
8224794 
882474! 
382476! 
88252Q! 
862582! 
o92510! 
082516! 
882522! 
802524! 
8B2526' 
082539! 
282533! 


882534! 
802549! 
OB2544! 
902546! 
80255¢¢ 
082552! 
202556! 


B02569+ 
892562! 
882566! 
OG25798 
902572 
8825768 
382609! 
982604) 
OG2619¢ 


802612! 


802616! 
882622! 
982624! 
882626! 
882632! 
002634) 
882636! 
902649! 
882642! 
B02644+ 


MACKXLY 


382646! 
882652! 
282656! 
882662! 
802666! 
392672! 
882676! 
882702! 
8027364 
882712! 
862716! 
882724! 


882732¢ 
8827354" 
92749! 
822743! 
982750! 
882756! 
302761! 


882762! 
882766! 
892772! 
0827745 
2830aG! 
B23e02¢ 


203004! 
883819! 
863812! 
893B29! 
383826! 
883232! 


BB30S4! 
883049! 
9835044! 
803046! 
383852! 
OB3B54! 


303056! 
493862! 
38364! 
883872! 
983108! 
BO3106! 


03110! 
903114! 
ao3120¢ 


Vo2t 


186983 
462705 
262704 
098773 


320427 
101052 
320527 
103046 
285722 
884027 
316567 
816567 
204367 

015 
888060 
#90800 
035942 

200 


8046767 
120927 
ae1ge2 
803724 
800443 
120027 
B81344 


816198 
162796 
919024 
O12321 
926365 
103774 
862705 
320427 
194715 


910167 


8427282 
820283 
160193 
820227 
193805 
942224 
84773 
160344 
985724 
998779 


Vees 


16704 
162706 
316705 
310465 
£62704 
219465 
162704 
318465 
962724 
019465 
342765 
342765 


363903 
304367 
e415 
126 
342523 
846522 
oee 


804767 
120927 
004457 
120927 
981354 
383203 


804367 
O15 
740514 
838863 
342425 
228 
agsese! 
304767 
120027 
804432 
120027 
381354 
085203 


884367 
B15 
052126 
936476 
849502 
ag 
293119! 
304767 
122027 
201404 


22eMARe7S 15145 PACE 1604 
BPL, INTPN 
Beege2 400 42,85 Wskle A FUNCTION 
898002 ano #2, Re 
BR INTLP 
JPRINT QUESTION FOR FUNCTION, GE? ANSWER 
Og000R6 INTFNE CMP R4, #TBLSEND 
BHI INTSAV 
OOS544t cMP RO, RFNTABE 
BHIS INTSAV 
TST R2 
BNE INTOF 
890004 g00016 MOV 4(R5) p FNNAMS 
880986 apae.9 MOV (RS), FNNAN2 
880530 JSR RJ, PRMSG 
o12 +BYTE = 45,42 
FNNAMZ] ,WORD 8 
FNNAM2} ,WORD @ 
e4e sASCILT fF pe 
1OYTE 68 
sEVEN 
880542 JSR PC,ROANS 
808316 cmPe RO,O'N CHECK FOR N 
SNE INTTY 
Ts? (R4je 
8R ININXT 
900434 INITYS CMPB RO wry sCHECK FOR Y 
BNE INTFN 
JOBFINE THE FUNCTION 
INTOFs MOV RL RO 
e@pageeG sya STABLES, RO 
MOV RO, (R4D> sPLACE ADDRESS IN TABLE 
INIMV] MOV CRI Op (RID & 
agave cue RS, 2¢K5) 
BLO TNTMY 
898810 ININXTY AOD #40,R9 
8800886 CMP R4,eTOLSENS 
BL 0S INTLP 
JSAVE TOP OF BASIC 
175462 INISAV] MOV RL, USRAREA 
NMOVE USER AREA TO TOP OF Basie 
884670! MOV #YSR,R2 
MOV R2,R3 ICOMPUTE RELOCATION CONSTANT 
sus RL,R3 
og22i4¢ MOVLP} CMP R2, 8USRCOOE 
BHIS MOVDON 
Mov CR2) Or (RL) & 
80 MOVLP 
sus RJ, e(R4) HRELOCATE NON®ZERO ENTRIFS 
TST (RY)e 
BR MOVLP 
MOVDON 
3YD 
22eMARe73 6935145 PAGE 17 
JINITIALSZE USER AREA 
880512 MOV HICORE,R4 §R4 1S HIGHEST ADDR, IN FORE 
890300 sys #300,R4 
175416 MOV USRAREA,RS 
B0Ce06 MOV R4,LIMITORS) 
890434 sys #234,H4 SPOINTER SPACE 
28092R6 MOV R4,POLCRS) JBASE MF STACK 
8990206 suB #SSTKS2,R4 iMAX, STACK SIZE 
2909086 MOV R4,ARRAYS(R5) = jSHIEST ARRAY STOR, LOC, 
9o0040 aoo 940,84 
9000086 MOV R4,POSTZE(R5) 
832331 apeoee6 MOV #32334, RNOG(RS) 
163251 200006 MoV #463294,RND2(R5) 
HOLALOGUE To SET YP TERMINAL TYPE 
ASKSER} CLR RS 
000512 JSR RS, PRMSG 
o12 e12 sBYTE = 5442542 
954501 320124 +ASCIT FAST SER TERME! 
O20122 942524 
077 
BYTE 
sEVEN 
2e0514 JSR PC,ROANS 
90116 cMPG RO, BIN 
BEG ASKOON 
860233 cMPa RO ety 
BNE ASKSER 
INC Rg 
800242 ASKLAL JSR RS, PAMSG 
812 1BYTE «15,42 
230063 024049 sASCIT ' ASA (308 BAUD) 24 
820060 240502 
837453 
BYTE «ft 
EVEN 
gees? JSR PG,ROANS 
O90132 cups RO,a'Y 
BEQ ASKOON 
Og8196 cMPa RB,eIN 
BNE ASKLA 
INC R3 
800170 ASKVT} JSR RS, PRMSG 
o12 1BYTE = 45442 
032460 924049 sASCIT 8 VIQS (>eOogg9 Baunyee 
830066 220060 
942325 937454 
BYTE «of 
EVEN 
880166 vs PG,ROANS 
BOO154 CMPa RB et 3Y/ 
BEG ASKOON 


~ 


BAS|CH 


695 
696 
697 
698 
699 
790 
70% 
792 
783 
794 
705 
726 
707 
728 
739 
740 


BASICH 


747 
748 
749 
759 
732 
752 
753 
754 
755 
756 
757 
758 
759 
768 
76% 
762 
763 
764 
765 
766 
767 
768 
769 
778 
773 
772 
773 
774 
775 
776 
777 
778 
779 
788 
78 
782 
783 
784 
785 
786 
787 
788 
789 
798 
79% 
792 
793 
7194 
795 
796 
797 
798 
799 
bee 
6e4 


MACX11 


883122! 
883126! 
883130! 


8031352! 
OBS154/ 
883136! 
Bo3i4a! 
803142! 
883146! 
883159! 
8831546 
903156! 
303168! 


883162! 
805166! 
803179! 
803174! 
003377! 
aes2oa) 
aes2i2! 
39S216! 


aos22g! 
a93224/ 
893227! 


883259! 
BO3234 
883236! 
903246! 
883244! 


83246! 


203252¢ 
a03254! 
303269! 
003262! 
803266! 
093276! 
893272! 
093274! 
003276! 
8eS3e0! 


093302° 
BBS306! 


MACX11 


883312 
OO3314° 
303320! 
BBS3246 
883330! 
BBS334! 
803356! 
BB3342/ 


BBS5640 


BB5366! 
OB3371! 


3O3374! 
3O3376! 
883409 
893404! 
303406! 
aOS4igl 
983412! 
aasas4! 
883416! 
88342g! 
9B3422¢ 
883424! 
2834268 
8834320 
BOS4S4/ 
BB3436! 
393449! 
3G3444! 
383446! 
893459 
BO3454 
803456! 
283469! 
BB3464s 
BB3466! 
383479! 
3O3474! 
203476) 
ao3sag¢ 
893504! 
383506! 
303519! 
803514! 
883516! 
083529! 
BOS524/ 
O83526¢ 
PB3530¢ 


Vos 


128027 
684355 
900700 


349382 
884412 
886323 
COAS2 
862702 
819503 
862703 
112223 
122225 
122223 


895737 


ees2zgl 


84307 
e153 
gag 


312702 
812283 
204403 
862703 
849322 


986167 


240320 
189737 
190375 
132037 
21372 
939903 
085203 
986205 
286323 
800283 


083267 
103737 


Vez 


108373 
123790 
242790 
240067 
304367 
390000 
916790 
386207 
283364) 


280800 


283363! 
900 
rrr) 


apogee! 
380140 
847122 
177777 
177777 
177777 
177777 
177777 
177777 
177777 
290140! 
200256/ 
044102 
177777 
300236! 
809324! 
043523 
309324) 
200436 
240524 
080436+ 
Beosigl 
242514 
8pe5ia/ 
800574) 
251501 
200574! 
290646! 
344183 
090646) 
2041592! 
249529 
704152! 
204420! 
242523 
eo1e2g? 
091566! 
040526 


22eMARe7$ 145345 PAGE 4704 
e116 MPs ROBIN 
BE asky? 
8R ASKSER 
ASKOONT MOV RI, RZ 
Bea FULLOON 
ASL RS 
ao0 RS,R2 
OBSSOS! ano OFIULTE,R2 
MoV R5,RS 
ognee0G ano BFILLGOYRS 
MOVB {RZ ey (R30 
MOVB (RZ), (RS) & 
MOVE CR2V Og IRS)O 
FILLOONS 
HPRINT OUT IF USER FUNCTIONS LOANED 
290846 1S? 0846 
Lia} NQUSR 
098956 usr RI, PRASG 
e12 022 sBYTE = 45442442 
042523 020122 sASCTL 4 YSER FNS LOADED! 
829423 047544 
942305 
BYTE B 
EVEN 
NOUSR} 
880026 JSR R3,PRMSG 
912 B12 BYTE = =—:15,42,12,2 
sEVEN 
HCHECK IF RNOL LOADED 
8208086 MOV #TABLES,R2 
MOV (R2)o,R3 
B8EO NORNO 
9oes4 400 #RNOFNORNOLFN, RS 
MoV RS, (RZ) HDEFINE RNO ALSO 
NORNOI 
eoenees ump START 
HSUBROUTINE TO PRINT A MESSAGE 
PRMSG{ MOV RY ,RO 
1777768 PREP STB eaTPoe2 
BPL PRLP 
899008G MOVE {RB oe, OeTPB 
ONE PRUP 
MOV RB,RS 
TNC RJ 
ASR RS 
ASL RS 
Rvs RS 
HSUBROUTINE TO READ ANSWER FROM TELETYPE 
176452 ROANS} INC RAND 
2909080 Ts78 ents 
22eMARe7S 45445 PAGE 4702 
ePl, Rpans 
8g0Re2G move @89K942,R0 
177600 aye #477608,R0 
Beeun4 MoV RO, INGH 
177716 JSR R3,PRMSG 
INCHI ,WORD @ 
477772 MOV INCH, RO 
RTs PC 
' a,%20 
YMPSTCKI 
WICORES ,WORD @ 
FILL TG, #5 
p11 o15 BYTE =p 44445 SLAs? 
204 B12 BYTE 8,084,232 yVTOS 
FNYABI 
WORD = RNDLFN 
WORD = RNOFNE 
020404 sASCII RRND 
WORD ed, y RND 
WORD ef 5 SIN 
+WORD ed 5 cos 
sWORD =} 1 SQR 
WORD ed y aTN 
WORD cry 1 EXP 
WORD), y LOG 
»WORD = ABSFN 1 ABS 
WORD = ABSFNE 
820423 sASCTI ¢aBS ¢ 
WORD ed, y INT 
WORD SGNFN + SGN 
WORD SGNFNE 
820116 sASCII of S6N 4 
sWORO TABFN 5 YAR 
»WORD:  TABFNE 
820182 sASGIT «Tag tt 
*: WORD LENFN y Lee 
WORD WENFNE 
@20326 sASCIT 'QEN # 
;WORD = ASCFN base 
WORD = ASCFNE 
828105 sASCIT ASCE 
WORD CHRSFN 1 CHAS 
WORD = CHRFNE 
922122 rASCIL ¢CHRS? 
»WORD POSFN 5 POS 
sWORD = POSFNE 
020123 ASCII (POS # 
+WORO = SEGFN 1 SES 
WORD = SEGFNE 
022107 sASCIL ¢SEGSE 
WORD = -VALFN VAL 
WORD -VALFNE 
620114 sASCIY of VAL fF 


B3YA 


3Y¥3 


BASICH 


882 
63 
804 
805 
806 
807 


BASICH 


ABSFN 
ARGB 
ASKOON 
BASICH 
COLUMN 
ERASCA 
ERLENS 
ERRMIX 
ERRSYN 
ERSGNS 
ERVALA 
FAC2 
FNEND 
FNTABE 
TNTALL 
INTLP 
INLTI 
KOBFHL 
LIMIT 
NORM 
ONCEON 
POSIZE 
POSFST 
POSREM 
PRUP 
REXP 
RNOLFN 
RPLUS 
RS 
SEGFN 
SEGNUL 
SEGTY2 
SGNFN 


MACX12, ¥ 


883534! 901566! 
003536! g01678) 


@2i 


O835484 252123 322122 


ae222q! 


MACX12 


280140R 
8 eneees G 
883132R 
sageger 
2 seveee CG 
980564R 
089504 
2 eeneee G 
= eevsee G 
900329R 
BG1562R 
B eeoten G 
221678R 
OO3544R 
OO2434R 
OB2444R 
892492R 
Sa2ag4R 
3 enecee & 
S eeeeee 
BB2224R 
B enocee 
O81950R 
9810879R 
@B3254R 
BOQO74R 
9000B2R 
O9BO52R 
=XOOG0003 
991152R 
904400R 
881304R 
OBV2I6R 


T & seneee 6 


OB1566R 
BOV324R 
290426R 
B eaneen 6 
882250R 
8O167B8R 
= enesen G 
921552R 
& oeesee 6 
B enecee 6 


VO2a 


ERRORS petvecTegt @ 


22aMARe73 15145) = PAGE 4703 

WORD 

Word 

rASCII 

FNPABE} 

1 END 
22eMARe73 15145 = PAGE 47~4 
ABSFNE  888236R ABSINT 
ARRAYS © #00000 G ASCFN 
ASKLA BB3294R ASKSER 
By = p00040 CHRFNE 
OECCOR 082214R ERABSA 
ERascs 988579R ERCHRS 
ERPOSA 9811442R ERPOSS 
ERRNDA BOSLS4R ERRNOS 
ERSEGA O91419R ERSEGS 
ERSTRA §83669R ERSTRS 
ERVALS 281356R EVAL 
FILLCO 8 season G VILLOO 
FNNAML O82524R FNNAM2 
HICORE O83364R TF PMP 
INTOF 882560R TNTFN 
INTMV 882579R TNINXT 
INITY @82552R INT 
K8BUFL = g82020R LENFN 
MAKEST § e@enee G MOVDON 
NORNO BESZEOR NOUSR 
OPRATO & seeeee G PC 
POSF 981324R POSFN 
PoSF2 081426R POSNO 
POSTRY O81254R POSX 
PRMSG 983252R RAND 
RNOFN @20914R RNDFNE 
RNOL = eeeses ¢ RNO2 
Rg 8X002000 RL 
R4 axoo0eg4 R5 
SEGFNE 081420R SEGL 
SEGRNG 881312R SEGR2 
SEGx 004494R SEGXS 
SGNFNE BBO324R SGNPOS 
sp sxB00006 START 
STRFNE OB1679R TABB 
TABFNE BOASSE6R TABLES 
TOLSEN & seeeee G TKS 
TPBENL # Q202B73R TPBFHL 
TL B eeeeee G T2 
USRARE 888898RG USRCOD 
VALCE OB1524R VALFN 
VALR BB1460R VALX 
STPBSZ = geon20 SULNSP 
7 = 203544R 


ater 
TREN 
Mhst 


ONCEONL, 


080174R 
290510R 
682752R 
BO8646R 
68B226R 
$89642R 
BB1L46R 
QBGLSOR 
O01414R 
BB16O4R 
S @eeoee G 
883102R 
B825Z26R 
B @neoee 
982462R 
BO2688R 
Ss seeeee CG 
OOB456R 
882646R 
683220R 
3XO08087 
BO00646R 
OO1L146R 
689794R 
O84700R 
BORL40R 
Ss eegeee 
5X209001 
SX0O8C05 
@81296R 
O84S20R 
@61252R 
OBG276R 
BS @aeees 6 
BOGS44R 


OB2040R 
8 eneene 6 

BB22,4R 

033420R 

OB1556R 
= 080429 


str 


agsx 
ASCFNE 
ASKVT 
CHRSFN 
FRABSS 
FRLENA 
FRRARG 
FRRPOL 
ERSGNA 
ERYAARS 
FACL 
FILLTB 
FNTAR 
INCH 
INEHA 
INTSAV 
KBRENZ 
LENFNE 
MOVLP 
NUMSGN 
POL 
POSFME 
POSNXT 
POsY 
RAOANS 
PNOFN2 
RNORM 
Re 
SAVCHA 
SEGLP 
SECGTY 
SGNFLT 


USRQIN 
VALFME 
@KBUSZ 
COMMA 


Oeg222R 
808974R 
BU3A56R 
QB8974R 
@88232R 
O2B90aR 
B geneee 6 
a #08eee G 
OEBS14R 
080432R 
3 evesee 6 
B DBS3OSR 
023374R 
2B3334R 
B82270R 
852612R 
8 B2037R 
@88910R 
3B2626R 
zB eneoee ¢ 
& veseee G 
981452R 
@8L976R 
901200R 
BB33B2R 
BOOV1OR 
a2an62R 
8X000202 
Bw ecesee 6 
QO1366R 
O@1L270R 
900279R 
Q@20319R 


QO0368R 
Q80S76R 
BOSS64R 
= 822954R 
B enteee ¢ 
882074R 
2015660R 
= G80022 
s eeeene G 


ByYY 


ay 


a 


BASICH MACX11 


RUN@TIMET 
SoRE USO! 


AGSFN 
ABSFNE 
ABSINT 
agsx 
ARGO 
ARRAYS 
ASCFN 
ASCFNE 
ASKOON 
ASKLA 
ASKSER 
ASKVT 
BASICH 
BL 
CHRFNE 
CHRSFN 
COLUMN 
DECCOR 
ERABSA 
ERABSS 
ERASCA 
ERASCS 
ERCHRS 
ERLENA 
ERLENS 
ERPOSA 
ERPOSS 
ERRARG 
ERRMIX 
ERRNDA 
ERRANDS 
ERRPOL 
ERRSYN 
ERSEGA 
ERSEGS 
ERSGNA 
ERSGNS 
ERSTRA 
ERSTRS 
ERTABS 
ERVALA 
ERVALS 
EVAL, 
Fact 


Face 


FILuco 
FILLOO 
FILLTS 
FNEND 

FNNAMY 
FNNAM2 


vo2s 

18 SECONDS 

3K 
1208 774 
13598 775 
125 1298 
126 428 
41 164 
35 655 
2118 787 
2268 708 
678 682 
6758 684 
6628 672 
6879 696 
7oe 563 
738 185 
2408 794 
2298 798 
37 173 
5498 556 
224 13568 
123 1378 
212 217 
214 2258 
234 2390 
195 2058 
197 2868 
245 249 
247 254 
38 116 
38 

88 1168 
62 1ise 
38 

38 145 
327 334 
329 336 
143 1568 
145 1598 
445 4630 
aay 4640 
166 1898 
399 432 
404 4360 
39 9 
37 112 
423 

37 113 
260 262 
33 725 
708 7098 
783 7598 
4668 
604 6268 
605 6298 


22ahARe73 


138 
229 


249 


253 
256 
456 


437 
338 
344 


4398 


128 
124 


129 
347 


15445 


132 


6998 


2240 


s2ge 
Seis 
158 


159 
392" 
3938 


142 
127 


131 
334 


PACE 4705 
1358 

205 224 
189 206 
194 242 
133 147 
134 149 
360 407 


see 


22> 


24a 
458 


4159 
424 


392 


239 


248 
198 


168 


arg 


32% 


252 
228 


199 


463 


393 


326 
236 


203 


438 


330 
318 


224 


464 


337 
333 


272 


SYb 


S98 444 
$55 476 
232 237 


347 


FNTAB 
FNTABE 
WICORE 
IF PMP 
INCH 
INTALL 
INLOF 
INTFN 
INTHO 
INILP. 
INTMV 
LNINXT 
INISAV 
INLTI 
INITY 
INT 
KBBENY 
KBBFHY 
«GBUFS 
LENFN 
QENFNE 
GIMET 
MAKES] 
MOVDON 
MOVLP 
NORM 
NORNO 
NOUSR 
NUMSGN 
ONCEON 
OPRATO 
Pg 


POL 
POS}ZE 
POSF 
POSsF2 
POSFN 
POSFNE 
POSFST 
POSNO 
POSNXT 
POSREM 
POSTRY 
POSX 
Posy 
PRUP 
PRMSG 
RO 


RL 
R2 


RS 


RS 


HAND 
RDANS 
REXP 
RNOL 
RNO2 
RNOFN 
RNDFN2 
RNOFNE 
RNOLFN 
RNORM 
RPLUS 
SAVCHA 
SEGFN 
SEGFNE 
SEGL 
SEGLP 
SEGNUL 
SEGR2 
SEGRNG 
SEGTY 
SEGTY2 
SEGX 
SEGXD 
SGNFLT 
SGNFN 
SGNFNE 
SGNPOS 
SGNX 
SOPRAT 
sP 


764 


364 


6328 


339 


524 


375 


437 
442 
337 
680 


276 


663 

86 
181 
317 
443 


669 


144 
466 

98 
183 
288 
349 
445 
782 

91 
286 
374 
635 
706 
754 
434 
652 
113 
198 
298 
4a9 
653 


680 


367 


5268 


450 


204 
164 
339 
692 


278 


675 

a7 
483 
344 
444 


671 


165 
563 

92 
186 
289 
366 
448 
783 

96 
295 
384 
636 
707 


549 
653 
124 
499 
306 
453 
655 


692 


3900 


a7. 


459 


223 
189 
375 
754 


307 


687 

90 
184 
354 
426 


68s 


196 
624 

93 
220 
290 
369 
435 
786 

99 
304 
382 
641 
708 


557 
654 
127 
203 
38 
454 
657 


7458 


173 


349 437 
194 241 
398 420 
Sige 
73 709 
9 93 
185 236 
353 358 
428 434 
68s 693 
aus 230 
624 632 
9 97 
202 203 
295, 292 
372 373 
430 449 
707 798 
ae 105 
305 306 
386 423 
662 663 
745 719 
558 568 
655 656 
129 134 
220 224 
347 318 
458 Sag 
656 659 
747 
17> 177 


229 
422 


7338 
96 
237 
3463 
436 


695 


246 
686 
178 
245 
293 
377 
457 
724 
476 
318 
454 
073 
728 


590 
657 
433 
222 
333 
592 
794 


184 


235 
4a4 


7351 

97 
257 
3465 
575 


733 


250 
639 
145 
226 
295 
380 
577 
725 
aii 
312 
452 
675 
727 


595 
134 
232 


334 
594 


202 


244 
450 


98 
262 
378 
578 


736 


255 
641 
137 
218 
298 
3a2 
540 
728 
113 
358 
453 
685 
728 


598 
147 
234 


355 
670 


215 


248 
455 


192 
266 
379 
5R2 


738 


378 
642 
108 
222 
373 
583 
672 


20g 
S60 
965 
6R7 
733 


616 
149 
237 
S62 
or4 


23s 


252 
459 


178 
275 
384 
614 


748 
335 


129 
234 
328 
3A5 
634 


2e4 
3863 
585 
699 
738 


623 
155 
258 


373 
675 


236 


254 
555 


146 
277 
385 
618 


749 
348 


110 
269 
310 
418 
635 


282 
$65 
592 
74 
739 


628 


156 
269 
476 
625 


TABLES 
TABNON 
TABNUL 
TBLSEN 
TKS 

TMPSTC 
TPB 

TPBENS 
TPBFHA 
TPBUFL 
TRYCOR 
uSR 


USRARE 


USRCOO 
USRLIN 
VAL 
VALCE 
VAGFN 
VALFNE 
Vaud 
VALR 
VALX 


i 
1FOMMA 
 RPAR 
SKeBSz 
SSTKS2 
sTPesz 
SULNSP 


BASICH 


wawoweUNE 


MACX11 


272 281 
344 352 
417 418 


388 46a 


299 290 
284 306 


174 187 
246 250 
84 122 


vO@2L - 22eMARSTS 


282 285 288 29% 303 304 
353 372 374 377 378 379 
431 433 434 439 448 454 
308 454 458 

433 

724 

5378 

$630 

202 526 35278 526 537 5 tbe 
328 335 

444 165 196 2i3 238 255 


45145 PAGE 14 

BASIC/PTS PAaRTS=gaS{CH 
DECaL = PTBACACLAS 
COPYRIGHT 1973 


DIGITAL EQUIPMENY CORPORATION 
MAYNARO, MASSACHUSETTS 04754 


312 
3aa 
497 


539 


342 


313 
390 
458 


5428 
426 


346 
473 
460 


7554 


446 


333 
478 
550 


759 


334 
412 
554 


BASICH 


18 
a4 


BASICH 


29 
38 
31 
32 
33 
34 
35 
36 
37 
38 
39 
48 
44 
42 
43 
ae 
45 
46 
47 
48 
49 
50 
54 
52 
53 
54 
55 
56 


MACKXLL 


MACX12 


voes 22emMARe73 


VBaL ; 22emMARa73 


15445 PAGE 2 
TITLE 


ne a res 


15145 PAGE 3 


4 
} GLOBALS 


! 
+GLOaL 
1GLOBL 
1GL08L 
1GLOBL 
»GLOBL 
16,084 
16,081 
1G084 
1GLO8L 
1GL08L 
1GLOBL 
1GL08L 
1GLOBL 


BASICH Vasa EDIT 4228 (REF) 01/31/73 
BASIC SCURCE FILE #15 


USER AREA AND QNCE®ONLY INIT, Caor, 
To BE LINKED LAST AFTER BASIC! AND FpMpeit To FoRr™ BASIC, 


BSe 


TPB, TKS 
START, FILLCO 

USRAREA 

LIMIT, POL, ARRAYS, POST#ZE 
TABLED, T8LS5END 

COLUMN, FAC1, FAC2, ,RPAR 
ERRMIX, ERRPOL, FRRSYN, ERRARG 
EVAL, INT, MAKEST, OPRATO, SOPRAT 
sGOMMA, T3, T2, 13 

ARGB, SAVCHAR, NUMSG™, STPRO 
NORM, VAL 

RNOL, RNOZ 

SSYKS2 ,1FPMP 


) ASSEMBLY PARAMETERS 


' 
1 TPNOF 
svpes2 s2e 
,ENOC 
! 
1 TFNOF 
skeesz #20 
yENOG 


1 UFNOF 
SULNSP #422 
ENOC 


SypOsé sTELEPRINTER BUFFER SIZE 
ICHARACTERS 


SKBBSé JKEYBOARD AYFFY SIZE 
JCHARACTFRS 


SYLNSP JYSER LINE SPACE 
BYTES 


iad 


“ 


BASICH 


64 
65 
66 
67 
68 
69 
79 
74 
72 
3 
74 
5 
76 
7 
76 
79 
8e 


BASICH 


119 
128 
322 
322 
123 
12¢ 
125 
126 
127 
126 
129 
130 
132 
132 
133 
134 
135 
136 
137 
138 
139 
140 


MACX12 


aooeee! 


o20002! 
820806! 
aoneig! 
oBoe14" 


080016! 
aeoezg! 
goog24! 
880826! 
aeoe3e! 
080832! 
ooagses 
000836! 
o9a04e! 
090042! 
agagsas 
000046! 
980052! 
ooegses 
080056! 
oopge2! 
opoged! 
880866! 
ogoe7g! 
980072! 
oo0e74! 
080876! 
oe0198! 
06102 
000104! 
o901c6! 
o90119/ 
090112 
aee114/ 
090129! 
808124! 
e013 
808134! 


MACXL2 


O00149¢ 
aaoregs 
200146! 
800152! 
80154! 
O8G16g8¢ 
880162! 
800164! 
980172! 
880174! 
800200! 
808202! 
880206! 
880219! 
900216! 
808222! 
888226! 
B8B232! 


Ve2s 


Boegog! 
902998 
389001 
3e9ee2 
889823 
3OOBS6 
090825 
289006 
OpeR07 
390048 


084737 
103452 
122127 
004045 


010509 
862708 
811883 
244802 
286305 
086182 
262082 
861903 
985502 
361902 
190002 
862702 
310310 
19240 
912728 
886383 
886102 
183402 
885300 
280773 
185e03 
150203 
880303 
183902 
150002 
300382 
2846082 
696083 
910265 
840365 
080157 
090137 
280137 


VO22 


084737 
183438 
122127 
901027 
805765 
281405 
100017 
242765 
290445 
905765 
100018 
895465 
102005 
012765 
285965 
280137 
280137 
900137 


22eMARe73S 


oesoeeG 
a90008G 


8900006 


198008 


OBG201 


oeovesG 
990000G 
8e00eR6 
8989006 
8980096 


22eMARe73 


0g0R00G 
aga00es 
0980006 


190008 
898006 
9900006 


044000 

0990806 
aaoeeeG 
Bae0ee6 
a900006 


8088086 


15145 PAGE 4 


CSEcT 
RO "x0 
ri ext 
R2 8x2 
RS x3 
R4 x4 
RS "x5 
gP 5x6 
PC 8x7 
BL 249 


USRAREAS , WORD 
BASICHY 


SRNO FUNCTION e* GENERATE 8ANDOM NUMRER 


SCAN PAST ARG {F PRESENT 


4 

RNOLFNG JSR 
acs 
CMPB 


BNE 
RNOFNG 
RNOFN2} MOV 
400 
MOV 
MOV 
asl, 
ROL 
400 
aoo 
aoc 
apo 
BP, 
aoo 
RPLUS| MOV 
MOV 
MOV 
RNORM} ASL 
ROL 
6cs 
oec 
6R 
REXPI CRO 
Byse 
SWAB 
CURB 
Byss 
SWAG 
ROR 
ROR 
MOV 
MOV 
vMP 
ERRNOS| UMP 
ERRNDAY UMP 
RNOFNET 


15145 = PAGE 5 


PC, @eEVAL 
ERRNDA 

(RL) 6,8, RPAR 
ERRNOS 


RS,RO 
#RND2,RO 
@RO,RS 
2G RB) gR2 
RS 


R2 
CRB) O RZ 


#199000,R2 
RS, ORD 
RZ, e( KD) 


R2,FAGLCRS) 
RS FAGZCRS) 
S#OPRATOR 
@SERRSYN 
@BERRARG 


sAQS FUNCTION ROUTINE 


ABSFNI JSR 
acs 


ABSINT} TST 


ABSX! JMP 
ERABSA UMP 
ERAGBSS1 yMP 
ABSFNE) 


PG, OWEVAL 
ERABSA 
CRY) op #,RPAR 
ERABSS 

FACa (KS) 

ABSINT 

Agsx 
#300080,F ACL (RS) 
AGSX 

FAC2(K5) 

agsx 

FAG2(K5) 

AgSX 
844008, F ACY (95) 
FAC2(KS) 
@ROPRATOR 
@SERRARG 
@WERRSYN 


sMULT AY 2 
INOW BY 3 


INOW BY Zeeloes 


GET 200526 
STORE NEW GENERATORS 


yINTTTAL EXPONENT 
JFLOAT RESULT 


HJUMP WHEN LEADING BIT FAUNO 
VADYUST EXPONENT FOR SHIFT 


PUNSFRY EXPONENT [NTO RESULT 


FINSERT * SIGN 


BASICH MACX14 va2d 22aMARe73 415145 PAGE 6 


142 ySON FUNCTION ROUTINE 

142 000236! 306737 oeegeg SGNFNI JSR PG, @WEVAL, 
443 900242! 193424 its ERSGNA 
444° 990244" 122127 ge09006 CMPB (RL) o¢#,RPAR 
145 g98250' 304923 BNE ERSGNS 
446 900252! J05e00 CLR RB 

147 «990254! 985765 seaveeG TST FACA(RS) 
148 a9a260! 294923 BNE SGNFLT 
149 330262! 285765 egog08G TST FAGZ(RS) 
450 900266! 21410 BEO SGNX 

151 900270" 190002 SGNFLT} GPL SGNPOS 
452 200272! 905300 OC Ro 

153 990274! agoeas aR 104 

154 998276! o932ag SGNPOS} INC Re 

155 090300! 910965 saggoRs “QV AB, FAGZ(RS) 
156 990304) 095965 sagaeRs CLR FACL(RS) 
157 g803ia’ 280137 seogaad SGNX! JM PROPRATOR 
158 992314! 290137 oBgaveRG ERSGNA! JMP @RERRARG 
159 98320! 390137 sooR006 ERSGNS| yMP @RERRSYN 
160 SGNFNEI 

164 

162 


386 


BAS|CH MACX11 Vee. 22eMARe73 15445 PAGE 7 
163 


sTaB FUNCTION ROUTINE 
164 998324! 394737 a900006 TABFNT SR PC, @#ARGB 
165 8883304 122127 sa980806 CmMPB (RL) em, RPAR 
166 3803344 104936 BNE ERTABS 
167 2890336" 365046 CUR e(SP) 
168 908340! 116516 soaB00G MOVB = FAC2(K5), (SP) 
169 «388344! 224627 900110 TABBS «= CMP. (SP),#72, 
178 «908358! 193428 Bo TABC 
172 808352! 162716 390118 Sys 872,,0SP) 
172 4880356" 390772 BR TABB 
173° 23A36B! 167516 a9e980G TABCI sub @COLUMN(RS), (SP) 
174 300364! 199003 BPL, 104 
175 «200366! 705816 CLR (SP) 
176 380370" AB1g22 BNE TABNON 
477) 280372! 293316 oec (SP) 
478 900374" 390414 BR TABNULL 
179 =990376! 319522 TABNON} QV RS,R2 
182 899400! 294737 eg00086 JSR PC, @#MAKESPR 
281 820404" 311600 MOV ($P),Ko 
182 4380486! 295902 CLR R2 
183) 200410! 151902 8ysB (RO), RZ 
184 390412" 362700 se0003 400 63,R0 
185 280416! 112729 sogo4e0 MOVB HBL CRODe 
186 880422! 395322 oee R2 
187 g00424! 203374 BGT ry} 
188 980426' 299137 sgeuceG TABNULL I IMP @SSOPKATR 
189 298432! 280137 soeB08G ERPABS} UMP @#ERRSYN 
192 TABFNE] 
194 
192 


BASICH 


193 
194 
295 
196 
1497 
198 
199. 
208 
204 
202 
203 
204 
205 
206 
207 
208 
209 


BASICH 


218 
213 
212 
213 
246 
2a5 
216 
247 
216 
249 
220 
223 
222 
225 
224 
225 
226 
227 
228 
229 
230 
232 
232 
233 
234 
235 
236 
237 
238 
239 
248 
244 
242 


MACKLL 


090436! 
aga4420 
gogesae 
oa045g! 
200452! 
000456! 
ggaee2! 
gon4e4s 
290466! 
aga479! 
agaa74s 
aoa500° 
ag0504! 


MACKL1 


8905184 
BOO514¢ 
800516! 
889522! 
a00524/ 
880526! 
8898532! 
8085344 
300540' 
888542! 
080546! 
o80552¢ 
800566! 
gpese4/ 
088578! 


090574! 
oeoseg! 
BBn604' 
800606! 
aoo614! 
880629! 
8806220 
800626! 
800638! 
800636! 
goaede2t 


vai 


684737 
193816 
122127 
381035 
095065 
905065 
812602 
805222 
091422 
114265 
200137 
980157 
280137 


year 


004737 
103023 
122127 
001922 
212602 
320227 
3014144 
124227 
401011 
OB5965 
385065 
116265 
280137 
888157 
200137 


684737 
122127 
581916 
142765 
312746 
830502 
304737 
211609 
116568 
9001357 
280437 


22emMaRe73 


ogoeees 
ag0ge06 


ogaoeeG 
seeoved 


agogees 
ggageeG 
agageeG 
og08086 


22emMARe7S 


eeeevec 
age0eeG 


477777 
990001 


ogove0G 
eeoeeas 
gages 

8ea0086 
aegeees 
apacveG 


8900806 
gage 


888200 
90008) 


890veeG 
8ee0ee6 


9ga0006 
2800086 


aeneees 


a9o0aeG 


280803 


15145 = PAGE 8 


1 LEN FUNCTION ROYTINE 
LENFNE = JSR PO, OREVAL 
acc ERLENA 
cups (RL); @ RPAR 
BNE ERLENS 


CLR FACL(RS) 

CLR FAC2(R3) 

MOV (SP}o,R2 

INC R2 

Bea 1%6 

4OVB (RZ) FACZERS) 

vMP @ROPRATOR 
ERLENAT JMP @BERRARG 
ERLENS} UMP @RERRSYN 


LENFNE} 
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5 aSC FUNCTION ROUTINE 


ASCENE = ySR PC, @eEVAL 

acc ERASCA 

CMPB (RO) Oe, 8, RPAR 

BNE erases 

MOV (SP) 4,R2 

CMP R2,0477777 

pea ERASCA 

CMPB (RZ), 84 

BNE ERASCA 

CLR FACA(RS) 

CLR FAC2(RS) 

“OVE SERZ),PACZCR5) 

wMP @BOPRATOR 
ERASCA} UMP @#ERRARG 
-ERASCS) IMP @SERRSYN 
ASCFNE} ~ 
1 CHRS FUNCTION ROUTINE 
GHASFNY JSR PC, @#ARGB 

CMP (Ro) oe, 8, RPAR 

BNE ERCHRS 

Bice #208, FAC2(R5) 

Mov #4, 005P) 

MOV R5,R2 

JSR PE, @UMAKESER 

MOV (SP), KO 

MOVB FACZ(R5),5(RB) 

MP esSOPRATR 
ERCHRS| JMP @RERRSYN 
CHRFNE} 


1TAKE CHAR MOD 126 


BSE 
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243 1 POS PUNCTION ROUTING 

244 090046" 924737 aazeeeG POSFNI JSR PG, OaEVAL, 

245 000652! 103133 gcc ERPOSA 

246 900654" 122127 oges0eG CMPB (RL) 049, COMMA 
247 g2866a 394132 BNE ERPQSS 

248 900662! 224737 agogueG usr PC, @MEVAL 

249 309066! 193125 ace ERPOSA 

250 980678! 122127 seo9e06 cMPB CRL)e,#, COMMA | 
251 309674) coii24 BNE ERPOSS 

252 090676! 284737 sg00006 uSR PC, @vEVAL 

253 O80702' 193517 acs ERPOSA 

254 382724! 904737 2908006 ysr PG, O#INT 

255 @80719' 122127 seap0eG CMPB (Ro) oye, RPAR 
256 890714" 201114 ONE ERPOSS 

257 300716" 285028 CLR RB 

258 990720! 288765 sgge20G TS? FACL(AS) 

259 g9a724) 294977 BNE POSF 

268 080726" 7285765 sae0086 TST FACZ(K5) 

264 880732! 293474 BLE POSF 

262 000734! 156508 ga00006 ase FACZ(R5) RA sRO ISN 
263 HCHECK NULL XS 

264 3890740! 926627 agoev2 177777 GMP 248P) 58477777 
265 999746! a02902 BNE POSX 

266 380750 oa5909 CUR RO 

267 390752! aa9464 BR POSF 

268 ICQMPUTE LENGTH OF xs 

269 988754! 395902 POSX! CLR R2 

278 G00756 157602 aoe0R2 BySe @2(SP),R2 

274 ICHECK NULL YS 

272 «900762! 921627 177777 CMP (SP) 48477777 
273 000766" Be1804 BNE Posy 

274 JNULL YS, ANS JS MENCNSLENEXS)) 
275 «900778! a2g902 cup RO,R2 

276 800772! 393454 BLE POsF 

277 300774! nip208 MOV R2,RO 

278 380776! 900452 BR POSF 

279 ISAVE ADOR OF ENO OF YS IN T2 
288 001900! 905903 POSY! CLR RY 

284 2281902! 157603 cooveD 81SB (SP) RS 

282 981806! 361603 apo (SP), R3 

283 821918! 362723 2900003 aoo #35,RS 

284 001914/ 039365 onaB006 MOV RS,T2(R5) 

285 981928! 012603 MOV (SP) o,R3 

286 881822! 062723 sooons - ado #3,R3 

287 HSAVE ADDR OF END OF XS IN Tt 
288 201826! 261602 ano (SP), K2 

289 881930! 262702 coBee5 aod #3,R2 

290 801034! 219265 G029006 MOV R2,TUCRS) 

294 a1948" 432602 MOV (SP)o,R2 

292 881242! 269902 apo ROyRZ 

293 881044! 262702 gage02 ado 42,R2 

294 IFIND MATCHING FIRST CHARACTER 360 
295 o01850! 124322 POSFST) CMPB (R3) (R29 
296 381052! 202406 8E0 POSREM 

297 001954) 99520 POSTRY} INC RO 
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298 301056! 820268 see0egs cme R2,TL(R5) 
299 084962! 394372 BNE POSFST 

308 881064! 395900 CUR Re 

301 801066! 280417 BR Posr2 

302 ICHECK THAT REMAINING CHARS MATCH 
303 901070" 010246 POSREM} MOV R2,0(SP) 
304 881872! 218346 MOV R3,0(SP) 
305 091974! 395203 INC RS 

306 981076! 220368 oae0e0s POSNXT} CMP R3,T2(RS) 
307 981102! 201419 8EQ POSF 

308 891194! 220265 sooeeeG cmp R2, TLRS) 
309 981110! 281402 BEG POSNO 

310 G04112/ 422223 cMPB (HZ) Op (R36 
3120 84114" 302779 BE POSNXT 

312° 384116! 342603 POSNOt MOV (SP) O,RS 
313° 882128! 212602 MOV (SP) 0, R2 
314 081222! 200756 8R POSTRY 

315 JRETURN FROM FUNCTION 

316 001124! 222626 POSFI CMP (SP) 9, (SP)4 
317 081126! 010865 coeeoed POSF21 MOV RO, FACZCRS) 
318 801132! 905965 og0B006 CLR FACL(RS) 
319 304136" 390137 ag0g006 vMP @ROPRATOR 
320 301142! G80137 B900006 ERPOSAT UMP @BERRARG 
324 381146 200137 ago0eaG ERPOSS! JMP SBERRSYN 
322 POSFNEI 

323 

324 
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325 4 SEG FUNCTION ROUTINE 

326 881152! 294737 aesgedc SEGFNS ySR PC, @MEVAL, 

327 -301156/ 183116 Bcc ERSEGA 

328 991168! 122127 g808e6 cMPs CR) oy #, COMMA 

329 084164! 204113 ANE ERSEGS 

330 384166! 284737 ageeeeG JSR PG, OWEVAL 

331 801172! 193506 Bcs ERSEGA 

332 881174! 384737 Bg0R806 usr PG, ee\NT 

333° 381208! 216546 sp00006 MOV FACL(KS),@¢SP) 

334 984204! 216546 aooee0G MOV FAC2(KS),e¢SP) 

335 801218" 122127 aeaoues cura (RL) Oe), COMMA 

336 982214 304077 BNE ERSEGS 

337 9842164 284737 seo0006 JSR PC, OeEVAL 

338 2814222' 193472 acs ERSEGA 

339 981224! 3846737 sa00R86 JSR PG, OeENT 

348 381230! 122127 agepe06 ces ¢RL)6)e,RPAR 

344 381234" 204067 BNE ERSEGS 

342 IGET X VALUE IN R2 

343 981236! 212602 MOV (SP) o,R2 

344° «884240 012620 MOV (SP) 6,RO 

345 883242! 180403 OMT SEGxo 

346 991244! 901955 BNE SEGNUL 

347 881246" 005702 rst R2 

348 «981250! B83902 acT SEG. 

349 881252! 942702 g8000% SEGXBt OV #4,R2 

350 ICOMPUTE LENGTH OF AS IN Ro 

354 081256! oe5oce SEGLI CLR RO 

352 901260 24627 177777 cue (SP) 8477777 SCHECK NULL STRING 
353 081264! 1576089 990080 8SB @(SP),RO 

354 IGET Y VALUE IN RS 

355 881278" 295765 ceseBeG SEGTY{ TST FACL(RS) 

356 9012744 199444 amy SECNUL 

357 981276! 281402 BE secry2 

358 ge1308! B12883 MOV RO,RS 

359 381302! 380403 BR SEGRNG 

360 G81304! 2316503 seen0eG SEGTY2) MOV FAC2(HS) RS 

364 BB14318' 083433 BLE SEGNUL 

362 ICWECK B<eR2caR3<aRg 

363 981312! B2eee3 SEGRNGI CMP RO,RS 

364 801314! 104904 BH} SEGR2 

365 B81316! o188e3 MoV ROARS 

366 981328! #20203 SEGR2} CMP R2,R3 

367 004322! 191026 BHI SEGNUL 

368 ICOMPUTE LENGTH OF OUTPUT STRING 

3609 904324! 160203 sys RZ, RS 

378 091326 o95203 INC RS 

373 IMAKE NEW STRING OF THE CORRECT LENGTH 

372 881330" 910246 MoV R2,0(SP) JSAVE START CHAR 
373 804332! 238502 MOV RO,R2 

374 804334! 319346 MOV R3,0(SP) 

375 881336! 394737 aoeeDes ysr °C, OUMAKESTR : 
376 IFEX STACK AND MOVE IN CHARS FROM OLM STRING Sb6A 
377 864342! 032602 MOV (SP) o,R2 NEW STRING POINTER 
378) 884344! 312609 MOV (SP) 4,RO JSTART CHAR 

379 881346! 267680 aod CSP), RO 1A0D OLD STR POINTER 
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388 801358" 810216 MOV R2, (SP) tSAVE NEW STRING 

384 801352! 205803 CLR Rs 

382 981354" 154203 a[SB (R27, KS }R3 1S NEW STRING LENGTH 
383 891356! 062702 BaeB85 aoo #3,R2 FADDR FIRST CHAR JN NEW STR 
384 881562! 262709 s208082 aoo 42,R0 yAQDR START CHAR IN OLO STR 
385 3801366! 112922 SEGLP | MOVE (RB) SO, (RAD + sFYLL IN NEW STRING 

386 981378! 8859383 bec RS 

387 981372" 204375 BNE SEGLP 

386 881374! oea1Sy 22800006 uMP @BSTPRO 

389 OUTPUT NULL STRING 

398 981408! 312726 477777 SEGNULI MOV #477777, 05P) 

394 881404" 300137 B80000G SEGX? JMP @SSOPKATR 

392 881419" 2899137 seoRo8G ERSEGAL JMP @#ERRARG 

393 881414! 2890137 agg00eG ERSEGSt UMP @RERRSYN 

394 SEGFNE} 

395 

396 


363 


BASICK 


397 
398 
399 
400 
404 
422 
403 
404 
405 
406 
407 
408 
409 
410 
44a 
412 
413 
414 
415 
416 
417 
418 
419 
428 
423 
422 
423 
424 
425 
426 
427 
428 
429 
438 
434 
432 
433 
434 
435 
436 
437 
438 
439 
448 
44g 
442 


BASICH 


443 
446 
445 
446 
aay 
448 
ang 
450 
454 
452 
453 
454 
455 
456 
457 
456 
459 
460 
46% 
462 
463 
464 
465 
466 
467 
468 
469 


MACXAL 


a81429! 
a014244 
3044268 
OB1452¢ 


OB1434s 
281436! 
8014420 
a01444¢ 
801459! 
Ob1454! 
001456! 
301469! 
201462! 
O04464! 
801466! 
801472! 
201474! 
0844768 
O81500° 
0815024 


801504! 


804519" 
901514! 
381529! 


BB15244 
081526! 
881558 
884534! 


804536! 
0015494 
801542! 
001544! 
001546! 
801550! 
084552 
391556! 
081562" 


MACX1L 


801566! 
9045720 
O045740 
ao¢oog" 
284602! 
001606! 
084618 
oaisi4: 
901616! 
221622" 
201626! 
821632" 
821636! 
201649" 
ao164se: 
81646! 
001652" 
aa1654° 


881660! 
0016645 


ve2s 


004737 
183956 
122127 
001054 


a1i6a8 
328027 
381806 
205065 
395065 
305726 
280435 
495892 
154902 
918216 
062700 
86a9z2 
185012 
a10446 
810146 
310246 


204737 


204737 
348365 
910465 


185719 
881423 
122027 
984773 


920826 
204810 
812603 
312604 
912602 
129238 
200457 
880137 
980137 


vo2s 


984737 
193432 
122127 
3810351 
342746 
340522 
284737 
211683 
262793 
948365 
383965 
084737 
3880006 
342602 
846546 
304737 
12616 
880137 


890137 
200137 


22eMARe73 


o0geeeG 
eaevens 


177777 


B9ORRRG 
3080086 


889803 


oegeoes 
egoaeeG 
ogaevec 


008048 


Sesob8G 
99e0006 
8O00B8G 


22eMARe73 


0900086 
2900006 
oege20 
peeee6 
290003 
8oaeeeG 


889006 
888086 


0900086 
BaaeeaG 
2900006 


9800006 
2880006 
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) VAL PUNCTION ROUTING 
VALFNE VSR PC, OREVAL 
Bce ERVALA 
cMPS (RY) Oe 8, RPAR 
BNE ERVALS 
TREAD STRING 
MoV (SP) ,KO 
CMP RO, 8177777 
BNE VALR 
CLR FACA(KS) 
CLR FAC2CR5) 
TST (SP) 
BR VAL 
VALRI CLR R2 
aise (RO) HZ 
MoV R2, (SP) 
400 03, RO 
aoo ROR2 
CL RB (R2) 
MOV R4,0(SP) 
MoV Ro,0(SP) 
Mov R2,0(SP) 


FREAD ASeLT NUMBER ANO EXPONENT 
INORMALIZE TO FO 
JSR 


PG, eeNORM 

mov RS FAGLERS) 

MOV R4,FAGZ(RS) 
JCWECK END OF STRING 
VALCEI STB = (R@) 

REQ VALX 

cMPB (RB) oO, #8L, 

ct) VALCE 
JRESTORE REGS AND RETURN TO EVAL 
VALX1 CMP RO, (SP)+ 

BNE ERVALA 

MOV (SP)6,R4 

MOV (SP)o,R4 

MOV (SP) ey R2 

MOVB = R2, CRB) 
VALI UMP @SOPRATOR 
ERVALS! UMP @#ERRSYN 
ERVALA] UMP PRERRARG 


VALFNES 
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PC,eaVAL 


RM FLT PT NUMBER 


} STR PUNCTION ROUTING 


STAFN| JSR PG, OE VAL 
acs ERSYRA 
CMPB CRY) Oye, RPAR 
BNE ERSTRS 
MOV #28, 0(SP) 
MOV R5,R2 
JSR PC, @MMAKESTR 
MOV CSP) RS 
aoo a3,R3 
MOV R3,T2(RS) 
CLR TEER) 
JSR PC, @#NUMSGN 
sWORD = SAVOHAR 
MOV SP,R2 
MOV TA(A5),0(SP) 
JSR PC, OMMAKESTR 
MOV (SP) o, (SP) 
vMP @RSTPHO 
ERSTRAT MP @#ERRARG 
ERSTRS1 JMP @BERRSYN 


STRFNE| 
FNENDI 


HCHECK NULL STRING 


RESTORE STRING LENGTH 


367 


PROTECT STRING 


36s 


BASICH 


470 
472 
472 
473 
47a 
475 
476 
477 
478 
479 
480 
483 
482 
483 
rr) 
485 
486 
487 
488 
489 
499 
494 
492 
493 
494 
495 
496 
497 
498 
499 
528 
50. 
302 
503 
504 
505 
506 
507 
308 
509 
518 
512 
512 
513 
514 
515 
316 


BASICH 


547 
518 
519 
528 
32k 
322 
323 
324 
525 
326 
327 
328 
529 
530 
533 
532 
533 
334 
535 
336 
537 
538 
539 
548 
54% 
342 
543 
544 


MACXAL 


081678¢ 
o81672¢ 
BOL674! 
381676" 
081708! 
O01702¢ 
O8170468 
2017068 
081718! 
884712 
aea714! 
O82716! 
881729! 
881722¢ 
O017248 
801726! 
881739! 
884732! 
OBL734q! 
201736! 
801749" 
201742° 
OO1744+ 
801746! 
984759! 
883752° 
081754! 
881756' 
OB1769" 
O91762¢ 
OB1764! 
@84766! 
0817678 
084778" 
084772! 
OO1774! 
8B1776¢ 
0847778 
a62g00' 
@g2e01! 
o82002! 
BO2B03! 


MACXAL 


B62004! 
382806! 
882810! 
682012! 
o02014! 
882016! 


882049" 
@82042¢ 
882044) 
982846! 
202050' 
382952! 


vo2n 


a00ese 
oeeo0a 
000008 
ogeeae 
209029 
290008 
380000 
ae22se! 
ag2074) 
200020 
30008 
200000 
780820 
280000 
300908 
280008 
390800 
ascoee 
sgegeg 
290800 
voageg 
009029 
280820 
9890@ 
900000 
TTT 
200000 
aeeace 
TTT) 
TTT I 
eeoee8 

200 

20g 
ea2940/ 
e206! 
eeoece 

200 

020 

oe@ 

Tr) 

Ty) 

60g 


veer 


ae202g! 
202037! 
a82a29! 
ae2g2e/ 
282e20' 
200029 

292920 
302949) 
202037? 


3020546) 
382073! 
380000 

3028544 
3B2954/ 
a9e808 

ae2054! 
302074) 
802073! 


2e2214¢ 
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) 

5 

J USER AREA STORAGE CELLS 
U ‘ 

u 


SRi 1WORO 
(WORD 
;WORD 
{WORD 
(WORD 
sWORO 
(WORD 
(WORD 
{WORD 
‘WORD 
a WORD 
»WORD 
;WORD 
‘WORD 
1 WORD 
a WORD 
a WORD 
» WORD 
(WORD 
WORD 
sHORD 
sHORO 
yWORD 
WORD 
;WORD 
WORD 
‘WORD 
+WORD 

RAND! =, WORD 
‘WORD 
(WORD 
BYTE 
sBYTE 
e 
e 
s WORD 
BYTE 
(BYTE 
BYTE 
sBYTE 
BYTE 
BYTE 
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sSYMIQLS 
LIMIT 
pPAL 
sPASTZE 
PARHAYS 
SHIFREE 
HLOFPEE 
yCOOE 
VL INF 
HVARSAV 
ySSiSAV 
ySS2Sav 
WLINENG 
IGSBETR 
COLUMN 
ICLMNTTY 
yFAact 
1FAC2 
PROSAVE 
FRASAVE 
IRASAVE 
PRSSAVE 
pRASAVF 
me 

v2 

7s 
PRNOL 
FRND2 
yRNOCT 
ILOSTR 
VHISTR 
1rOneV 
sPDEV 
sTPHR 
yKAHD 
rECHOSP 
sCNCELG 
SCNOFLG 
IFILLCO 
JFYLLNG 
SFILLCH 
1 (SPARE BYTE) 


366 


' 
) USER 1/0 BUFFER AND BUFFER HOR, SPACE (TTY) 
' 


KBBFHLI + KBBUFL 
ry KBBEN} 
»WORD KBBUFL 
;WORD = KBBUFSL 
;WORD = KSBUFL 
* 9 

KBBUFL 8, 

, ®, ©SKBBSZ 

KBBENL 8,04 
sEVEN 

J 

TPOFH1y © TRBYUF. 
* TPBENL 
. a 
,WORD = TPBUFS 
WORD YPBUFS 
. @ 

TPBUFL 8, 

. ® eSTPBSzZ 

TPBENL «8,02 
EVEN 

USRLINES 

13, ¢SULNSP 

USRCODES 


sBSTPT 
1BEN® 
rBCETL 
BGET2 
18PUT 
IBFSPEC 


JOEFAULYT SIZE = 28 CHARS, 


sBSTOT 

SEND 

18GET1 (NOT USED) 
$BCET2 

sapur 

1BFSPEC 


HOEFAULT 2 2¢ CHARS, 


JOEFAULT # 122 


367 


BAS|CH 


545 
546 
547 
548 
549 


MACXS1 


ag22i4! 
e02229/ 
ag2222! 


as2z24! 
882226! 
882232! 
BB22356! 
ag2244/ 
882259! 
aa2252! 
82269! 


ag2264 


9822798 
9e2274¢ 
892276! 
ae2304/ 
692331! 
892313! 
ae2329! 
882326! 
882334 
882342! 
892359! 
802352! 
862353! 


882354! 
BB236g/ 
882364! 
802366! 
82370! 
ag2374! 
882376! 
ge2eog/ 
ag2402/ 
ao24a6¢ 


oe2419! 
og24i4/ 
ag2447! 
ag2qz4qé 
02432! 
082433! 
92434 
082449! 


ag2eaal 


vo2d 


162704 
822626 
900412 


398805 
842706 
204767 
942737 
812704 
305744 
012737 
840467 


842703 
804367 


34444g 
O35 
977 
oeg 


024767 
120827 
o0i512 
o98oe2 
130027 
801202 
005202 
080415 
128027 
ITER | 


884367 


811523 
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817776 


oa33e4l 
2909006 
aezai4) eaeees 
160800 


S88926 L804 
994108 


aoavee! 
000736 


844523 928203 
930469 482 


a52420 943960 
820872 926501 
B26314 947069 
O47427 826105 
844455 042116 


890722 
oge1s6 


980403 


rT TESS 


ga9es6 

022 822 
82655, 042531 
947048 847955 


8933746 
onsen 


—_— 
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593 
594 
595 
596 
597 
598 
399 
608 
604 
602 
603 
604 
605 
688 
907 
6268 
609 
6uD 
614 
612 
613 
644 
615 
646 
$47 
618 
619 
628 
623 
622 
623 
624 
625 
626 
627 
628 
629 
638 
633 
632 
633 
634 
635 
636 
637 
038 
839 
648 
644 
042 
643 
644 
645 


MACX44 


802446! 
a02459° 
9024540 
o9246¢! 


982462! 
902464! 
002478! 
092474! 
002476! 
ao25eg/ 
992502! 
802519! 
082516! 
ap2522! 
ao2524/ 
g02526/ 
802530! 
882533! 


982534! 
002549! 
002544! 
862546! 
802550! 
862552! 
802556! 


802569! 
902562! 
802566! 
982579! 
8025724 
082576! 
882609! 
ag26e4! 
og26rg! 


882612! 


OB2616! 
3o2622! 
082624¢ 
362626! 
882652! 
802634! 
302636! 
282649! 
882642! 
2826440 


vo2s 


186985 
262705 
062784 
088774 


320427 
101054 
029527 
183046 
005782 
oeio27 
816567 
916567 
984367 

a15 
090028 
280008 
833048 

808 


304767 
128027 
801922 
005724 
898413 
120027 
ooisay 


940198 
162708 
810024 
OL2324 
829365 
193774 
262795 
023427 
101745 


910367 


812702 
919203 
160123 
820227 
103005 
022224 
004773 
160344 
288723 
900778 


' 
} eONCESONLY INIT, CODE 
' FINO OUT HOW MUCH CORE AND EXPAND USRAREA ACCORDINGLY 
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920802 
899902 


Og35444 


avons appes4 
gpee7s gBenig 
090530 

oiz 


048 


098342 
aga1i¢ 


908453 


egeeeeG 
BBORG2 


990010 
ageoees 


175268 
884070" 


ap2eiae 


HCOME HERE oN TRAP FoR BAD MEM, 
5 REF, AND DEC, CORE S{ze 


HTEMP, STACK 

SENLT POR FPMP ROUTINES 

1SUT UP TRAP ADOR, 

12aK 

TTRAPS TO DECCORE IF BAD AcOR 

IFALLS THRU IF OK e RESTORE TRAP ADDR, 


‘OPT FNSI AwALL, NeNONE, LetND! 


}CNECK FOR N 


HCLEAR ALL FLAG 
SCWECK FOR A 


sSET ALL FLAG 
{CHECK FOR | 


SKIP A FUNCTION 


HCHECK FOR N 


1CHECK FOR Y 


IPLACE ADDRESS IN TABLE 


ICAMPUTE RELOCATION CONSTANT 


RELOCATE NON@ZERO ENTRIES 


} 
DECCoRE! SUB #27770,R4 
CMP {SP)o,(SP)e 
@R TRYCOKE 
' 
ONCEQNL I RESET 
MOV aTMPSTCK, SP 
JSR PG, IFPMP 
MOV #OECCORE, 044 
Mov #460000,R4 
TRYCOREITST o(R4) 
MOV 96,006 
MOV R4,HIGORE 
DInbttautZe Tor of BAsIC 
MOV WOASIGHARS 
JPRINT HEADING ANQ READ ANSWER 
INTHOE JSR R3,PRMSG 
sBYTE = 4.5, 3.2 
sASCI] §BASIG Vaeqal 
eBYTE = 99542 
sASCII 
BYTE 49532 
eASCIL fF 
BYTE 8 
EVEN 
JSR PC, ROANS 
Cure RB WIN 
BEG INTSAV 
CLR R2 
curs RO,wIA 
BNE INTs 
INC RZ 
BR TNTALL 
INTE, | CMPB RO,e't 
ONE INTRO 
JPRINT HEADING FOR JNOLV FUNCTIONS 
JSR RS, PRMSG 
BYTE = 45442942 
eASCII ¢ VeYES NeNOS 
BYTE «8 
TNEALLE MOV BENTAB, RS 
MOV #TABLES, RE 
GET NEXT FUNCTION TABLE ABORESS 
INILP] MOV (R5),RS 
BPL INTFN 
ago #2,R5 
aoo #2,R4 
BR INTLP 
ITPRINT QUESTION FOR FUNCTION, CET ANSWER 
INEFNY CMP R4, 878, 5EN5 
BHy INTSAV 
cme RS, #FNTABE 
BHIS INTSAV 
Ts? R2 
BNE INTOF 
MOV 4(R5)¢FNNAML 
MOV 6(R5),PNNAM2 
vSR RS, PRMSG 
OTE 45,42 
FNNAM1{ , WORD a 
FNNAM2$ ,WORO = @ 
sASCIT fF 4 fe 
sBYTE 2B 
,EVEN 
JSR PG,ROANS 
cMPB RO, aN 
BNE INTTY 
TST (R4)o 
@R ININXT 
IN{TY, CMPB RO, ay 
BNE INTFN 
HOEFINE THE FUNCTION 
INfOF) “OV Ry she 
sys STABLES, RO 
MOV RB, (R44 
INIMVE MOV (RFPS (RAO 
cup RJ, 2(RS) 
B,0 INTMY 
INENXT} A00 810,25 
CMP R4, 8TULSEND 
8,08 INTLP 
HSAVE YOR OF BASIE 
INTSAV] MOV RL USRAREA 
IMOVE USER AREA TQ TOP OF Baste 
MOV SYSR,R2 
MOV R2,RS 
sys REARS 
MOVLP} CMP RQ, #USRCOOE 
BHIS MOVOON 
“OV (RQ), iRLIe 
BEO MOVLP 
Sys RJ,eCRY) 
TST (Rae 
BR MOVLP 
MOVOON] 


BOF 


369 


BASICH 


646 
o47 
048 
oe9 
659 
653 
652 
653 
654 
655 
656 
057 
658 
639 
oes 
663 
962 
663 
664 
665 


BASICH 


695 
696 
697 
698 
699 
709 
704 
702 
703 
704 
705 
786 


MACX12 =: VO23 


882646! 016704 
092652! 162706 
082656 336705 
892662! 016468 
882666! 162704 
062672! 538465 
802676 162786 
892702! 9139465 
892786! 362706 
982712! 310465 
882726! 032765 
092724) 212765 


082732! oe5g05 
002734) 3946367 
692749! o15 
882743! 186 
892756! 94252 
802756! 346522 
082764! 608 


082762! 984767 
992766 129827 
992772! 81457 
927746! 129927 
agseog! 301354 
sesee2! ceszey 


sessed! og4367 
88Seie/ 9315 
BOS812/ 0405146 
BaSe29/ o3Q86S 
888026! 342325 
apses2é eee 


BOS854' 994767 
86304¢@! 129027 
893044! 992432 
803046! 129927 
893052! 201354 
998054! 205203 


893056 284367 
993962! o13 
853064! 252326 
803872! 336476 
003190! 349502 
go3in6/ TT) 


OGSiig! 264767 
903114! 129627 
883120! 981406 


MACX12 = -VO22 


083122! 129927 
883126! 361353 
883150" 996708 


883132! 049302 
883134! gelai2 
BBS3136! 886303 
883149! 299302 
883142 962702 
983146! 319503 
883158! 362703 
883154! 112223 
893156! 122223 
893160! 112223 


903162! 995737 
883166) ao1416 
203179! g84se7 
803474 ois 
083477! 125 
O8S204! o49106 
BOS212! 942103 
oeS2i6/ gee 

aes22a/ 


O83228' 394367 
aes224/ 915 
oo3227' 906 


885238! 912702 
BOS2354) o12203 
883236! 399423 
883240! 262703 
883244! 319332 


003246! 300467 


803252! 338308 
883234! 1959737 
803269! 490375 
@e3262' 112937 
883266! 394372 
883279! 230003 
823272! 285203 
80S274/ 2B6203 
803276! 2096303 
8e33ae/ 290203 


893302! 269267 
B8S386! 199757 


22aMARe7S 


090522 
eeese5 
175126 
ogepees 
age134 
geveeec 
opooeeG 
eeesees 
aseseo 
agegees 
832332 
168254 


89esi2 


808334 
988116 


ogeass 


960242 

022 
830065 
928968 
037453 


oapes2 
900133 


989116 


896378 

922 
932468 
838866 
642325 


880266 
990353 


22eMARG7S 


998116 


8033563! 
sogoess 


809B46 
990096 

O82 
042523 


8208125 
042495 


280026 
B12 
2000006 
agoo14 
oggeeeG 


4777766 
sgeveeG 


176452 
o98900G 


@12 
220124 
842524 


024049 
940502 


924849 
820060 
037453 


O12 
028122 
047544 


O32 


454345 =PAGE 47 


PINITIALSEE USER 
MOV 


sus 
MOV 
MOV 
sus 
MOV 
sus 
MOV 
aod 
MOV 
MOV 
MOV 


JOLALOGUE TO SET 
ASKSER} CUR 
JSR 


ASKLAL JSR 


ASKVT| JSR 
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cMPB 
BNE 
BR 


ASKOON! MOY 
8Eo 
aS. 
aoo 
aoo 
MOV 
aoo 
MOVB 
“ove 
“ova 

FILLOONS 


AREA 
HLCORE, R4 

#360, 44 
USRAREA,RS 
R4,LIMITCRS) 
#434, R4 

R4, POLCRS) 
w3STK92, RE 

RG, ARRAYS(RS) 
946,R4 

RG, POSTZE(RS) 
932334, RNOG (RS) 
8463294, RNBZCRS) 


iR4 1S HIGHEST ADOR, JN CORE 


{POINTER SPACE 

SBASF OF STACK 

IMAX, STACK SJZE 

SHIEST ARRAY STOR, LOC, 


YP TERMINAL TYPE 
RS 


RS, PRMSG 
49512542 
TEAST SER YERMY! 


PG, ROANS 
RO,OIN 
ASKOON 
ROatY 
ASKSEK 
RS 


RY PRMSG 
43,22 
‘4a3@ (388 BAUD) 


°C, ROANS 
RB,atY 
ASKOON 
RB, WIN 
ASKLA 

ay 


RI, PRNSG 
13,42 
‘VT9S (>86a8 BAU 


8 
PG,ROANS 


AB,BtY 
ASKOON 


v 


oye 


RB ,BIN 
ASKVY 
ASKSER 


AZ RZ 
FILLOON 
Ry 


RS, RZ 
FILL TB ,R2 
RB, RS 
OFILL EO RS 
(2) 6) CRS DO 
{R2) op (RS) 
(R2}6,(RS)S 


PPRINT OUT JF USER FUNCTIONS LOADED 
rs? 084g 


BEO 
JSR 
BYTE 
sASCII 


sOYTE B 
vEVEN 


JSR 
BYTE 


EVEN 
ICWECK ITF RNOL L 

MOV 

MOV 

GEO 


aoo 
MOV 


NOUSRE 


NORNO} 
MP 


ISUBROUTINE To P 

PRMSG} MOV 

PRUPI TST8 
BPL 
Move’ 
ONE 
MOV 
INC 
ASR 
ast 
Rvs 


NQUSR 

RI, PRMSG 
15,12442 

"USER FNS LOADED 


RS, PRMSG 
29932742,0 


OAQED 

STABLES, R2 
(RQ)o,R3 

NORNO 
@RNOFNGRNOLPN, RS 
R34 (RZ) 


START 

RINT A MESSAGE 
RS, RO 

onTPBez 

PRUP 


(RO) o, onTPR 
PRUP 


‘ 


JOEFINE ARNO aso 


ISUBROUTING TO Read ANSWER FROM TELETYPE 
AND 


RDANS} INC 
7378 


OntKs 


390 


Raed 


BASICH 


747 
748 
749 
758 
734 


BASICH 


ao2 
823 
eae 
625 
826 
807 


MACXLL 


883312! 
893314) 
283329! 
093324! 
883338! 
883334! 
883336! 
003342! 


BBS364s 


893366! 
083374! 


OBS374! 
083376! 
agseeg! 
803404 
893406! 
8034.9! 
oesei2! 
OOS4r4/ 
883416! 
883429! 
983422) 
093424! 
883426! 
0834320 
883434! 
8834364 
Beseeg! 
oo3ee4s 
883446! 
883459 
8B3454/ 
883456! 
BO340g8 
83464! 
883466! 
08347B! 
BOS474/ 
883476! 
ae3sog! 
883504! 
883506! 
oe3510/ 
803514! 
893516! 
oo3520! 
ao3524! 
883526! 
083539! 


MACKAL 


BO3534! 
803536! 
883549! 


Vous 


180373 
123709 
042700 
842967 
084307 
rT TTT) 
036708 
880207 
O83364/ 


BO3365! 
eee 
908 


eeooee! 
oegi4g! 
849122 
479777 
477797 
179779 
177777 
479777 
179777 
179777 
800149! 
oog2sel 
04f104 
177777 
e9e23e/ 
a9g324/ 
843523 
990324) 
288436! 
240524 
290436/ 
eeesigl 
042524 
200510 
ae0574/ 
054504 
oee57al 
980646! 
044183 
986646! 
004152! 
047529 
001159! 
80142! 
842525 
agiaze? 
204566! 
049526 


Yeas 
081566! 


001679! 
952423 


ap22zql 
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oP 
0869026 move 
177988 Bic 
Boo0g4 MoV 
177746 usr 
TNCHS , WORD 
477772 MOV 
avs 


THPSTCKI 
HICORE) ,WORD 


FILL Bees 
G14 845 BYTE 
024 842 BYTE 


FNTABI 
WORD 
WORD 
820104 ¢ sASCII 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
020423 ASCII 
:WORD 
WORD 
:WORD 
020116 ASCII 
WORD 
WORD 
820102 ASCII 
WORD 
WORD 
820116 ASCII 
WORD 
+WORD 
820183 ASCII 
+WORD 
+WORO 
822322 ASCII 
WORD 
WORD 
020423 ASCII 
WORD 
WORD 
022107 ASCII 
WORD 
WORD 
azeii4 ASCII 
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WORD 

eWQRO 

822322 sASCTT 
FNTABES 


s ENO 


9,020 


ROANS 
Oe7K8e2 RO 
8477600,R0 
RO, INGH 
RY, PRMSG 


tJ 
INCH, RO 
°¢ 


442,45 
ByB4,42 


RNOLFN 
RNOFNE 


STREN 
STRPNG 
‘Strsi 


ONGEON, 


ee we ee 


STR 


ae 7s 


ey 


BASICH 


aGSFN 
ARGe 
ASKOON 
BASICH 
COLUMN 
ERASCA 
ERLENS 
ERRMIX 
ERRSYN 
ERSGNS 
ERVALA 
Face 
FNEND 
FNTABE 
INTALL 
Inte 
INTL 
KBBFHS 
LIMIT 
NORM 
ONGEON 
POSsi2ze 
POSFST 
POSREM 
PRUP 
REXP 
RNOLFN 
RPLUS 
ny 
SEGPN 
SEGNU, 
SEGTY2 


MACKX22 -VO22 


6OG246R 
B seeees G 
983132R 
geeog2R 
& eecese 6 
Beg5o4R 
@eg504R 


B@VI20R 


9821670R 
BOS544R 
O82434R 
0624448 
9024g2R 
O82204R 
S eeeeee GC 
BS evcves G 
B02224R 
8 eeevee 6 
901950R 
804970R 
BO3254R 
886874R 
gogeg2Rr 
98G852R 
®X800893 
902152R 
O0140ER 
9633848 
BOG2S6R 
@ eeasee G 
BOL566R 
8883248 
889426R 
3 eveeee G 
9B2250R 


ERRORS pETEcTEO! @ 


BASJCH 


RUN®T IMEI 


MACX21 = -VO24 


GORE YSED! 3K 


18 SEGONOS 


22eMARe7S = 4.54. 45 


agSFNg 
ARRAYS 
ASKLA 
aL 
OECCOR 
ERASCS 
ERPOSA 
ERRNOA 
ERSEGA 
ERSTRA 
ERVALS 
FU_CO 
FNNAMS 
WICQRE 
INJQOF 
INtMY 
INSTY 
KBayrs 
MAKEST 
NORNO 
OPRATO 
POSF 
POSF2 
PosTRY 
PRMSG 
RNOFN 
RNOY 
Ro 

Re 
SEGFNE 
SEGANG 


VALR 
STPBS2 


8 geg04e 
@e2214R 
B80570R 
BeIL4ERR 
BBSLSAR 
BBZ4LBR 
BGL668R 
981556R 

e000 G 

25Z4R 
GOSIOER 
B92560R 
882970R 
Og2552R 

§ P82820R 

B seen0ae GC 
BOSZ4OR 

8 esseen G 
G01124R 
BOLLZOR 
9802056R 
BBSZS2R 
BEGHLOR 

8 esses G 

8xg80088 

sxoe00g4 
B02426R 
981312R 
OOL4E4R 
SOB3Z4R 

SNG50006 
OOL67OR 
BEGASER 

8 enoees G 

8 OO2875R 


904524R 

921460R 
= 920828 
3 BO3B44R 


22eMARe7S «= 45445 
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agsin’ 
AScfn 
ASKSER 
CHRFNE 
ERABSA 
ERCHRS 
ERPOSS 
ERRNOS 
ERSEGS 
ERSTRS 
EVAL 
FURLDO 
FNNAM2 
ida 
INLFN 
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wo0.74R 


BBeLSOR 
0a1444R 
B84604R 
B teoeee 6 
@3L92R 
OG25zoR 
@ seccen G 
882402R 
BB2600R 
SB Gaeeee G 
BOG4I6R 
B02646R 
BOSZ220R 
5X000007 
G69640R 
BBLLLOR 
BOO7IAR 
864 700R 
BeeL4oR 
& eneoee G 
BNDOSOSS 
5x800085 
OHL256R 
OGLSZOR 
984252R 
O0G276R 
9 eneese G 
BORS44R 
o eaneee G 
¥ Geeoee G 
SH2e40R 
B Seoeee CG 
BH22,4R 
984420R 
SILSIOR 
s 969120 


agsx 
ASCFNE 
ASKVY 
CHRSFN 
eRagss 
ERLENA 
ERRARG 
ERRPAL 
ORSGNA 
ERTABS 
FACa 
FULLTB 
PNPAR 
tNeH 
INTHO 
INTSAV 
KBBENY 
LENFNE 
MOVLP 
NUMSGN 
POL 
POSFNE 
POSNXT 


ABC 
TABNON 
TMPSTC 


eeg222R 
080974R 
883056R 
B8G974R 
B0GZ32R 


O@Q314R 
G80432R 
ws seseee G 
B BOSS6SR 
983374R 
BVISS4R 
@02276R 
882612R 
8 BB2B57R 
@OOILOR 
082626R 
ws eeeoee 
Bs eneeee 6 
981152R 
OB1076R 
@01000R 
BB330Z2R 
BOBGLOR 
gpee62R 
axg08002 
BS e0eeee 
B01366R 
OB1Z70R 
B20Z70R 
BOSS1LOR 
BS etesee 
BOBSEOR 
@BBS76R 
@B3364R 
s B82054R 
B enesee ¢ 
O02874R 
BOL560R 
s g29028 


oat 


S375 


ABSFN 
ABSFNE 
AGSINT 
agsy 
ARGS 
ARRAYS 
ASCFN 
ASCFNE 
ASKOON 
aSkiA 
ASKSER 
ASKVT 
BASICH 
BL 
CHRFNE 
CHRSFN 
COLUMN 
DECCOR 
ERABSA 
ERaBSS 
ERASCA 
ERASCS 
ERCHRS 
ERLENA 
ERLENS 
ERPOSA 
ERPOSS 
ERRARG 
ERRMIX 
ERRNOA 
ERRNDS 
ERRPOL, 
ERRSYN 
ERSEGA 
ERSEGS 
ERSGNA 
ERSGNS 
ERSTRA 
ERSTRS 
ERTABS 
ERVALA 
ERVALS 
EVAL 
Fay 


FAG2 


FILLCO 
FULL00 
FULLTB 
FNENO 

FNNAMS 
FNNAM2 


FNTAB 
FNTABE 
HI CORE 
TFPMP 
INCH 
INTAGL 
INLOF 
INSFN 
INJHO 
INILP 
TNUMV 
INUNXT 
INTSAV 
INET 
INTTY 
INT 
KBBENY 
KBOFHS 
KBBUFS 
LENFN 
LENFNE 
GUMIT 
MAKEST 
MOVOON 
MOVLP 
NORM 
NORND 
NOUSR 
NYMSGN 
ONCEON 
OPRATO 


Pg 


POL, 
POSIZE 
POSF 
POSF2 
POSFN 
POSFNE 
POSFST 
POSNO 
POSNXT 
POSREM 
POSTRY 
POSX 
Posy 
PRUP 
PRMSG 
RO 


1208 


219 


age 


120 
124 


129 
su7 


737 
686 

85 
155 
3ea 
44a 


432 


6998 


2248 


3200 
Sais 
138 


399 
3920 
3938 


442 
127 


134, 
334 


6328 


339 


524 


375 


357 
342 
337 
682 


276 


663 

86 
184 
347 
443 


1358 


205 


189 


194 
133 


134 
368 


5268 


450 


204 
164 
339 
692 


278 


675 

87 
183 
344 
444 


224 


206 


2un 
147 


aa 
4e7 


459 


223 
188 
375 
734 


307 


687 

90 
184 
354 
426 


see 


220 


244 
158 


152 
424 


say 
194 
398 


Sige 


392 


239 


248 
198 


168 


437 
242 
420 


m9 

93 
236 
338 
434 


439 


324 


252 
228 


199 


229 
422 


7330 
96 
237 
363 
436 


463 


393 


326 
258 


203 


235 
444 


734 

Fd 
237 
35 
575 


438 


330 
318 


222 


464 


337 
333 


222 


244 
430 


98 
262 
378 
578 


248 
455 


472 
266 
379 
5R2 


398 
355 


232 


252 
459 


178 
275 
354 
614 


ang 
426 


237 


254 
555 


146 
277 
589 
618 


376 


seP 


RY 
n2 


as 


TABFNE 
TABLES 
TABNON 
TABNUL 
TBLSEN 
TKS 
TMPSTC 
TP8 
TPBENY 
TPBFHL 
TPBUFL 
TRYCOR 
sR 
USRARE 
uSRCOO 
USRLIN 
VAL 
VALGE 
VALFN 
VAUFNE 
Vaud 
VALR 
VALX 


' 

1 COMMA 
»RPAR 
SKBBSZ 
SSYKSZ 
STPas2 
SULNSP 


122 
433 
182 
277 
347 
are 
099 


285 
378 
685 


sos 


236 
198 


487 
250 
122 


669 


444 
446 

90 
2183 
286 
349 
445 
782 

9 
286 
374 
635 
766 
754 
434 
632 
143 
198 
298 
449 
653 


oe 


367 


724 


5378 


656 


202 
326 
144 


3908 


47a 


454 


526 
335 
165 


458 


5278 
196 


683 693 
243 238 
624 632 
95 97 
203 203 
294 292 
372 373 
430 ryt) 
707 708 
104 1205 
305 306 
386 423 
662 663 
713 719 
558 560 
655 636 
12¥ 4314 
228 224 
347 318 
438 589 
638 689 
747 
473 477 
293 3a3 
377 378 
435 448 
528 537 
223 230 


246 
636 
196 
ats 
293 
377 
487 
724 
196 
348 
453 
673 
725 


590 
657 
133 
222 
333 
592 
704 


264 


304 
379 
434 


5380 


255 


733 


258 
639 
495 
246 
295 
380 
577 
725 
114 
342 
452 
675 
727 


595 
134 
232 


334 
5¥4 


200 


312 
330 
457 


539 
3aa 


736 


255 
644 
497 
248 
298 
382 
580 
728 
11s 
338 
453 
685 
728 


598 
147 
234 


355 
629 


215 


313 
398 
458 


5428 


448 


738 


328 
042 
178 
222 
sas 
SAS 
ore 


2n0 
360 
365 
687 
733 


616 
149 
237 


360 
694 


2335 


7558 


446 


748 
335 


129 
234 
348 
385 
634 


284 
363 
585 
699 
738 


623 
155 
258 


373 
645 


236 


333 
4n8 
552 


759 


749 
34g 


118 
269 
318 
410 
$35 


282 
365 
592 
77. 
739 


6768 
156 
266 


476 
625 


264 


334 
4t2 
504 


77 


FPMPL2 MACKL2 


ne 


CeOdoVeaw 


FPMPLa 


10 
12 
12 
15 
14 
45 
16 
17 
18 
vg 
20 
24 


MACK1 


a8eoog! 


yeas 


yoe2s 


200804 
882003 
980003 
o0eeay 
980801 
806804 
800001 


880207 


300004 
ogaed4 
200804 
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1 SHAS © FPMP POR BASIC 


SBaSe1 
CNOS2a4 
CNOSSa4 
CNOSi8ai 
GNOS2081 
CNOS2781 
CNOSSOa4 


BASIC SOURCE FILE #9 


1GLOBL ERRFPY » IF enue 


VINITIALIZE FPMP ROUTINE 


JLOFPS #1000 


SLOFPS #1900 


IFPMPY 
“FOF FRY 
sWORD = 4.70327 
sWORD = 3,88 
ENOC 
ATS PC 
VFpU ERROR INTERRUPT KOUTINE 
ERRFPUt 
tPOF = FRU 
WORD = 470227 
+WORO 8= 4.008 
wMP @SERVEC 
vENOC : 
vUPNOF MIN 
CNOS37 82 
CNOSS9a1 
CNOS4182 
eENDC 


ee ReeeOSeeRSrerey) 


FROM HERE ON THI$ 19 THE SAME AS PPMP’ PTX 


RES PORSR ESOS eee) 
FPROOUCT CODE 
COMPUTER 

I CONFIGURATION 

1 

ISOFTWARE REQUIREMENTS 


iy 
DPROGRAM NAME 
IVERSION 


y 
JOESERIPTION 
4 

) 

1 

JAUTHOR 

j 

HOATE 


’ 
) 


OR GeitaNPPMAcASLA 

POPedi 

PAPER TAPE CONPIGURATION {$8 MINIMUM 

byez WOROS MEMORY 

PAL @ddS (QR MACROSS) 

LUNKed(S (OR LINKeSS) 

FPMPell 

VERSION LEVEL 1 

PATCH LEVEL A 

FLOATING POINT MATH PACKAGE 

PLUS TRAP WANQLER 

(FLOATING POINY SUBROUTINES TAKEN PROM 

O0Se1i FORTRAN [V O78) 

E, PETERS (TRAP HANDLER & PACKAGE 
INVEGRATION) 

AUGUST, {992 

COPYRIGHT (972, OLGITAL EQUIPMENT COR wn 

MAYNARD, MASSACHUSETTS 61754 


FE/ 


FPMPAa 


65 
66 
67 


FPMPaa 


120 
122 
122 
123 
124 
125 
126 
127 
1268 
129 
ise 
131 
132 
133 
134 
135 
136 
437 
438 
439 
149 
144 
442 
143 
144 
145 
146 
147 
148 
449 
458 
154 
152 
453 
4154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 
172 
472 
173 
174 


MACXi2 = -YO22 


eeees 
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1 


MACX22 «= -Y¥@22 


38000% 


980001 
900081 


990801 
ogoge. 


380001 


CNOSS#4 

CNOS4e4 

CNOS6a% 

CNOSi882 
CNDS2094 
CNOS3B84 
CNDSS784 
CNOSSB84 
CNOS390L 
CNOS4i82 
CNOS 4484 
CNOS4684 
sENOC ; 
2TPOF =§=6DOUBLE 

CNOSis% 

CNOSS a4 

CNOS3983 

CNOSLS02 

CNOSS484 

CNOSA5 04 

CNOSi602 

CNOS1993 

CNOSZ26s4 

CNOS 4504 

CNOS47 m4 

ENOC 

elFOF «SINGLES OOVBLE 

CNOS892 

CNOS9sS 

CNOSSie4 

CNOSA24 

ENOC 

sUFDF =©6CNOSS8 

CNOS2s4 

CNOS2884 

CNOS2094 

CNOS2182 

CNOSSO"2 

CNOSS284 

sENOC 

itPNOF FP 

sSFOF «= CNOSSECNOS261 CNOSS7ICNOSS9 

CNOS2e% 

CNOS1803 

CNOS3OR3 

,P0F = CNOSS7 

CNOS 433 

vENOC 

sENOC - 

aFOF «= CNOSLBICNOSLSICNOS{SICNOSS9 
GNOSis% 

CNOS4683 


23eMARO7S §=11134 PAGE 202 


TRAPHI 


CNOS28si 

CnOS3382 

sSFOF = CNDS29 
CNOS1184 

vENOC 

tENOC 

TFOrF CNOSSICNOSTS 
CNOS2783 

VENOC 

vJFOF = CNOSIIICNOS20 
CNOS2784 

CNOS3581 

+ENOC 

stFOF CNOSZ¢ 
CNOSi8% 

GNOS1681 

1ENOC 

etFOF = CNDS43 
CNOS2e¢ 

CNOS1684 

sENOC 

VENDC 

FOF = CNDS23 
CNOS2784 

CNOSS3a2 

+ENOC 

FOr CNDOS221CNOS26 
CNOSS3S ay 

sENOC 

\IFOF — GNDS3¥ 
CNOSS3384 

+ ENOC 

TITLE TRAPS 
VIFOF CNOS42 
1GLOBL TRAPH; SERRA 


RoeKe 

RLOXL 

RZAKZ 

R3AKS 

RaaKs 

R5eKS 

SPEX6 

PCaR7 

etc WE72208P) 
cur o43P} 

MOV R5,0(SP) 
MOV R4,0(5P) 
MoV RS, 03) 
MoV R2,0( SP) 
MOV RL, e(SP) 
MOV RB, 0 (SP) 
MOV 20¢SP),RS 
Bic 826,R5 
mov RS, 00477776 


MOV LE¢SPQ ARE 


PGA 


IES 


TRAPa2 


475 
176 
477 
478 
179 
188 
282 
482 
18s 
184 
285 
186 
187 
188 
189 
198 
29% 
492 
195 
194 
495 
496 
397 
498 
199 
208 
224 
202 
203 
206 
205 
226 
207 
208 


TRAPO2 


238 
234 
232 
233 
234 
235 
236 
237 
238 
239 
240 
244 
242 
243 
246 
245 
246 
247 
248 
249 
250 
253 
252 
253 
254 
255 
256 
257 
258 
259 
260 
26% 
262 
263 
264 
265 
266 
267 
268 
269 
270 
274 
272 
273 
274 
275 
276 
277 
278 
279 
260 
284 
282 
283 
284 


MACXSS 


MACK42 


voes 


vo2s 


23eMARo7S 


23eMAR®73 


14154 = =PAGE 283 


PYS42} 


UPGS42 
STKS42 


Sv4s42) 


ST6S42} 


OT2sa2t 


AORS42) 


REYS42) 


MOV 
MOV 


111354 PAGE 204 


NEGS42) 
CHPS 42} 
PLasa2 
CMiS42 


RT2842) 


RT1S42) 
NADS42} 


PLMSé2) 


PLLsa2y 
STMS42} 


ERRS42} 
FACS42] 


CMRS42} 
CARS42} 


ene 
CLR 
NEG 
ays 
rsY 
MoV 
MOV 
MOV 
MOV 
MOV 
MOV 
Ys? 
BEO 
BPL 
MOV 
mov 
cup 
RT} 
MOV 
MoV 
att 
JSR 
MOV 
1 WORD 
MOV 
MoV 
MOV 


ALAS 
CRA) 9 R4 
R4AIRS 
#177708,R4 
Ra 


TBLS42(R4) RE 
ERRS 42 

RA RZ 

63 40000,R2 
PC RZ 
040008,R4 
NADS42 

RS 

PLMS 42 
Stxse2 

RS, RE 
(RB) 6, RO 
R5,46(SP) 
SFACS4206,R5. 


e(RB),0(SP) 
e(R5),e(SP) 
w(R5)ye¢SP) 
R4 


STese2 
(RO) Oy (RODS 
oT2s42 

#6, ,R8 
24h), 0(8P) 
of RB), eCSP) 
o(RO),e(SP) 
o(RG),e(SP) 
SAORSE2,R4 
@R2 

102 
#FACE42,R5 
CSP) Oy (RSQO 
CSP) ee (R500 
CSP) eC RSQe 
(SP) oy (R5)e 
orc, Re 
WFACSE2,R5 
{R5)e 
NEGS42 

PL SS4e 
(RB)e 
PLSS42 


a 384 


(R5)e 


PLSS42 
RO 

Re 
00477776, 20(SP) 
RO 

($P)0)RB 

CSP) O,RS 

CSP) ogRZ 

(SP) OgR3 

(EP) o,R4 

(SP) e,RS 

(SP)e 

RT1S4 

niasa 
CSP) e,6(SP) 
CSP) 0, 6¢SP) 
CSP)O,CSPIO 


COP), 20SP) 
CSP) ep 20SP) 


AB, 0R2 
(PC) OyRS 
Facsag 
RO,(RD)* 
Rae(Rbre 
RE, (RBVe 


UPesee 
SP,RO 
022,28 


AB, SERRA 
EARS AZ 
090,008 
CNOS6 


OGARS42,R6 
SCMR 


10e 
00477775,24(SP} 
(SP) 67 (SPJ 


TRAPO? 


285 
286 
207 
2868 
289 
298 
rae 
292 
293 
294 
295 
29 

29 

298 
299 
3e0 
30% 
3e2 
303 
joa 
305 
306 
307 
308 
309 
318 
Sag 
312 
as 


TRAPO? 


348 
344 
342 
343 
344 
345 
346 
347 
346 
349 
358 
354 
352 
353 
354 
355 
356 
357 
358 
359 
368 
363 
362 
363 
364 
365 
366 
367 
368 
369 
378 
373 
372 
373 
374 
375 
376 
377 
378 
379 
380 
384 
382 
383 
3e4 
385 
386 
387 
388 
389 
398 
394 
392 
393 
394 
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pr CMEs42 

sENOC 
LiFOF = §©CNOSS 

CMOS424 MOV OG A0S42,R4 
ve SMO 

CAOS42) ,WORD CMPSA2 
NOC 
PMODER 4008 
OMOOESige000 

TBLSA2} ,WORD 818,048, 018.018 
HORO = 88 
vIFOrF © CNOS2 
sWORD = SADR@PTS424PMODE 
sWORD «=: SSBREPTSAZAPMODE 
sENOC 
vIFNOF CNOS2 
WORD 8,8 
sENOG 
vIFOF © GNOSS ; 
WORD FADD PTS4Z4PMODESOMODE 
sWORD «= SHBOCPTSAZAPMODESOMONE 
ENOC 
rJPNOF = CNOSS 
WORD §=8y8 
,ENOC 
,IFOF  cNOSsS ‘ 
sWORD CHDS 420 P TS420PMODESOMOCE 
sENOC 
vTVNOF CNDSS 
»WORD 6 
1 BNO 
it70rF = =6—CNOS6 
WORD «—- CMREARePTS420PMODE 
sENOC 
vTPNOF NOS 
WORD 8 
»ENOC 
;WORD OB 
LIFOF © CNDS30 
sHORO «= SM, RePTS42ePMODE 
sENOC 
sUPNOF = CNOSSS 
WORD @ 
sENOC 
vivOr «© CNDS20 
,WORD «- SMLDoPTS424PMODESOMODE 
sENOC 
vIPNOF = CNDS26 
:WORO 8 
»ENOC 
v1FOF = «6CNDS26 
WORD «= SOVDe PT S4ZHPMODESOMODE 
+GNOC 
vTPNOF = CNOSL6 
»WORD @ 

MACK22 VO2L « 23eMARM7S «44434 = PAGE 206 

ENOC 
WORD 8 
vIFOF ©CNOS28 
,WORD SQOVRePTS4ZePMODE 
,ENOG 
vJPNOF = CNOS18 
WORD OB 
sENOC 
+3FOF  cNos4 
WORD = AINT#PTS42 
vENOC 
vtFNOF CNDS4 
WORD 8 
sENOC 
WORD 898,098, 8,8,8 
sSFOF = CNOSS7 
sWORD «= SENwP7S42,COSePTS42 
,ENOC 
sUFNOF = CNOS37 
WORD = O08 
+ENOC 
Lor GNDSAy 
sWHORD = DS YNePTS4Z40M0DE 
sWORD = OGOS@PTS42a0M0DE 
,ENOC 
LSFNOF CNOSLS 
sWORD = 898 
sENOC 
rIFOF © CNOS39 
WORD = ATAN@PTS42 
,ENOC 
vFNOF =CNOSSY 
«WORD @ 
1ENOC 
WORD B 
vtFOF © CNDSLD 
sWORD © DATANSPTS4200MODE 
sENOC 
rSPNOF | CNOSSS 
WORD 8 
1 ENOG 
yWORD 8 
,SFOF  =CNOS4) 
,WORD «= SQRT@PTS42 
,ENOC 
1 TPNOF = CNOS44 
WORD oo 
vENOC 
L}POF © CNOS 44 
WORD «= OSQRTaPTS4ee0MODE 
sENQC 
vSPNOF «CNOSZ4 
WORD OB 
sEN0C 
stPOF = CNDS Se 


3k 


TRAPG2 MACKLD 


395 
396 
397 
398 
399 
408 
rrr 
402 
403 
4n4 
405 
406 
407 
408 
409 
448 
cret 
412 
443 
414 
415 
416 
447 
418 
4n9 
428 
424 
422 
423 
424 
425 
426 
427 
428 
429 
430 
433 
432 
433 
434 
435 
436 
437 
438 
439 
440 
44g 
442 
443 
aaa 
445 


TRAPQ2 MACX14 


458 
as, 
452 
453 
454 
455 
456 
457 
458 
459 
468 
464 
462 
463 
464 
465 
466 
467 
468 
409 
478 
47g 
472 
473 
474 
475 
476 
477 
478 
479 
488 
483 
482 
485 
484 
485 
486 
487 
488 
489 
490 
aon 
492 
493 
494 
495 
496 
497 
498 
499 
500 
504 
302 
503 
504 
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VO2Z2 «= 25eMARC7S «= 44154 = PAGE 208 


sSeot 
SA601 


$aQd! 


WORD = TANHOPTS42 
eEn0C 

vlPNOF §CNOSSS 
WORD 6 

eENOC 

stV0F = CNDS2e 
WORD EXPePYS42 
ENDS 

rIFNOF CNOS29 
sWORD OB 

NOC 

+370F = §=6CNOSSY 
WORD = CEXPePTS42a0M00E 
sENOC 

sUPNOF = CNOSS9 
WORD 8 

vENOC 

stror CNOSS 

WORD AL OGaPTS42 
eWORD = ALLOG BaP TS42 
ENOC 

sTPNOF CNOSS 

WORD Oe 

sENOC 

oiFOr CNOSL0 
sWORD = OL 0G PT S42e0M00E 
WORD = OL OGL BaP TS42e0MO0E 
sENOC 

wJPNOF §6CNOS1 
1WORD O48 

1ENOC 

WORD = 89 B87 8 161878, 0 8 
i3FOF «= GND S44 
WORD = SLOR@PTS42ePMODE 
NOG 

:TPNOF CNOSae 
WORD t) 

+§NOC 

POF = §=6CNO S49 
ere SLDDePTS42aPMODESOMONE 
' 

vTFNOF =GNOS45 
WORD 8 

ENO 

stPOF = GNDS 46 
sWORD «= SHSTROPTSAZSPMODE 
,ENOC 

ri7NOF = CNDS4O 
WORD 8 

, ENOG 

rUFOF cNOS47 
WORD SSTOePTS42aPMODESOMODE 
»ENOC 

LIPNOF 6CNOS47 
;WORD oo 

sENOC 

WORD = 88 

sENOC 

TITLE Sages 
sPOF = GNDSL 
»GL0BL SAD, SSBO,SERR 
ROSKD 

Raens 

RZeK2 

R3ENS 

R4aexa 

R5EXS 

SPPX6 

PCOX7 

Aaa6 

8488, 

Chase, 

01912, 

Agea4, 

B2aL6, 

Casis, 

02020, 

S{GNSsO,_ 

MQ84773048 
NOR#L77342 
LSHad773446 
ASH82773546 

Fogxo 

400 #48e000,03P 
vtPor FRU 

sWORD = 478993 
sWORD = 472420 
WORD 472026 
«WORD = 4.749486 

Pld O(Rare 
sENOC 

vIFNOF = FPU 

MOV RO, 0( SP) 
MOV 5, 0(3P) 
CLR of8P) 

CUR R4 

CLR a3 

a$l OL¢SP) 

ROL CEteP) 

ROL B4(SF} 

ROL AQ SP) 

8338 ALOL( SP) LRG 
seo ALESS 

ROS = @SP 

ASL O¢SP) 

ROL CRSP) 

ROL BBC3P) 

ROL Ag(8P) 

6188 A204(097),R9 
ONE ANS’ 


BEF 


sa0085 


MACX11 


MaAcxia * 


vo2s 


voas 


2yanaRe73 


23eHARe73S 
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aaesai 
AGNSSI 


EXAaSii 


SCRSii 


eCKSit 
SFYS31 


SFRSi1 


44154 = PAGE 2010 


srisit 


S14Si1 


StoSit 


SLSSit 


RORB esp 

ROR AL(SP) 

ROR B3¢SP) 

ROR Gacsr) 

ROR Oa¢5P) 

MOV ALCS?) ,A20SP) 
MOV B4¢SP),82(8P) 
MOV CLCSP),C20SP) 
MOV DACSP),02¢SP) 
Ts? Pye 

une OVrss 

ROLB SIGNSO4(SP) 
Move OL, A204 0S8P) 
Move BL ALOg CSP) 
sus R4,R5 

aGT EXAS’ 

QV AZ(SP), RO 
MOV B2¢SP),RL 
MOV C2(8P),R2 
mov O8¢3P.,RS 
ar SCKS4 

apo RRA 

MoV AL(SPD, RO 
mov O4(SP),A2 
MOV CACSP),R2 
MOV O2CSP 72, RS 
MOV AB(SP),AL(8P) 
MQV O2¢SP),82(SP) 
MOV C2¢SP),Ci¢SP) 
MOV O3¢SP),01(8P) 
swae esp 

NES as 

cure SIGNSe4<SP),eSP 
eco EGKSS 

NEG 3 

Age R 

aoc Ry 

ane RO 

NEG Re 

aoe Ry 

aoe Ro 

NEG RL 

age RB 

NEG Lt) 

rs? RS 

8E6 srosy 

CMP #057,,A5 
4 SFRSY 

MOV ALCSP) RO 
MOV 82¢SP),R4 
MOV CL(SP),R2 
MOV 02(SP),R3 
oR NODSS 

CMP #06, ,45 
OLE sRasi 
vUPNOF = MYLOLY 

CLR #($P) 

Tvs? Ro 

oPL SF4Si 

GoM esr 

16NOC 

sMPOF = MULOSY 

Ts? Ro 

sWORD = 886746 

ENoc 

tue 8046, 9R5 
OL? Siesi 

MOV RARE 

MOV REQR2 

MOV RO,RY 

MOV esp Re 

a00 8465085 

BNE Sf4si 

rst (SP)e 

BR SFOSs 

vtPor EAE 

cmp #a3,R5 
ale S8asi 
MOV R4,0SP 
MOV wha,R4 
“OV RJ, ORE 

MOV R2,0(R4) 
MOV R5, 08, SH 
MOV (RE) OR2 
Mov ORG, RS 

CLR ore 

MOV R4,0(R4) 
MOV R5, 00. 5H 
Ts? CR4)¢ 
ays ORG, RE 
MOV RL, One 
MOV RO, e( RG) 
MOV R35, OaASH 
MOV (RAD ORD 
MoV ORG, RY 
mov CEP), R4 
OR svosa 

ENDS 

ebFNOF = EAERSMYLOIY 
cup 08.) 
OLE S8asy 

a00 #26, ,R5 

ast RS 
ROL R2 
ROL RY 
ROL RO 
ROL esp 
EC Ld 
acy SL85% 
MOV RO RS 


B70 


39/ 
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615 
616 
647 
648 
619 
629 
624 
622 
623 
624 
625 
626 
627 
628 
629 
630 
634 
632 
633 
634 
635 
636 
637 
638 
639 
640 
644 
642 
643 
644 
645 
646 
647 
648 
049 
650 
654 
652 
653 
654 
655 
656 
657 
658 
659 
668 
66 

66 

663 
664 
665 


sA0005 


670 
674, 
672 
673 
674 
075 
676 
677 
678 
679 
688 
684 
682 
683 
684 
685 
686 
687 
688 
689 
690 
694, 
692 
693 
694 
695 
696 
697 
698 
699 
708 
704 
702 
703 
724 
705 
706 
707 
708 
709 
718 
744 
712 
713 
714 
745 
746 
717 
718 
719 
728 
724 
722 
723 
724 


MACXA1 


Voas 


Ve2d 


23eMARe73 


23eMARe73 


24154 PACE 2043 


Si6sit 


SOAS4) 
SRasi} 


Srosii 


NOOS4I 
NFLSSI 


MOV 
MOV 


1134 = PAGE 2012 


Ourss 


OvPSa} 
OvRsi1 


UTSsai 
UNFS41 


UNOS4I 


ZERSit 


SVBSiI 


BT9sa) 


ROR 
NT 
age 
aoe 
AOe 
aves 
cs 
MOV 
MOV 
MOV 
MOV 
MOV 


RagR2 
RO,RL 
(SP)e,Re8 
SFross 


MULDIY 
#aS,Rd 
S8asy 
R4,0SP 
RS, a(SP) 
RLsR4 
a73805 
R2,R5 
073419 
R2,R4 
R3,R2 
R3,R3 
873429 
RS,R3 
(SP) 0,R4 
SFoss 


CgP)o 

RO 

Ry 

R2 

RS 

RS 

SROS4 
O4(SP),R3 
R2 


Ra 
Ra 
CEESPY RZ 
ab 


RB 
BSP RRL 
Ro 


AL(SP) RO 
SIGNSe4 (SP), 097 


RQ, A20002(8P) 
RL, B20602( SP) 
RO, C2e002(S8P) 
ahi 
(GP) OARS 

(SP) o,R4 
#9, , SP 
O(Rane 


375 


SA0D25 MACX11 


725 
726 
727 
728 
729 
738 
733 
732 
733 
734 
735 
736 
737 
738 
739 
740 
744 
742 
743 
744 
745 
746 
747 
748 
749 
750 
73% 
752 
733 
754 
755 
736 
737 
758 
739 
768 
76% 
762 
763 
764 
765 
766 
767 
768 
769 
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788 
784 
782 
783 
784 
785 
786 
787 
788 
789 
799 
794, 
792 
793 
794 
795 
796 
797 
798 
799 
(TT) 

» 882 
802 
803 
604 
805 
806 © secee2! 
807 
eo8 
89 
610 
rey 
612 
813 
e14 
B15 peewee! 
816 «geee18! 
817 gepei2¢ 
818 ge0B14! 
819 ope016! 
828 aeee22° 
821 ope026! 
822 990852! 
823 o00834! 
824 990836! 
825 990042! 
826 990046! 
627 epog5e! 
828 300854 
829 g20056! 
832 agag6e2! 
831 oBon66! 
832 090874! 
833 agaqe2! 
834 o9a1e4! 


ve2a 


voas 


280008 
289083 
800802 
980685 
oeggn4 
880005 
800886 
280007 
908020 
808006 
300806 
0900s 
0908s2 
177302 
177304 
177312 
177316 
2008 
862746 


310446 
089046 
995982 
305803 
286366 
386166 
136603 
o91574 
186116 
086366 
086166 
156602 
681814 
106016 
2806866 
986966 
916666 
816666 
080550 
186166 


QeMARo7TS 41154 PAGE 2013 
MOV RB, 02{R4) 
CLR @oNnoR 
MoV OBNOR, e(SP) 
sus 40,057 
MOV REA OR4 
MOV RB, (RG) 
MOV OS? ,08,SH 
MOV (RO) ORO 
Mov ORG, RY 
MOV RE, ORG 
cn o(R4) 
MOV @SP, 8, SH 
Bis (ROD RY 
MOV RY, Ona 
MOV RE, (KG) 
MOV OS? , 08, SH 
MOV (RO), R2 
MOV ORG, RS 
8u8 (3P)4,0SP 
MOV (OP) O,R4 
act NOOSS 
8R UNFSS 
,ENOC 
B9asas Bit RO, 8408 
BNE UTSsa 
vec Ré 
ASL RS 
ROL Re 
ROL Ry 
ROL RO 
BR 89S 
27ssii 88 80,,,R4¢ 
Ys? RY 
BNE 27484 
SUB #24, 184 
MOV RORL 
BNE av2si 
sya a4, ,K4 
Ts? 3 
sca ZERSY 
ose REAR 
SwaB Ry 
SWAB Rs 
8138 RS, RO 
GLR RS 
BR 8y9ss 
272841 MOV RGARZ 
CLR aj 
27{sit swag RL 
ose RU, Re 
CLR RA 
waa R2 
ese R2,R1 
CLRe R2 
swas as 
23eMARC7S «11154 PAGE 2014 
BSB RI,RZ 
CLAS RS 
BR eToss 
1 ENDC 
vENOC 
iTITLE SAORG4 
sJFOF = CNDS2 
:GLOBL SADR, SSBR,SERR 
REGKD 
RISKY 
R2a%2 
RIEKS 
Rane 
«RSENS 
SPeXx6 
PCEK7 
S}GNSeo 
aged 
B186 
A226, 
82310, 
AC8477302 
MQ8477304 
NORSL77392 
ASHBLITSLO 
Fesxo 
190908 sserRi = A00 syogeee, esp 
iiPOF |oFPU 
SAGRt ,WORD 1378004 
WORD §=4.72420 
»WORD =. 4.72926 
sWORD =: 174046 
JMP OCRajye 
1ENOC 
vSPNOF = FPU 
SADR} = MOV R4,0($P) 
CLR «(5?) 
Cyr R2 
CLR R3 
090906 ASL Ba(S") 
298804 ROL ALCSP) 
898085 8138 ALo1 (SP), RS 
BEO ourTs2 
ROLB esp 
900012 asl 82(SP) 
ogeeie ROL, Aa¢sP) 
090013 e1se AZO4 (SP), RZ 
SNe AGNS2Z 
RORB esp 
o9ea04 ROR AQCSPY 
090006 ROR 83157) 
00804 s98830 MOV AL(SP),A2(8P) 
90806 gBe42 MOV B469P), 82497) 
8R ourse 
ogee, A2NS21 ROLB SIGNSo4¢SPy 


394 


751 


SAORO4 


835 
836 
837 
838 
a39 
a4 
844 
842 
843 
TY) 
845 
846 
047 
848 


sAoRe4 


890 
694 
92 
893 
894 
895 
896 
897 
898 
899 
980 
90% 
902 
903 
904 
905 
906 
907 
908 
909 
918 
911 
912 
913 
914 
915 
916 
947 
918 
9419 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
938 
934 
932 
933 
934 

935 
936 
937 
938 
939 
940 
943 
942 
943 
944 


MACX1L 


0001106 
ooa116! 
000124! 
880126! 
880138! 
aa1340 
oaa1sg! 
one142¢ 
aeeisa? 
800150! 
080154! 
099162! 
090178! 
090172! 
000174! 
gee2e0! 
aae2e2! 
goe2n4! 
890206! 
see2ia! 
oge2i2¢ 
Tirey 
908229! 
gee222! 
880226! 
909232! 


oezsa! 
oea24g! 
oep2se! 
Be0244/ 
080246! 
oe0250! 
aee2s2e 
900256! 
000260! 
090262! 
oon264! 
o8027¢! 
gao272! 
080276! 
890300 
ooo3044 
800306! 
880310! 


MACX11 


880312! 
O0314! 
080316! 
oeoses! 
888322! 
ogose4! 
880326! 
880330! 
880332! 


BBO334s 
880349! 
280344! 
900346! 


. 888352! 


8B8354° 
980360! 
886362! 
OBO364! 
O20366! 
O20379! 
886372! 
000374! 
898376! 
880400' 
888482! 
989404! 
280406! 
800410! 
000412! 
aoe4aiaé 
090429! 
880424) 
880426! 
800439" 
8890432! 
BB0434! 
000449! 
000442 
800443! 
OB0444! 
O20446! 
880459! 
080452! 
00454! 
000456! 
Ben46g! 


vees 


112766 
112766 
160302 
883005 
816680 
016631 
880415 
860203 
816688 
816604 
816666 
916666 
860316 
889408 
126616 
081423 
085403 
085520 
085408 
095782 
001459 
822708 
093403 
816608 
216603 
880456 


822702 
883433 
op5ec4 
985720 
100004 
985194 
822702 
082405 
010093 
340400 
062702 
oe142y 
922702 
083432 
862702 
886304 
096108 
366106 


Vee. 


885302 
883373 
010003 
910400 
880424 
296200 
886084 
885202 
882774 


866600 
066604 
885509 
126616 
001934 
930227 
eo44as 
op62ee8 
306904 
285293 
080303 
081028 
150803 
986016 
o86803 
086884 
005525 
005503 
182444 
183410 
918366 
410166 
885726 
842604 
822626 
280134 
204567 
090774 

003 

022 
085709 
aBSe05 
aBi4is 
085400 
085404 
385628 
080316 


235eMARO7S «= 12534 


890001 888041 
C9888, oeee85 


090012 
300042 


O88804 
B08B26 
O88818 BB00R4 
BRO2L2 868006 


090004 


477747 


ovages 
aeages 


4777798 


177768 


ogeeze 
477778 
oope2e 


23eMARe7S 11154 


egoges 
990026 


88800) 
904008 


980038 
990042 


oeSeon 


EXaS2] 


SCKS2) 


ECKS21 
SFPS2t 


SFRS2} 


SFRS2) 


SFRS2) 


NCPS21 


SRLS21 


SFLS21 


SFes2) 


SFOS2t 


NOOS21 


SYRS21 
oursel 


OVRS2} 


SUBS21 


BT9S2) 


PAGE 2045 


PAGE 2016 


cee 
BGT 
MOV 
MOV 
BR 
ASR 
ROR 
INC 
BLT 
+ ENOC 
ano 
400 
AOC 
cMPS 
BNE 
BIT 
8EO 
ASR 
ROR 
INC 
SWAB 
ONE 
8388 
ROR 
ROR 


OL, A204 CSR) 
HL ALOECSPS 
RZ, RZ 

ExXas2 
AZCSP), RE 
ta 
SGKS2 

R@,RS 
ALCSPY, RO 
82(SP),Rt 
AZCSPY,AL(SP) 
82¢8P),814$P) 
ose 


Re 
SIGNSe4 (SP), eSP 
EGKS2 


ag(SP Le RE 
Noosa. 


EAE 

Ry, oan 

RO, ewac 

RZ, O8ASH 
eeHa, RS 

OBAC, RO 


MVQOTY 
873002 


CAESMYLOIV 


AL(SP),R8 
B4(SP),R1 

RO 
SIGNS@,(SP),@SP 
SyBs2 

RO, #1000 

NODS2 

RB 


R3,A2{SP) 
RL, B2¢SP) 
(SP) 
(SP) e,R4 
($P)4;(SP)e 
O(Raye 
R5,SEKR 
oyrse 

3 

2 

Ro 

8T9S2 
27882 

RO 

Ry 

aD 

esp 


CAE 

RO, 0708 
ByAS2 
REoana 
RO, eeAC 
@BNOR 
OBNOR,RS 


77 


SADROE 


945 
946 
947 
948 
949 
958 
954 
952 
953 
954 
955 
956 
957 
958 
959 
968 
964 
962 
963 
904 
965 
966 
967 
968 
969 
978 
973 
972 
973 
974 
975 
976 
977 
978 
979 
968 
984 
982 
983 


SADRG4 


904 
985 
986 
987 
988 
989 
998 
994 
992 
993 
994 
995 
996 
997 
998 
999 

4200 

4201 

4002 

1203 

1004 

1085 

1006 

4207 

1908 

1009 

4218 

4014 

1012 

4213 

1014 

1945 

4016 

4017 

1018 

4019 

1928 

1023 

1022 

1023 

1924 

1025 

1926 

1927 

1028 

1929 

1938 

1931 

1232 


1033 
1034 
1035 


1036 


MACX11 


886462! 
998466! 
880479! 
888472! 
880474! 
300476! 
opesae! 


ogese2! 
Bge5e4! 
8ee506! 
ooesig! 
600512! 
990516! 


899529! 
oees22/ 
ooese4/ 
92053e/ 
090532! 
890533! 
090534! 
880536! 
880549! 


MACX11 


000542" 
ages4as 
o0055g! 
g0a5sa! 
000568! 
900562! 
080566! 
000579! 
oees72t 
000574! 
89e6n2! 
200618! 
8096120 
000616! 
809622! 
880626! 
900632! 
080636! 
g9ae42! 
000646! 
200654! 


020656! 
020669! 
88679! 
800674! 


Vo2a 


o3e927 
301014 
85303 
086324 
386108 
080773 
085704 


001415 
808301 
130108 
199903 
162703 
080764 


805785 
883322 
884567 
080404 

005 

82 
oe5aes 
9582S 
980725 


v@2a 


TT LL 
CITE 
agooe2 
200805 
aeoene 
000005 
280006 
900007 
seooee 
epee. 
OTT 
280903 


085846 
016506 
842746 
842746 
824646 
836446 
941446 
BO3534 
896316 
116666 
112766 
986026 
012746 
842746 
816646 
816646 
212746 
912746 
084467 
eegee2! 
281234) 


081806! 
092322! 
080746! 
282322! 


23eMARe73 


aga4oo 


oe0018 


093518 


23emMARe7S 


ogee82 
874038 
1357064 


890002 
8g0200 


0823563 
240065 
088886 
000006 
882303 
a40065 
093238 
800768" 


034006! 
0907344 
000746! 
ogaene! 


200014 
880001 


OBH7 46 
e62522¢ 


Lapse 


11134 


89aS24 


278824 


UTSS2q 
UNFS21 


UNOS2] 
ZERS2} 


ALOGSBI 


ALOG! 
LOGss] 


PAGE 2017 


mov 
ado 
BLE 
MoV 
MOV 
BR 


PAGE 3 


ATUTLE 
sfFOr 
16084 
a tPNOF 
+GLOBL 
sENOC 
a SFNOF 
1GL08L, 
,ENOC 
ROBSB 
RIsXs 
R28%2 
R3EXS 
R4exe 
R5OXS 
SPsxe 
PCSK7 
FQsKxe 
ryexy 
V2ex2 
F3axs 
uTENOF 


rLPNOF 
MoV 
GR 
ENO 
CLR 
MOV 
Mov 
MOV 
cop 
MOV 
MOV 
BLE 
ASL, 
MOVE 


#06, 08ASH 
86,R3 
UNFS2 
OAC, RO 
oang, RY 
noos2 


Ro, 9408 
urss2 


BIE 


AASIC SOURCE FILE #10 
SALGOY 
CNOSS 
SERR,ALOG 
Seas 
ALOGse 


Fey 
SPOLSH,SAOR, SSBR, SMLR,SOVR,SIR 


rey 


seas 
oPC,0(SP) 
LOG83 


=(SP) 

2(RSI GRE 
W271038,0(SP) 
0137664, 0(SP) 
=(SP),e(SP) 
24R4),0(SP) 
OR4,043P) 
ERRSS 

osP 
1(3P)442,68P) 
a200, 4 (SP) 

0s 


8802393, 0(8P) 
9049065, 0(8P) 
6(SP),0C SP) 
6¢SP),e(SP) 
9002303,0(SP) 
9040865, 0(SP) 
R4,SPOLSH 
SSOR,YPS3,SA0R, SOVR 


OUPSS, OUPSs 
SMLR REGSS, STKSS, SIKES,STKSS 


SMLRo SADR SHUR SADR SHUR) SADR, SMLR, SADR 


Va) 
x9) 
NS 


SA,GOS MACX12 YO24 23eMARW7S 11134 PAGE Sed 
000782! ogaeag! ae25z2¢ BRAaRE! 
A aee71e/ eg2sz2! oseses! 
403 
1038 090724! 088772! BAZzSE! CBLoZa! WORD «= SCL Ss SIR PL 2SS, SHER 
880722! Be2322! 

1939 990724) aa0806! cBLes2t WORD «=: SADR EXIST 
4246 
1844 898738! B82522! Geyeset WORD = - SALAS EXEST 
1042 080734! o12608 REGSS} «MOV C9P) 0, RB 
4243 000736! 012604 MOV CSP) OR 
4044 898749! 012722 BaLri6# MOV OGONS3e4,R2 
1245 996744) asedaz BR sTess 
1846 980746! 219146 STKS3 MOV Ht oat Ha 
4047 80758! 910946 MOV RO, 0 (SP) 
$048 380752! 034246 sTesst MOV e§R2),0( SP) 
1049 888754! 234246 MOV o§R2),0(SP) 
4050 «398756! B80134 JMP ecRaye 
105% 898768! 032666 00032 uPs3si = MOV ($P 6949, (9P) 
2052 090764! 042666 oBea%2 MoV CGP) 0798, (SP) 
48953 998779! aBe1S4 ump (Raye 
1954 090772! 905046 SCLSSt CLR =(SP) 
4255 808774! 156616 o800e6 e388 0(5P),eSP 
2056 091900! 162716 oe0200 8UB 9200,0SP 
1057 «a8y0e4! oBg434 ume egRaye 
1058 2001006! 016646 oBone2 ourss} MOV 20SP)ee(SP} 
1859 991012! 816666 sgn0e2 MOV 2¢SP), (SP) 
1868 081016! aB0134 Jur O(Raje 
4063 881928! 0427466 073030 PLOSS} MOV 4871030, 0(8P) 
4862 881024! 012746 340061 MoV 9848664, 0(S8P) 
1963 981950! 380134 : uMP OCRa)e 
4264 881032! 195366 sgeR05 EX{S3} OECB 5¢S8P) 
4065 964836! 992405 Or Larss 
1966 304040! 332746 959732 MOV 8095734 ,0(3P) 
1067 984844! 032766 037736 MOV 9837736,0(8P) 
1068 001058! 290134 Phd O(Raye 
1069 004952! 212600 LGfSS| MOV (9P) 4) RO 
1878 002054! 312603 MOV CSP) OARS 
127% 084256! 395726 1sT trie 
1272 oByeee! ceeges RTS RS 
1873 981962! 262706 290016 ERRSS} = A00 044,97 
4074 084866! 004567 223349 vgr RS, SERR 
1979 «901872! 200205 Rvs RS 
10976 «6901074! a0 :BYTE 4 
1077 «991075! B12 BYTE = 48, 
1078 sENOG 
4079 siror = FRY 
1088 
4064 sUFNOF =$GA8 
1082 ALoGse) MOV oPg, RA 
4083 cue L0ass 
1084 1 
1085 Y00 
1286 AuoGi «= CLR R4 
1287 LO6S3; SEF 
1088 sett 

SALGGS MACX14 VO2L 23eMARe73 11134 PAGE 302 
1089 mov #FCOSS,RO 
1090 LOF ©2(R5),F2 
109% croc 
1092 BLE ERRS3 
1893 SYEXP = F2,R4 
1294 LOCIF R4,FS 
4295 MULF (RB) Oy FS 
1996 LOEXP = #0, F2 
1097 OF FacFt 
1098 SUBF (RO) 2 
1299 agor (ROQO FS 
1108 OvVF F4,F2 
1191 oF F2yFL 
1102 MULP Pairs 
1123 MOV 83, R4 
1104 LOF (ROO CFS 
1105 xPOSS} MULF Fuaro 
1126 bec Ra 
1107 aoor (RO)o—FO 
1128 ec’ XPOS3 
1109 MULF F2,Fe 
1110 ADOF (RO)O, FD 
iiat ADOF F5,7o 
1112 TST 4 
1113 BEQ LGTss 
1114 MULF = (ROD Oy FO 
1415 LGfs3; Str FB, e(SP) 
1116 MOV (SP)o,RO 
1217 MOV (SP)e,RE 
1118 avs a5 
1419 ERRSS} SR R5,SERR 
1120 avs RS 
1123 1BYTE 4 
1122 :BYTE «185 
4123 FCOSsS} ,WORD 240063,974030 
1124 WORD «© 0.49065,802363 
1125 ENO 
1126 981976 337632 914525 WORD =. 957634 ,91495925 
1127 904102! 337714 120036 sWORD «= 97724,228036 
1128 381106! 349952 125332 «WORD 848852,125352 
1129 981112! 240488 gao000 CONS3} ,WORD 040488, 000809 
1138 sUVOrF  FPU 
1132 :WORD =. 45 7663,974038 
1132 WORD §«=.837736, 055731 
1133 vENOC 
1134 +ENOC 
1135 :TITLE SANTOS 
1136 :IFOF = CNOS4 
1137 1GLOBL AINT, SINTR 
1138 seooee RQRKB 
1139 opeaes RUNS 
1148 OB0002 R28K2 40 / 
1242 3egees R3PKS 
1142 ogoen4 R4aSKe 
1143 ooaee5 R50Xx5 


- - rr 


Ayu 


Se 


SANTOS 
1244 


SANTOS 


MACXL1 


ogsi16/ 
004122) 
804124! 
984450! 
804152! 
8842546! 
0941568 
3811468! 
964142! 
081144! 
804146! 
981159 
601152! 
804156! 
903160! 
984164! 
001166/ 
901176! 
093172! 
g01174! 


901176! 
991200! 
984202! 
001204! 
802206! 
884219! 
981212 
Ox214/ 


MACXA1 


a1229/ 
083222! 
ao1224/ 
081226! 
061238! 
801232! 


vees 
S886 
epege7 
479304 
177334 


eeonee 
880083 


026506 


819346 
ogeges 


086198 
985203 


veer 


1299 983216! 002774 
8 


895702 
084404 
288205 
810146 
819846 
880134 


23eMARe73S 


ooeese 
177738 


23eMARG73 


£4154 PAGE Sed 


AINTI 


SINTRI 


ONES4} 


AINTI 


SINTRE 


atds4y 


SHPS4) 
RORS4] 


ASLS41 


SPeX6 

PCex7 
“Q81773504 
LSHALT7SE9 
Foxe 

Faexs 

tFor rPYy 


:}PNOP. 38a 
»WORD = 470903 
sWORD = 472475,2 
WORD = 174467,24 


alFNor oF 
2§R5) RE 

MOV @R4, RO 

MOV 2ER4) RL 

MOV PG,Re 

BR aldse 

CLR Ra 

MOV CSP )0, RO 

MOV CSP) OpRY 

MQV RO,RS 

ROL Rg 

CLR " 

Waa R 

sue 236,839 

BGE ONES4 

CMP #030,KS 

auf SMP S4 

CUR as 

CLR Lt§ 

oR ONES4 
AZ, e( SP) 

vIPNOF = EARSMYLOSY 

OR ld 

ROR Ry 

ING RY 

aT RORSS 

MOV (GP)4,R3 

ASL Ry 

ROL ao 

INC RS 


11134 PAGE Jed 


ONTS41 


sCmot 


SCMOt 


FPSs3} 
SMESS| 


BLT agis¢ 
sENOC 

iJPOF = Eag 

MoV ang Rs 
MOV Rg, eng 
MoV RB, @(K3) 
MoV eS? ,0SLSH 
NEG osr 

MOV (SP) 6, O8LSH 
MoV (RS) Op RD 
MoV ORS,RY 

+ ENOC 


sPOF | MULOTY 
WORD = 873830 


NES ese 
»WORD 873020 

2 ENC 

TST RZ 

8Eo ONGS4 
avs RS 

MOV RL,e(SP) 
MOY AG, o( SP) 
ume OCRaye 

1 ENOC 

sENOC 


+TITLE sgGMoa2 
sIFOF = CNOSS 
sGL08L SCHO 


tSFOF = FRU 

sWORD «478033 
sWORD = 172428 
:WORO «173426 
+WwORO = 170008 


JMP O(Ra)e 
vENOC 

LIPNOF FRY 

MOV orc, Re 
MoV 8, (8P 2,82 
BGE resss 

ASL RO 

mQv CEP) ORE 
BLY snegs 

BR NEGSS 

MoV CRP) O,R2 
OLY Pegs 

cme RYAR2 

SNE oyrss 

Cur 8,037), eSP 


0 


40 3 


SGMOB2 MACX14 YOZL 23eMARe7S 14134 PAGE Sod 


1254 Ne ours 

1255 Cur 20) (SP) ,2¢9P) 

1236 BNE outss 

1257 cue 425 (SP) 4¢8P) 

1258 ONE OUTSS 

1259 CLR RO 

1268 OUTSs; ROR RO 

1263 acs PLSS9 

1262 NEGSS} NEG RB 

1263 PLSS5y 06=A00 044,,5P 

1264 Ts RO 

1265 uur OCR4)e 

1266 vENOE 

1267 sENOC 

1268 :TITLE SOMROZ 

1269 ,}POF © CNOS6 

1278 1GLO0BL, SMR 

4273 RoaKe 

1272 RaeXS 

1273 R2eX2 

4274 Raexs 

1275 SPeXx6 

4276 PCax7 

1277 reexe 

1278 vIfor = oFPY 

1279 SCMRI =,WORD = 378003 

1288 +WORD = 472420 

2283 sWORD = 473426 

4282 »WORD 476008 

4283 JMP O( Raye 

4284 sBNOC 

1285 vTFNOF FRY 

1286 SCMRt MOV ofc, Re 

4287 MOV 4¢8P) QR 

1288 BGE FPss6 

4289 AS, RB 

4298 MoV ¢$P)e,R2 

1293 BLT SMES6 

4292 aR NgQS6 

1295 FPS$S6) MOV (SP )6,R2 

4294 BLT PLSS6 

1295 smeséy CMP RL,R2 

1296 BNE ourse 

1297 cup 4¢9P),eSP 

1298 BNE ourse 

1299 CLR Ro 

1308 Oursé6) ROR RO 

1303 acs PUSS 

4302 NEGSOS «NEG 

ages PLSS6I aoe oe 

4 T 

1305 AT ld A(Raye 0 

1326 vENOC ey: si 

4307 vENOC 

4506 rTITLE «$08.08 
SOBLO2 MACX12 VO2i_  23eMAR@7S 111354 PAGE Sed 

1309 vIFDF = GNDS7 

1310 

4312 1GLO8L OBE 

1342 ROK 

4313 RLAKL 

4314 R2EN2 

4315 R3eX3 

1316 ROOKS 

1347 _ OBLEI MOV 2(R5) (RZ 

4318 MOV (RZ) O)RO 

4319 MOV @R2,RE 

1320 CLR Re 

1321 CLR RS 

4322 RvS RS 

1323 sENOC 

1324 +TITLE SOCIOL 

1325 ,}7OP =CNOS8 

1326 +GLOBL SOCT,SRCI 

1327 Roexe 

4528 RYaNe 

1329 R28K2 

1338 RSEKS 

1334 RaeK4 

1332 R5exs 

1333 SP8X6 

1334 PORK? 

1335 NUMEND®@ 

1336 POINTLS2 

1337 OLGITSs4 

1338 BEXPE6 

1339 ES{GNe6, 

1349 SIGNaiB, 

1342 EEXPa12, 

1342 Ps3Q, 

1343 0832, 

1344 ERP=26, 

1345 LENGTHS34, 

13546 TEMPSLENGTH 

1347 RESULT aP 

1348 START#36, 

1349 ENOSSTART 

1358 SRETI «= CLR o(3P) 

1351, ING ogp 

1352 aR CNVS8 

1353 SOCTI CLR o4sr) 

1354 CNVSBy MOV RO 06 9P) 

1355 MOV RQ, 0C3P) 

1356 MOV RZ, 0(5P) 

1357 mov RJ, 0(8P) 

1358 MOV be ha 

1359 MOV thd 

1368 CUR o(sP) ; 

1363 cur o¢SP) DOS” 

1362 cur o(3P) 


§ 
1363 MOV 995,,0(SP) 


SOC}B% MACXI1 Ves 23eMARe7S 11p56 PAGE 3e7 


1364 
ae mov 048,,0¢SP) 
ae CLR 0437) 

pe CLR e(SP) 

ae MOV START (SP) RS 
1308 aoo LENGTHCSP),ENDCSP) 
ue CUR ae 

qe CUR Ry 

i372 tre RS 

37 
3373 SCNS81 MOVE (RIO, RO 
378 eye #477608,R4 
Ad cope Raye! 

at BNC $osso 

ed cup RS, START(SP) 
i379 the SERBS 

380 He 
net sGsse; cMPe Ra, fe 
ae eco FLOSS 

eet Cure R4,gfe 
1384 ane ; 

ies et ae 
386 

4308 NX?sat MOVE (R59) o)R4 
PH aye #277606,R4 
a crs R4,a 

sass BNE NCKS8 

ae MOV WIG, RE 
ae NCKSO} «6CMPB R4,e'o 
1305 BLY PCKS8 

a BNE NN@S8 

1395 ane WN 

Be ae 
1397 

et BNE NN2S8 

ae TsT Re 

eH BNE NNES8 

tion oF 

<a8 F088 

ss NN@SQ1 «CHPB agealy 
be , aG7 excss 

ies lay OLGyTS(SP) 
he UGE AZ138 

ii ti 
408 . 

ets aatsey sus 946,24 
i410 vr PG MLS 
tat usr PG LPTS8 
ee aoa Ra, : 
1443 ANC 

1414 ioe ne 

4445 ane oH 

fate FLOS8I «CMP RS, ENQ(SP) 
ae Moy uate wee 
a4. scysey TST a 
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1449 
or BNE sgise 
it me 
1422 ae 
eH TST R2 

3 BNE sgqse 
1425 ue 2 
a BEQ ZERS8 

4928 scisay CMP @SP,RD 
1428 sus mop) 
rts (SP), EEXP(SP) 
tate NOPsel TST POINTLCSP) 
aaa ane PNTSS 
ee 0¢8P),e@SP 
1432 PNYS81 SUG  —- POINTL.¢ SP), eSP 
iasa sue @SP,EEXP(SP) 
ua BGT MLSS 

ie he fe 

437 is 

eet MULSB1 CMP RB, H34462 
fue BHI MOVSS — 
cae Jgr PG yML OSS 
at : ING BEXP( SP) 
aa Dieses; EC CEXP(SP) 
teas ocr MULS® 

tea . JMP PLYSB 
ey MOvS81 «SR PC,M54S8 
eh ado #3, BEXP(SPY 
a gr oas 

eld PcKse, CMPE R4,8¢, 
an ONE RASS 
1458 : Presa; st POINTL GSP) 
ier BNE ERRSB 

tase MoV RS, POINTL(SP) 
1453 ERRS8} Cone ERPs 

na RP ot (SP 
is ZERSBt CLR RO — 
1456 st a 

1457 ice bi 
4458 he oT 

pe STRE8 

re Exesey CMPB Hines 

as BEG Exyss 
oh cure RO, 840 
ae BNE ERRSB 

arr exfse: MOV RD, 0SP 
tase oec esp 
eres MOV RS, TEMPCSP) 
4467 ch R 
te68 GMP R9, ENOCSP) 
per ace ERASE 
ty ‘ ae (R50, R4 
at ¢ 9477608,R4 

cmre R4,ate med 


sOCia1 


MACX22 VOZL «9 23eMARO7S «= 4.3454 


EFTS8I 
EF2s84 
ENNS8} 


ENZS84 


EN2S84 


Olvser 
Ovesay 


ovis 


OVSS8} 


Ov4s8} 


MACX12 «=VO2L 0 23eMARW7S = 12434 


FLYS8y 


STRSBy 


OPRS8} 


PAGE S09 


ne 
N 
GMP 


PAGE 3ei9 


ENMSe 
tglontse) 
RO, ENQ(SP) 
ERRSA 


(RS) oy R4 
0477608,R4 


R4,RS 
R35, ENQCSP) 
Fase 
ESIGN SP) 
tNase 
R3,CEXP (SP) 


TEMP CEP) RS 
SGLS8 
Re 


RO, 0($P) 
PO RITSS 


PE RITSS 
#2,R5 


PG RITSS 
CtSPD URS 
Ra 


RY 
Re 
4¢S9P9,R2 
Ra 


RB 
2¢9P),83 
Ra 

eSP, RO 
RS 


RR 


O1.8P 

#3, BEXPCSPY 
CEXP CSP) 
Olvss 

GEXP (SP) 

PC LFISS 


FLYS6 

#209, 8EXP (SP) 

UNOSS 

BEXP( SP), #377 
Rs8 


Ry 

RB,RE 

Ry 

RO 
BEXP(§P), RO 
Re 


SIGNCSP) 
4 
R 


RLyRS 

RO, RESULT (SP) 
RE RESULT OR (SPY 
R2,RESULTOS(SP) 
AD, RESUL THO (SP) 
946,59" 
(SP}o, 85 
(SP)a,R4 
CSP)O,RS 
($P)e,R2 

CSP) eeRS 
C$P) 4, RO 

ase 


YOK 


409 


SOCIOL MACX12 


sOcoo4 = MACcX3 
1639 


yee. Z3eMARe73 tapse PAGE Sei 


RANSOT 


ovasay 
UNOS8I 
M5488] 


MLSOt 


MSAS8y 


LP?sel 


RUPse4 
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POINTs2 
BEXPad 
EEXPe6 
TYPEs12, 


SEcOt 
XCos9} 


xCisol 


CLES9I 


NNBS9} 


RQaK2 
RIAKS 
R4EN4 
ASeXS 
SP5X6 
PCSK7 


RANSS 
CEP), (SP 5 
C9P)%,208P) 
($P)e 

Pg 


eRRss 
RO, H19G314 
M5538 


PG RITSS 
BEXPSG42t9P) 
RO, o(3P) 
Ropar) 
RZ, 0( SP) 
R306 $P) 


PG, RITSS 
PC RITSS 
MSASO 


Ry 
Rg 
CSP) OyRQ 
Ri 


Ro 
CSP) ORY 
RO 
(SP) 0, RO 
P 


socoge 


cNos9 Y/ 0 


SECO, SFCO.SGCO,SNCO 


#42405,R0 


R4,0(SP) 
4(SP) R4 
RO,4¢SP) 
xCas? 
#42402,R8 
CHP OARS 
(SP) 0, R39, 
(SP) oyR2 
RS, 0 (SP) 
RB, e (SP) 
R 


3 
R4,e(§P) 
R4 


0(SP)) (SP) 
SESP)gQCSP) 
S(SP),Ro 

ot ,(RO)e 
RO LCSP) 


NODS9 Af ff 


socoo4 MaAcxia 


SOCQB4 = MACX14 


VO2S 9 2SeMARW7S «= 4.454 


MULS#I 


MLds9y 


OlVS9T 


Ovisoy 
Ovesst 


NOMS9} 
NOLS9} 


NODS9t 


PAGE Seas 


RL 8446514 
OvEs9 
agian ia 


aT 
CEXP(§P) 
$4, BEXP (SP) 


PE MS4S? 
PG MLS® 
Re 


NQOS9 
EGXP( SP) 
NQUS9 
TYPE(SP) 
FFTs? 
TYPE(S) 


€ 
epee inter? 


FEPECSP) 
a4,U(3P) 
EEXP(BP),0(SP) 


VO2L 23eMARo73S = 41154 


FreS9} 
FPES9} 


FFSS9} 


FFAaS$o} 


FFIS9! 


FFOS9} 


cCOrsoy 


EFES#) 


PAGE 3oi4 


CUR 
MOV 
aoo 
aod 
JSR 


P(SP) 
EEXP(SP),RS 
OCSP) RS 
PCSP) RS 
PG, RUQSI 
(SP) ,R5 
O¢SP),RS 
sick 


"589 
EBRPL SPD P1SP) 


a18,(R5)o 
a1, CAD) 
R5,4 (SP) 
FFIS9 


af8, CRS)e 
Fhas9 

L6SP).R5 
BtsP) ens 
RS 


RS,POJNT(SP) 
reese 

RS 

P(SP),RS 


LSP) ARS 
OC SP), RS 
RS 


RS, POLNT(SP) 
P( SP) YRS 
RS 

PG ISNS9 

PG, 06989 
P(SP),EEXPISP) 
ESP DERS 

TYPE ed SPD (aye 
EEXPCS 

EXPS9 


4/2 


wg ee 


qs 


socoes 


4806 
1895 


s0coge 


MACX4A1 


MACX11 


veer 


vo2s 


23eMARe73 


23eMARe73S 


12154 = PAGE S015 


EXPS9} 
EXx¢s9} 
EX3S94 


Ex2s94 
ONES94 


M354S9} 


M4589) 


MSZSO4 


MS2S9} 


44154 = PAGE 3046 


MLBS9] 
MO¢S91 


ERRS9} 


STSS9} 


RUOSOY 


ROPS9} 


Re 

Bley (KS)O 
Exis9 

at ,(R3)e 
016, 0Rs 
#40, ,R4 


8,,5° 
CSP) ORS 
CSP) OgRe 
6SP) 0, 6(SP) 
CSP) 61 O0SP) 
CSP) Or (SP)o 
CFP )e 

°¢ 

RL, esr) 
RZ, 069?) 
RS, 0(9P) 
R4, 069") 
PG RITS? 
PG RITS9 
a4 


RS 
Rg 


R 

4 ey 
R 

Ry 
t. R3 
(S$P)* 
a 
RY 

na 
($P)0)R2 
RE 


ne 
CSP) O,RY 
RO 


6(SP),R4 


RY 
td 


Ry 
4¢SP) RS 
Re 


(9996 
S(SP) ARS 
(SP) ,R4 
TYPECSP) 
stss9 
94a,n4 


' 
ata, (uSye 


RS, GEXPeO%2 (SP) 
RUSSO 


RYAs9 
RO, eC SP) 
RL e3P) 
RZ ge (8) 
R3,0( HP) 
RO, e(¥P) 
#{00080,Ry 
R2 


ne 
OENPevezera, (SP) 
Roose 


PC Manso 
reinntee 


4/S 


socoes MACKi3 


sOcog¢ MACXis 


YO22 - 2SeMARG7S «= LA454 = PAGE Jud7 


ROOS9, 


RV2S94 
Ryiso 
RUSS9E 
TSNS9} 


TSRS9 
spes9y 


OGSs9} 


OG{s9} 


0G2s94 
OG3S94 


usr POARSTS9 
JgRr PG RITS9 
ROFS9 


eR 

CLR Rg 

aoo (SP) 0,4 
aoe RS 

aoe Re 

age RY 

A00 (§$P)0,R3 
aoe RZ 

aoe Ry 

A00 CUP) Oy R2 
aoe a 

oo (SP) o,RY 
age Lt) 

aoo CSP) 0, RO 
cur #40, ,80 
BGT RySS9 

NC EEXPeg(SP) 
ars °¢ 

aod #5,R8 

aR RUgS9 

CMP. RS, S0f02(3P) 
8L0 sPcs? 

ROR 9e2(SP) 
acc TgRs9 
MOVB aa, ORS 
TNC ns 

RTs 9G 

ROR eR (SP) 
acs ERRSO 

INC RS 

cup R9,Se2(SP) 
840 ERRSD 

RTS mg 

ld #40,,K0 
act 0G389 

MOVE #14, (RIO 
sue 840, RO 
cup POINTO2(SP), RS 
ONE oG2s9 


MOVE «80, (HED 
CMP Lo2¢8h),R5 
BLOS =O as9 
400 #00,R0 
MOVE RO, (RBI 

R 


Jr PG yMS4S9 


oR Og4s 
Rvs Pg 
cue 

ROR RY 
ROR RZ 
ROR R3 


VO22 « 23eMAR©7S §=611154 = §=PAGE Sui8 


ROR R4 
RTs °¢ 
sENOC 
GOT 


GLY. 


SQCOR4 MACXI1 


SOLGOS MACX1a 


v6at 23eMARO7S 14154 PAGE 4 


= ’ 


OLaGse1 


OLeG! 
LOesiay 


sTUTLE 
vSFOF 
1GL084 


vo2. 23eMARS7S 1apse PAGE 404 


xXPosia} 


ERRSLB} h 


REGS181 


STKS18) 


STesiol 


UPSi01 


SCLS181 


OUPSi8} 


PL2Si01 


EX1Ss01 
8 


WORD 
1WORO 
WORD 
WORD 
WORD 
WORD 


RASTC SOURCE FILE #14 
SQLGGS 
cNOSie 
DLOR yuLod se sERR 


SPOLSH,SA0D, $580, SHLD, SOV, S10, SPOPR4 


rPY 

ore, 04SP) 
L06S18 

o(SP) 

RS, 0(SP) 
2¢R5)yR4 

96, RE 
9447572, 0(SP) 
BL7S72L,0(SP) 
9074087, 0(SP) 
#437604, 6(SP) 
46,,3? 
o(R6),0(SP) 
eGR4),e(SP) 
eC RG) pe(SPy 
(RG), 0 (SP) 


esp 
1¢SP),26,(9P) 
8208,4(SP) 
osp 


943572495, 0(9P) 

#032774, 0(SP) 

#882363, 0(SP) 

0049065,0(SP) 

14, (SP),¢(SP) 

44, (SP) ,0(SP) 

14, (5S) ,06SP) 

24, (SP) ,0(SP) 

Pt bead bo 

9031774,0(SP) 

8832305, 0(SP) : 
#049005, 048?) 4) a 
R4,SPOLSH 

3$80,yPS18, $406, 80V0 


OWPS42,0URS10 
SMO 


SPOPRS 

REaStO 

SMD ¢ SAD, SMO, SAND, SHLD, $AD0y SHLD, SADD 
SMO, S400, SML0, 5400, SHLD, SA00 


SE 840,510, PL 2819, SML0 
SAD0,ExIS30 


SM 0,GX1830 
024,,5P 
RS, SERR 
gnosae 


3 
WGONS3208, ,R4 
a7,R5 


sTcsie 
Ry,e(SP) 
RQ, eC SP) 
RL,e(9P) 
RO,e( HP) 
(RO), (SP) 
o(R4), (SP) 
ef Re) ye(SPy 
eG RG), eCSP) 
RS 

STKS12 
OXPOS30,R4 
e{Raye 

($7) 6,22, 687) 
($P) 0,22, 08P) 
(SP) 0,22, (8P) 
¢9P)9,22,(8P) 
o(Raye 

o(SP) 
42',(37),eSP 
#209,9SP 
e(Raye 

(SP), eCSP) 
6(8P),0(SP) 
6(SP),0(SR) 
O{SP),0( SP) 
arrays 
#447572, 0(9P) 
#A7S7ZL 206 SP) 
8874027, 0¢9P) 
9869004,0¢(SP) 
OCRaye 


14, (87) 

ugtsse 4/7 
s024402, 0/37) 

9424407, 0(9P) 

6055730, «($P) 


SOLGas 


SOLGOS 


2439 
2140 


MACX12 YO2L 23eMARC7S 14134 PACE 402 
MOV 0037736,0(8P) 
Pld OcRaje 
LGfSiay MOV ($P)e, Ro 
MOY COP eRe 
MOV CSP )O,R2 
MOV (SP) O,RS 
. EROSS8) MOV CEP) ORS 
Ts? CSP)e 
ays RS 
2ENOG 
vJPOF Fey 
OLoGse1 MOV orc, Re 
BR 406810 
OLOG! = CLR Ra 
LOosia1 SETO 
scrl 
MOV SECOSL0, Re 
400 O2(R5),F2 
crcc 
BLE ERRSiB 
STEXP =F2,RY 
LOCTO mars 
MULD CREDO WLS 
QOEXP «a8, F2 
400 Fert 
syso (RB) 2 
aoo0o (ROO PS 
DIVO FU,F2 
400 ate 
MULO Fars 
MOV 99, R4 
400 (ROO FO 
XPOSi81 MULO FLFe 
ogc ry 
aooo 6RO)O FO 
aGT xPOS20 
MULO F2,Fo 
agoo CRB) O FO 
A000 F3,Fo 
TS? Ra 
BEO LGTsio 
MULD (RO), Fe 
LG?sse) STO FB ,0($P) 
MOV C9P) 0 ,R8 
MOV (SPO, Ry 
MOV (SP) 4, R2 
MOV (SP) Op RS 
avs aS 
ERRSLB1 VSR R9,SERR 
RTS RS 
BYTE 4 
BYTE 63 
FCOSL6} ,WORD 6846063,073027 
sWORD = 4.73724,147572 
sWORD 940965, 282563 
MACX22 -VO2i 0 2SeMARW73S «41134 9 PAGE 403 
WORD =. 34774,,457045 
sENOC 
:WORD =. 83 7459,106270 
sWORD = 187266,374770 
WORD = BS747E,B72I93¢ 
WORD = 497740,417015 
WORD = S7545,4139053 
»WORD = 8 904.03,,135465 
WORD 997622 ,044436 
sWORD = BOP 3HQ, 263062 
WORD = BS7ILGG, 146914 
WORD = 453450,165778 
sWORD = 848954,425252 
sWORD = 425247,804643 
CONSS0) ,WORD 240408, 800000 
sWORD =©889808,080957 
s1FOF = FRY 
«WORD = 4.9 7663,,073027 
sWORO = -173722,447572 
WORD = BSI739,855730 
sWORD = 84467,024462 
sENOC 
sBNOE 
‘TITLE SONTOS 
s170F = CNOS34 
sGe0BL SOINT 
RoOKO 
RLEXS 
R2eK2 
AZaXxS 
Raake 
ROGKS 
SP8K6 
MQaL77S06 
ASHOS77349 
Foexo 
Fuaxy 
IFOP =o rpy 
SOINTI ,WORO 470023 
sWORD = 472626 
WORD 47446754 
WORD = 474249 
ume @(Raye 
»WORD 840208,8,8,8 
sENOC 
sJPNOF FRU 
SOINT! MOV C$P)O,R9 
MOV (SP) OyRe 
MOV CSP) Oy RZ 
MOV GP) RS 
MOV R4,0( $F) 
“OV RD, 0($P) 
MOV ROARS 
AOL Rq 
cLRe Ra 


42/ 


SONTO2 MACX12 


2194 
2395 


SONTR2 
2249 


MACX41 


vo2a 


Vo2s 


23eMARe7S 


23eMARC7S 


11154 PAGE 404 


C2ssiay 


8 
SHPS4i1 


ml 
RRGSiL1 
R 


aSisaat 


RORSLLE 


ASUS4ii) 


Regsiay 


11154 = PAGE 405 


Azssiat 


R23Si41 MOV 


ONESSit M 
LJ 


sort 


SOR} 


OR{S22) 
Ls] 


OVRSL21 


EACQMYLDIV 
A4,R9 
#032, ,R4 


EAE 
aM, RD 
MYLOIVIEAE 


AG, O0ASH 
na 
RG, NASH 


(RE) O, RB 
ORS, RY 


C23844 
MVLOTY 
8732064 


rr] 
973206 


EAE 

RS, ORD 
RQ, 0(KS) 
RO, O8ASH 
nq 


RG OWASH 
(R35) o4R2 
ORS, RS 


(SP) ORS 
CSP)O Re 
RS, 0($P) 
RB, 0( SP) 
RE, eh) 
RB, 0($P) 
OCRE)e 


SORO2 
CNOSL2 
SOR, SERR 


rPU 

472004 
477429 
170000 
Ovess2 
174040 
OCRa)e 


CHP) Oe 20 SP) 
C$P) 4, 2(8P) 
OCRaye 

($P) 0, (SP)o 
(SPO, (SP)Q 


4.23 
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2304 ovisa2} ysr R5,SEKR 
2305 BR OR2332 
2306 sBYTE 3 
2307 :BYTE «23, 
2306 OR2$421 CLR 0(SP) 
23209 OLR e(SP) 
2348 : Pld Oi Raye 
2343 +ENOC 
2312 sTITLE SOSNG4 
2313 sSPOF © CNOSa9 
3335 G08, OSsN,OCOS 

‘ & NeQCO 
2316 NPNOF reg 
2347 sGLOBL SADD, SSB0sSMLD,SOVO,SOINT, SPOLSH, SPOPRE 
2318 rENOC 
2339 : RBOKD 
2320 RYO 
2323 RQO82 
2322 RIERS 
2325 R4aKs 
2324 R5EXS 
2325 SPEX6 
2326 PCaNx7 
2327 FOsKo 
2320 vyexs 
2329 F2aK2 
2338 F3eKS 
2333 vTPNOF FRY 
2332 oces! MoV RS, 0( $F) 
2333 MOV 2¢R5)yR4 
2334 CLR o($P) 
2335 MOV GGR4)peCSP) 
2336 : MOV 4(R4),0(SP) 
2337 MOV 2( RG) ga(SP) 
2338 MOV OR4,06SP) 
2339 MOV 9064302,0(8P) 
2340 MOV 8222044,0(SP) 
2343 MOV 8067752,0(SP) 
2342 MoV #O403522,0¢SP) 
2343 vr R4,5P0LSH 
2344 sWORD = $AD0, SNC S23 
2345 OS{Nt MOV RS, e( SP) 
2346 “OV 24R5)gRE 
2347 CLR (SP) 
2348 MOV O(R4)ge(SP) 
2349 Mov 40R4) g0(SP) 
2350 Mov 20R4) pe(SP) 
2353 MOV OR4,0(5P) 
2352 SNES434 ASL, osp 
2353 ROR 6, (SP) 
2354 ROR esp 
2355 MOV #064302,0(SP) 
2356 MOV 8421044,0(SP) Ya 
2357 MOV 8807752,<(SP) 


2358 MOV #240744, 068P) 
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2359 usr R4,SPOLSH 
2360 ;WORD = SOVO 

2363 sWORD = OVPSi 

2362 +WORD = SQINT 

2363 +WORD ©$S80 

2366 »WORD = -X4833 

2365 »WORD = OVP S49 

2366 »WORD = SOINT 

2367 sWORD =. QUOSLy 

2368 :WORD $ 

2369 WORD = QS TS19 

2370 QSES431 ,WORD OUPS4y 

2374 :WORD = DUPSSS 7 
2372 :WORD = SMLO 

2373 sWORO = SPOPRG 

2374 sWORO) | PLYS3 

2375 XPDS33) WORD © $M, 5400) $MLD,SA00, SMLD, SADD, SMLO, $A0D 
2376 WORD = SML0, 5400, SML0,SA00, MLD, SA00, SMLD,SA00 
2377 sWORD = $MLO 

2378 PR4S131 ,WORD SPOPRA 

2379 sWORD = -RTINSLY 

2389 RINSSS) TST CSP)e 

2384 ace RTAsiy 

2382 a00 #300000,Rq 
2383 RT{S43) MOV (9P)O, RS 
2384 Rvs as 

2385 OUPSA31 MOV 6(SP),0CSPy 
2386 MOV 6(SP),0(SPY 
2387 MOV 6(9P),0(SP) 
2388 MOV CSP) ge(SP) 
2389 JHP OCRa)e 

2398 x4131 TST opp 

259% geo BERSLy 

2392 INCB 48h) 

2393 ump O(Raye 

a3ve ZERSA31 MOV aPRABSS RG 
2395 MP o(Raye 

2396 Quosss) BIS O5P,10, (SP) 
2397 uMP o(Raye 

2398 as?sy34 7S78 8, CSP 

2399 Bea 043543 

2408 ago 9400080, eSP 
2404 CLR o(SP) 

2482 CLR e(SP) 

2403 CLR =(SP) 

2404 MoV 948208, 0(SP) 
2405 gr R4,SPO,SH 
2406 WORD = SADD, GSASLS 
2407 QSAS43) MOV SQSESES,R4 
ius mans gee nt 

2419 ao0 s{eadee, esr GIS 
2412 QUPSES) JMP puree 

2412 PLYSS3) MOV #GONSAS08, ,R4 
2443 MOV 09 RS 


SOSNO4 


SOSNO4 


2469 
2478 
24674 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
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Pyasast 
mi 


m 
PY{sa3) 
4 


ocess 


OSING 


SNesisy 
a“ 


POssi31 
Ll 


Q13si3) 


N 
O428i31 
LU) 


xPOS33) 
t] 


RIWSA3) 
M 
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Py2sss) 
rcasis} 


CONSA3I 


OS@RTI 


mov 
MoV 

MoV 

RTS 

1WORO 
WORD 
»WORD 
WORD 
sENOC 
WORD 
{WORD 


WORD - 


WORD 
WORD 
:WORD 


PYESy 
RJ, 0( SP) 
RZ, aC §P) 

RL acer) 
RO, a SP) 
@(RG),eCSP) 
(RE) 0 (SP) 
(MG), eCSPY 
(RG) ,e(SP) 
RS 


PY2s3y 
OXPOSAS RG 
OcRaje 


PY 


2(A5),Fe 
PLasiy.Fe 
SNCS3§ 


o2(R5), FO 
aFCOsys, RO 
na 


Poss 
R4q 7 


ro 
(RB) O Fo 
#4,0,£8 


RINELS 
4,0,F8 
Puaks 


ry 
Gassi3 
ro 


(RB) Og rd 
xpossy 
rye 


Ra 
RINssy 
ve 

70, 0(§P) 
CHP), RG 


COP) ORE 
CSP) 4 RE 
(9P) 6 )R3 
RS 


640344, 007932 
124044 ,864992 
848732, 007932 
281044,064392 


026710,106783 
945277 ,146362 
490467 ,139273 
103856,123153 
832464,074657 
847254,154742 
153564,104646 
297220,254026 
895950, 036032 
044224,405131 
436234,064546 
874629,425024 
937243,032948 
935655,8535957 
140949,0509747 
0$0459,174222 
846314,907732 
189044,064802 


sQsqey 
GNDS34 


OSQRT, SERR 
rey 
$ADD, SOVD, SPOLSH 


rey 

RD, (SP) 
2¢R5)y RS 
ORS, RY 
ERRSLS 
aERSLA 
2(R5))R2 
#4, 0(3P) 
Rt 


427 


sOSQeS MACXid 


a 


SQSQ@S MACXi2 


vees 


voes 


23eMARD7S 


23aMARe73 
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LUPSi¢) 


uPusa¢) § 


ourss4) 


RINSS4} 
ERRSS4) 


zEnsa4y ¢ 
ci 


OS@RT} 
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LUPSA44 


R 
ERRS44} 
R 


zERsa4y ¢ 
¢ 


OATAN2} 


020408,R2 
=¢3P) 

©{8P) 
RZ, eC SP) 
RE, eC $P) 
(SP) 

0{SP) 

2495), 0(SP) 
ORS, 0(8P) 
ofaP) 

o(SP) 
RG, e( SP) 
RL,0t FP) 

RG, 5P0L,SH 
$QVO,SA00,UPLSL4 
0206,05P 
8,¢3P) 

OUrss4 
O(RS),0¢SP) 
4( RS) pa CSP) 
2(A5),0(8P) 
ORS, 0(5P) 

24, 0SP),0¢8P) 
1637), 0¢SP) 
(SP), 0(SP) 
($8) s0(SP) 


3 

‘ 

a 

ld 
Pyaogh 
Pore 
ld 

P 

? 

P 


Dannn nn eee 
2 OOO CANE OO BD 
~ 


rey 
2URS) RE 
OR4, RY 
ERRSS4 
EGRSi4 
25R4) RA 
Ry 


Re 
#20408,A1 
o(SP) 
o(SP) 


RQ, e(SP) 
Roser) 
#4,R8 


CHP) 4178 
OR4 FZ 


CSP) ORO 
CHP) Rd 
CSP) O RZ 
(SP) OgRS 
RS 


SOTNES 
CNOSSS 


DATAN, OATAN2 
rey 


SAD0, $580, SML0,SDVD, SPOLSH, SPOPR4 


Fry 

R$, 0(3P) 
o(SP) 
o(3P) 
o(SP) 


YAS 


4Aq 


ed 
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2634 CUR o(sp) 
2635 CUR o§9P) 
2636 CLR o¢9P) 
2637 CUR =(9P) 
2638 CLR o( SP) 
2639 CUR o{SP) 
2049 MOV ZGR5) ARE 
2043 MOV 6(R4),eCSR) 
2642 MOV 4(R4) 06 SP) 
2043 : MOV 2(R4),0(SP) 
2046 MOV ORG, 0(SP) 
2645 MOV idl 
2646 MOV OER) RE 
2067 MOV eee dl 
2648 MOV 4(R4G)0(SP) 
2049 MoV 2¢R4),0(SP) 
2659 MOV OR4,0(3P) 
2653 MOV GP Ry 
2652 8Ea INPS19 
2633 aS, R 
2654 CLAS RO 
2655 swAs RD 
2656 St, Ry 
2057 CLRB ORY 
2058 swaaRk 
2059 sys RL,RO 
2008 cup 0568,,K8 
2664 OUT INPSE9 
2662 OlvS15) USR R4, SPOLSH 
2063 :WORD SO0VO,YPLS35 
2664 : UPLS45) TS? | 
2065 OGE 
246 MoV theest 43'3%) (SP) 
266 MOV 00077 Hi 2 (SP) 
2068 mQV #421063, 204 (87) 
2669 MOV 9964364, 22, (SP) 
2673 TS 03(R5) 
207% OGe aTES39 
2672 apo a460000,16, (SP) 
2673 ATESA5 TST esp 
2674 or atasao 
2675 INPS434 400 #36..9° 
2676 MOV 6040334,R0 
2677 MOV 8007732,93 
2978 MoV 6422844,R2 
2079 MOV 0064304,R5 
2688 rs? thts 
2084 8Ge NRSS 
2682 400 sieneee, Ro 
2983 INRSL3) RTS Lid 
zeus DAPANE a at Hs 
2668: °. 
2686 CLR o(8P) 43 ra) 
2087 CLR o49P) 
2688 CLR o¢SP) 
SOTNOS MACXS2 VOZL 23eMARO7S 112136 PAGE 4043 

2689 CLR eqsr) 
2699 cur e(SP) 
2693 cur (SP) 
2692 CLR ©(8P) 
2693 CUR (SP) 
2694 MOV 20R5),R4 
2695 MOV 6(R4),0CSP) 
2996 MoV (RG), eCSP) 
2697 HOV 2024), 0¢SP) 
2696 MOV 084,037) 
2699 ATISL54 BGC PLUSIS 
2708 oo see eg esp 
i ie 

PLUSIS) CMP 
5305 USES} ee 
2706 eGr 
2705 TS? 
2706 BNC 
2787 TST 
2708 BNE 
aoe Ts? 
2710 ota Essa 
2714 GYis15) MOV 9440333.8, (SP) 
2712 MOV 80077921105 (SP) ° 
2713 MoV #422064,125 (SP) 
2714 MOV 9064304,14', (SP) 
2735 ogc 24,687) 
2716 MOV 6(9P),0( SP) 
2737 mov GSP) yp a(SPy 
2718 MOV OhSP) acsPy 
2719 mov 6(8P),0(SP5 
2728 MoV 840200,8, (8) 
2724 CLR 495637) 
2728 CUR 43, (88) 
2723 CLR 14, (88) 
2724 f] R4,3POL5H 
2725 sWORD = SOV bS3945 
2726 LEdss51 MoV 8¢SP),0(SP) 
2727 MoV 6(8P),0(SPy 
2728 MoV 6(8P),0(SP) 
2729 MOV 6(8P),0¢SP) 
2730 CLR 8, (37) 
2733 CUR $0, (57) 
2732 CLR 12, (87) 
2733 CUR 44, (87) 
2734 CMP O3P ,803763¢ 
2735 BLO Lassa 
2736 BH TNOS49 
2737 cup Z59P),eeseeqe 
2738 BHI TNSSL9 
Ha Bo Ga a2 

4(SP) #472966 

2743 ant TNESLS 43 / 
2742 a0 4a9sa5 
2743 cup 649"), 9069261 


uty 


SQOTNOS 


SOTNOS 


2799 
2800 


MACKi2 


MACKA1 


voas 


Veet 


23eMARG7S 


23eMARe7S 
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9 
TNSS151 MOV 
Ld 


Lagsas) hov 


XPOSSS} ,HORD 


s WORD 
EXtsa5y TST 


2454 PAGE 4043 


uPsast HOV 
Mi! 
J 
PLYSL5) MOV 
Mi 
BR 
PY2sisi MOV 
Ll 


M 
PY{S15) may 


SGNS15] ne 
A 
SGiS251 UMP 


DAAN2I icro 


aiPs45) 400 
ij 


CUR 
A@mSa5} OVO 

BR 
INPS45) L00 


Lasser . 
8949096,8, (SP) 
#005223 ,19) (SP) 
#440599, 12', (SP) 
9445496,145, (SP) 
esr, ry 

2¢8P),R4 
469R),R2 

6¢ER) AAS 
8062524, 0(9P) 
8844502, 0(S9P) 
#494737 ,06SP) 
0349355, 6(5P) 


@(8P) 

940200, 0¢3P) 
#062586 ,0( 87) 
80443502,0697) 
W2SL727,06SP) 
#845335, 0(9P) 
RY, 0(§P) 
RS, eC $P) 
Rages?) 

RE, 0(8P) 
R4,SPOLSH 


2¢SP) Re 
4(SP),R2 
(SP) ,RS 
RY, 063") 
RZ, eC gP) 
Ro,0(9P) 
RB, 0(3P) 
RZ, 0(§P) 


RO, oC §P) 
bien 


SMLO 

SPOPRG, PLYS35 
SMU,0,5A00,SML0,SA08,SM,0,$A00 
SM1,098A00,SML0,SA00,SML0,SA00 
SMUD, 8A00,SML0, S400, 8ML0,$A00 
460 


340) 
SGNS39 
3400 
SPOPRG 


exis8 
CgPye 


C§P) OURS 
RS 


4) 
#GONS2506,,R4 
89 RS 

PYESi9 
R3,0(§P) 

AZ, 0t$P) 

Ras etGP) 

AB yet SP) 
#(R4),9(SP) 
o(R4),0( SP) 
04) ,0(SP} 
o(R4),0(SP) 

Lt 


ress 
aXP0S35,R4 
o(Raye 
49,68") 
$G4535 
a400080,0SP 
e(Raye 

rey 


Z2ER9d ARS 


ORS, Fo” 
AaPsey 
if 

One Fe 
AgMsys 
ry 
rare 


aTssa9 
P12349,7% 


$ 
SHLD, $$80, UPS35, S980, S0V0,L 49845 
0g, RO 


733 


4> 


ee 
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OAPANY 


ardsa5} 


PLUSSSI 


GTisa5) 


LEESs5} 


Lassa5y 


xPOS43) 


SGfS15) 
Ex}s254 


vo2s 23eMARe73 41154 PAGE 4017 


PIsist 

P2135) 
7458451 
Plesi5) 
RT3S451 


FCasi51 


‘ 
CONSS31 


+ WORD 
+ WORD 
:WORD 
+ WORD 


ors 
exter 


eXtsay 

F 

oetnsy re 
ne 


Fars 
PLUS: 

rau ay 

Rq 
82,0008 
rors 
LEasa9 

nq 

rears 
otiss 
Pl2si5 Fs 
eta) 

ry 
Ta5s30,78 


449845 
PLOSL9,FS 
ro,Fs 
RT3649,°0 
64,0,°8 


aFcosas, Re 


03), RY 
CRB) ey FS / 
rors 
Ry 

CRO) OOF 


CEP) OARS 
COP) OAR 
CEP) OARS 
Rs 


940534,007932 
22104%,064509 
940314 ,007932 


049000,005221 
440553,115454 
846339 ,134727 
944302, 0625924 


897065 ,450707 
£92309,163030 
137284, 143233 
8894040, 000413 
837235 ,043802 
8272594,142446 
197272,025671 
126412 ,065630 
837343, 1079047 
023625, 025404 
137422, 044444 
O74339,116¢52 
037534,140314 


8409208 ,009000 
388008, on08gn 


73S 


SOTNDS 
2944 
2942 


2943 
2946 


sovoos 
2996 
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TITLE 
viPor 
2GL08L 
AGSXO 
RUext 
R2E%2 


sovol 


a 
sOvol MoV 
La 
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OGHS361 MOV 
UNOSS6) MOV 
ECLSi6) TST 


EC{Si6) JSR 
ZERSL6} CMP 


OLWSi64 ROR 


OWES26) MOV 


BASIC SOURCE FILE #32 
sovos9 
CNOSSO 
SOVO, SERRA 


FRU 
R4,0($P) 
R9,0(3P) 
RO 


o(SP) 
NeBe2(SP) 
esp 

o(8P) 
O¢SP) 


OGHSL9 
NOL(SP),@SP 
aERSi6 
N(SP)_RO 

no 


RO 
_ NOS(SP) RO 


NOACSP) IRE 


Ry 
NOSCSP) ARE 
NO4(8P) RZ 
R 


2 
NO7(SP) RZ 
NO6(SP) RS 
Ry 
O(SP) 
2¢3P) 


ae 
004 (SP), RE 
R4,0SP 
O¢sP) 


O(SP) 
063(8P),0(8P) 
062(3P) ,003(SP) 
005(SP),002(SP) 
0e6( SP) ,005(SP) 
067(SP),004(SP) 
006(8P),D67(SP) 


OWWS29 
OnTSL9 
R2,0¢8(SP) 


C1816 
£4605,R0 
0(8P) 

RS, SERRA 
($P) 0) (SP) 
9o604( SP) 
Qeged(SP) 
Qe4044SP) 
Gegee( SP) 
RINSLO 

ae 


FoR? 
9G, 0VES46 
R4,Q¢9P) 
Ltd 
FLasag 
826, KS 
PG, OVESI6 


436 


— 


437 


yc 


SOVOB5 MACXA2 


MACXI2 


vozs 


veat 


23eMARG7S 


23eMARe7S 
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FLISL64 
FLISL61 


SGNS16) 


RINSLON 


ovisi6) 
OVRSL64 


Ovisi6) 


41154 PAGE S05 


GOS161 


NGOS164 


NQOS%6} 


£02816} 
£Q¢$16) 


RYSS261 


sOvit 


Pasi7} 


P2s471 


OlvSa7t 


sve 
sec 


1 
»GL08L 
RQEKO 
RAexe 
R28K2 
R3OKS 
RqEK4 
RSeRS 
SPSX6 


R4,003(SP) 
RS 


RO, Q04 (SP) 
RS 


FLSSLO 
836, ,R5 
PC, OVESL6 
FLISS® 
Ra 
(5P)o,a5 
O2G5,R5 
UNOS26 
0377, 85 


OVRSLO 
RD, Q4g02¢SP) 
(SP) 


Gosi6 
06062(SP),RO 
NGOSS9 

eos 


a6 
0¢262(97),R4 
NGOSS 


60836 
00402 (9P 9,82 
NGOSS6 
GOss6 
0%602(SP) RS 


NGOSL6 
NGOS16 


p%6e2(SP) R35 
Re 
Ry 


Ro 
DeqeagSP) Re 
RL 


Re 
DO202(SP) RL 
Re 
0eee2 (8) ,AD 
R4 


sOvjes 
CNOS$%7 
SOVY,SERR 


84 
EAGGMULOTY 
Re 


CSP) OARS 


#6, ,R4 


435 


sOvios 


3263 
3162 
3463 
3264 
3465 
3466 
3467 
3368 
3469 
3470 
3473 
3472 
3473 
3474 
3475 
3379 
3477 
3478 
3479 
3480 
3283 
3282 
3383 
3484 
3385 
3486 
3487 
3488 
3389 
3390 
3292 
3192 
3393 
3494 
3495 
3396 
3497 
3198 
3299 
3208 
3224 
see2 
3203 
3204 
3205 
32286 
3297 
3208 
3209 
3218 


SOVROS 


3216 
3217 
3218 
3219 
3220 
3222 
3222 
3225 
3224 
3225 
3226 
3227 
3228 
3229 
3238 
3231 
3232 
3233 
3234 
3235 
3Z36 
3237 
3238 
3239 
3240 
3244 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3256 
3254 
S252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3268 
3261 
3262 
3263 


3264: 


3265 
3266 
3267 
3268 
3269 
3270 


MACXA4 


MACKXL2 


881234! 
OB1256° 
3e1240! 
004242! 
01244! 
801246! 
381252! 
081254" 
301256! 
981262! 
201264! 
881270° 
881272! 
@81276! 
881390! 
801302 
BO13048 
3813108 
881314! 
8O1316! 
281320° 
881322 
881326! 
BB1332! 
BOL3356! 
801340! 
881342! 
861546! 
861350° 
B81352° 
0813554! 
981360! 
381364! 


VO2s 


TIT) 
080004 
180908 
oeao03 
aeage4 
agegas 
080006 
090007 
177304 


yoat 


177312 
179344 
177346 
200088 
080084 
200030 
280814 
O00814 


210446 
018546 
895000 
995893 
389846 
386366 
286116 
189846 
883766 
884456 
156616 
pies, 
156608 
280320 
785261 
786098 
156606 
156684 
308304 
885902 
395003 
286366 
203566 
156682 
1609216 
205082 
156602 
208382 
AOG264 
886902 
156622 
156693 
200393 


23aMARC7S 


23eMARe73 


80ee12 


909010 
200815 
opo0s4 


800047 
888016 


200010 
eoagc2 
280033 


980810 


800845 
880812 


11154 PAGE Sed 


LUPSi71 


P3si7t 
ZERSS74 


sovil 


sOvel 


CHKSS71 


Bea LWPss7 
INC ny 

sus Rash? 
BHtS = LWP Sa7 
A00 make 


ogee 

ogc R4q 

BGT olvss7 
MOV (SP) 0, R4 
NEG Ry 

aSR Re 

acs P3sy7 

NEG Ry 

avs CHKS47 
MOV RJ, eSP 
ume @CR4ye 
CLR ogr 

Jur (Raye 
sENOC 

tor EAE 

MOV ena, Re 
MoV ($P 0, R3 
seo CHKS$7 
mov (SP)o,0R0 
18? of RO) 

Mov RE, e(KB) 
CMP (ROO, (RBQS 
MOV ORG, 0 (SP) 
MP OCRaye 
sONOC 


sJFOF = MULOLY 
MOV 2(3P I, R4 
sWORD = -BB4728 
sWORD = B7L026 


MOV RO, 0SP 
acs CHKS37 
une e(Raye 
vGNOC 

gr RS, SEAR 
JMr ocRaye 
iayTe = 3 

;BYTE |S 

sENOC 


sTITLE sQvReg 
sIFOF = =©6GNOSS9 
1GhO8, SQVR»SERRA 
Roaxe 

Ris%t 

R29K2 

R3aXx3 

R4EK6 

ASaXS 

SPax6 

PCaX7 
MQe477304 


12154 «PAGE 505 


sOvRt 


SOVRI 


NORGL 77312 
LSNes77344 
ASHO477346 
Foexe 

Fiexs 

Os8, 

Neda, 

Qet2, 

vlror Fry 
sWORD = 4 78004 
,WORD «1.72520 
yWORD §=492420 
WORD = 4.74484 
WORD 474840 


une O(Raye 
,ENOC 

VIPNOF FRU 

MOV R4,0($P) 
MOV R5,0(9P) 
cur ot] 

cur Rt 

CLR e(SP) 
ASL NeGe2¢9P) 
ROL ogr 

CLR o(8P) 
Ys’ O¢sP) 


Bea OGHsis 
arses NO4(5F),0SP 
aga 2ERS15 
8{3B = N(SP),RO 
RB 


ROR Re 
B{SB  —-N@S(8P),RO 
B]SB «= N@BCSP), RE 


SWAG RE 

CLR Re 

CLR RS 

ASL O(sP) 
aoe 2¢8P) 
81SB 004( Sh), R2 
sus RZ, 08P 
CLR Re 

arse OL SP) ,R2 
swas Re 

sec 

ROR Re 


8188-988 9P 1, RZ 
61388 pea caer ses 


r] 
SIFOF «© EAESMYLOLY 


che 
ROR no 
ROR ir 


ROR Rn? 


40 


44 | 


-—-- 


feat 


sQvReS 


3273 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3283 
3282 
$283 
3284 
3285 
3286 
3287 
3288 
3289 
3298 
yooa 
3292 
3293 
3296 
3295 
3296 
3297 
3298 
3299 
3320 
3302 
3302 
3383 
3304 
3325 
3326 
3307 
3308 
3309 
3319 
3312 
3312 
3343 
3314 
3315 
3316 
3317 
3318 
3319 
3329 
3323 
3322 
3323 
3324 
3325 


SOVROS 


3326 
3327 
3328 
3329 
3330 
3334 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3344 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3354 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3368 
3364 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3378 
3374 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3388 


MACX142 


881366! 
091379! 


004372! 
903374! 
801376! 
oei4eg! 
oo14e2! 
091406! 
aoseig? 
801412! 


oei4i4! 
001416! 
ag442e¢ 
994422! 
901426 
001430! 
9814324 
81436! 
001448! 
ae1esae 
801446! 
901452! 
081456! 
981462! 
gaisea! 
001466) 
981479" 


601472! 
62476! 
901502! 


081586! 
981510° 
884512! 
801514! 
881516! 
061522! 
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883526! 
884530! 
381534" 
881536! 
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981544 
083559! 
301552! 
881556! 
881560! 
881562! 
981566! 
9815726 


voas 


ozaaee 
103449 


101834 
620103 
184032 
001034 
095966 
805236 
805085 
000445 


822626 
800433 
895726 
232708 
890406 
299746 
822708 
990402 
912700 
983726 
884567 
895966 


886004 
385216 


042704 
804767 
110566 


885734 
881402 
995905 
090404 
#42704 
004767 
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912004 
362704 
383744 
922784 
892733 
126466 
386026 
286966 
286095 
295505 
805566 
910566 
183716 
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ogees4 


OB4005 


965005 
094405 


992576 
900018 
980012 


880013 
880204 
aeees¢ 


990029 
808960 
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ZERS18) 
ocwss8} 
oviss6) 
OvVRsi6} 


UNOSS8} 
ecusse} 


Eciss8i 


OLwsi84 


On{si8} 


NTOSL81 


OWISaBt 


ROR 
sENOC 
CMP 
a0 
a }PNOF 
BH! 
cur 
BHI 


Rg 

AO, RZ 
OMtS¢8 
CARRMULOLY 


EAE {MULOTY 
OLWSa8 


CSP), (SP)e 
Coase 
C3P)¢ 
s4005,R0 


CBP ype 

R5, SERRA 
Qe6e4{SP) 
Ge2e4{SP) 
RINSSS 

no 

RY 

osr 
EALSMYLOLY 
a9 R4 
PC, OVaSi8 
R5,Q¢3P) 


aq 
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nye 
FLTSSY 
946, ,K4 
PG, 0V3S28 
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RY 
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ogee. 
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NB? S481 


NB{Si8) 


FLISia4 


SGNS481 


MOV 
MoV 
1s? 
MOV 
MoV 
MOV 
YS? 
ASR 
sua 
occ 
MOV 
cop 
NEG 
MOV 
ago 


RO, e( NS) 
RZ, 0 (KS) 
(RS)e 
(RO) OgRY 
(R39) OyR4 
RS, ORS 
e(A5) 

R 


ry 

Rage RS) 
@8ASH 

RB, e(KS) 
CRI) OP (REDS 
ORS 

02, O8ASH 
RO, 0( KS) 
esNOR 
OsNOR, SP 
#06, 08,34 
(R35) 0, 00SP) 
ORS, RS 


MULOTY 


RUR4 
873427, 04 
a74402 

R4 
873427, 014", 
RO, RE 
873427,3 
NB1Si8 
esp 
NOTSL8 
873427, 07 
RG, Q(SP) 


CGP) Oy R4 
8200,K4 
VNOSL9 
8377,R4 
OVRSLS 

RO, Qogud( Spr) 
(EP) 
06004(3P) 

RS 


Rg 

Qe004(SP) 
RS, Geg04( SP) 
ovass8 


Yuya 


443 


SQOVROS 


S384 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3393 
3392 
S393 
3396 
3395 
3396 
3397 
3398 
3399 
3400 
3403 
3402 
3403 
3404 
3409 
3406 
3497 
3408 
3409 
Sata 
3443 
3432 
3413 
3434 
3445 
3446 
3447 
3438 
3449 
3420 
3424 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3438 
3433 
3432 
3433 
3434 
3435 


SOXPO5 


3436 
3437 
3438 
3439 
yaag 
3444 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3aag 
3450 
3454 
3452 
3453 
3454 
3455 
3456 
3457 
34586 
3459 
3460 
3464 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3479 
3a7y 
3472 
3473 
3a7a 
3475 
3476 
3477 
3478 
3479 
3480 
3482 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3499 
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O81574 
081576! 
391600! 
981602! 
881604! 


881606! 
984619! 
881612! 
OB1614! 
881616! 
091620! 
681622! 
881624! 
091626! 
881630! 
804632 
881634 
081636! 
891640! 
881642! 
881644! 
081646! 
881659! 
901652! 
081654! 
091656! 
881669! 
081662! 
BB1664! 
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ve2s 


102715 
012683 
42606 
022626 
380334 


886305 
886304 
086328 
133406 
o2g2ae 
194019 
183403 
829301 
104995 
081407 
160382 
895628 
160298 
805205 
0053064 
883360 
900207 
295205 
000491 
886305 
005324 
883375 
8285204 
990207 


pr re 


Vo2s 


23eMARG73 


235eMARe73 
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Ovisial 


Gos.6) 
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cQ2sie) 
Eoisial 


RTSSi84 
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mQV 
MoV 
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POssi9) 
SMPSL91 


ONESA91 
OVRSS94 


ZERS19) 
ECLSL9) 


219291 


UPLSA94 


Ovisse 

CHP) ORS 
(9P)0,R6 
C3P) oy (SPIO 
OCRaye 
EACOMULOTY 
HF Wu 


soxeas 
cNOss9 
DEXP, SERRA 
re 


P\) 
SADD, SSBDs SHLD, SOVO, S10, 50%, SPOLSH, SPOPRE 


rPuU 
O2( RS) RO 


rey 
Rd, 0(5P) 


2(R5),R4 
ona, RO 


possiy 

RO, #249062 
ZERS LY 
SMTSL9 

RO, #44660 
OVREGY 

RO 

RB, 863008 
ONESSY 

rey 

020,37 

#8, Re 

of RG), 0 (SP) 
o(R4) 4 a(SP) 
o(R4),e(SP) 
(RG) aCSPy 
#0259704,¢(9P) 
#024534, 0(SP) 
#225075, 0(SP) 
#40270, 0(3") 
Ra, SPO,SH 
SMO 


$ 
$980,916539 
OUPS2¥,0UPS19 


#46200,R0 
24849 
84204,R8 
EGLSLY 
#2005,R8 
A5, SERRA 
no 


oursay 

0033343, 0497) 
8845545, 0(SP) 
8452405, 0(SP) 
9849766, 0¢9P) 
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3494 
3492 
3493 
3494 
3495 
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yo2s 
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SCLSa9 
ASREL9I 


NMLSE99 BE! 


scisa9 


ovtsao} 


aQusamt 7 


ARNSL9} 
M26339) 
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026839) 


OORSL94 
OSvSa9} 


AUPSA91 


ABPS49} 


OUPSS94 


TWESS9 
Twisa9 


RT2SA94 


0 
M16S494 
s 


RF, 0(¥P) 

RZ, 0($P) 

RA, 0C3P) 
RO, 0( $F) 
8453703, ¢(SP) 
SUIOAL, © (SP) 
BL43306,0(8P) 
#BS7154,0(3P) 
RS, 0(9P) 

RB, 0(3P) 
Ra,e( SP) 
RB, 0( 3") 
9471062,0(97P) 
eerteta tise! 
0392292, 0(SP) 
8044246,0(SP) 
RG, SPOLSH 
SADD, AYPS39 
SHLD, $400, 9m. 


TwOSaY 
$400, A0PSi9 
$380,50V0 
SOLS2Y 
WRI294 906, ,A5 
8, (3?) 
NALSS9 
(RB) aCSP) 
eCR5)guSP) 
@(RS),eCSP) 
(RS), 0(SP) 
R4,5POLSH 
SHLD, AERSA® 


R4,RO 
OVRSLY 
(BPO RS 
RS 


OZ( R51 
ARNSSY 


ogr 
@SP,26, (SP) 
o(Raye 


#1000, 09P 
o(Raye 


81900,98? 


O(Ra)e 
we 


(5P)6,38, 6SP) 
CSP) 0,38, (SP) 
(57) 0,385 (SP) 
(BP) 6,38, (9P) 
Oc Raye 

(SP) 6,22, (8P) 
(5P) 0,22, 69P) 
(5P) 6422; (9P) 
(§P) 0,22, (SP) 
OCRaye 
6(SP),0(SP) 
6¢8P),0(SP) 
6¢SP),0(SP) 
6(SP),e(SP) 
suns 


96,89 
14h caPDvecary 


rwasay 
ecnaye 
840265, 002S63,634771,157145 
8402350 , 833760, 850615, 184253 
B4O245 112704 (61752,195727 
840205, 125983 ,063754, 044375 


FRU 


#FCOSZI;RO 
MB(RS) FZ 
CRB) Og F2 
F3,R4 

"2 


Myasay 
OL 2,F2 
R4 
046,0,72 
FURS 
846 ,0)72 
F2.F3 
rine 
Fore 
CRO) OFS, 
CRO OGPS 
(RO) OFS 


446 


447 


eae aC | 


SOxPas 


3681 
3002 
3603 
3004 
3605 
3606 
3607 
3008 
3629 
3610 
3o1a 
3612 
3643 
Joe 
3645 
3616 
3617 
3618 
3619 
3620 
3423 
3622 
3623 
3924 
3625 
3626 
3627 
3628 
3629 
3638 
3633 
3632 
3033 
3634 
3635 
3636 
36937 
3638 
3639 
3440 
3644 
3642 
3943 
3944 
3645 
3646 
3647 
3948 
3949 
3650 
3653 
3652 
3653 
3654 
3655 


rm ne 


SEXPO4 


3056 
3657 
3658 
3059 
3668 
Jo6t 
3662 
3063 
3664 
3065 
3666 
3667 
3668 
3069 
3670 
3672 
3672 
3973 
3674 
3675 
3676 
3077 
3678 
3679 
3680 
3684 
3082 
3oas 
3o84 
3685 
3686 
3087 
3688 
3689 
3699 
3694 
3092 
3093 
3094 
3995 
3696 
3097 
3698 
3699 
3709 
3704 
3702 
3703 
3704 
3705 
3726 
3727 
3708 
3709 
3710 


MACXA4 


MACX14 


881666! 
821672! 
081674! 
81676! 
881702 
681704! 
981706! 
804712 
881714! 
901716! 
01722! 


094724! 
901726! 
8047390 
901734! 
981749! 
ao47420 
001746! 
ao1759° 
aa1754! 
001756! 
094760! 
001762! 
001764! 
201766! 
OB1779" 
091772" 
agi7740 
884776! 
ae2gag" 
aa2g02" 
ao2go4: 
082026! 
ag2aig¢ 
a92e12! 
ag2gie 
202016! 
ag2020' 
992922' 
ag2924/ 
392939 
a82932! 
902036! 
92942! 
ag2gee! 
a02n5o! 
ag2a546 
982256! 
282062! 


voas 


89eg00 
880004 
380008 
ITT TE 
880906 
380005 
288026 


Vea 


980987 
o9ageg 
388804 
289202 
990903 
846504 
044400 
O93904 
820027 
184446 
889403 
320027 
104437 
886309 
820027 
103527 


005746 
005946 
342746 
816446 
041446 
046446 
841446 
agaaey 
asepsal 
202322! 
2027146! 
202056! 
302236! 
ag2ge4) 
aai23e/ 
a9go8e) 
ao20e4! 
092322! 
agogagl 
aor2se! 
230006! 
a0ggae/ 
aor2sel 
oe2g2e/ 
889806! 
882232! 
ag2sz2! 
002160! 
862726 
000134 
326646 
046646 
900434 
842746 
012746 
090134 
211666 
80154 


23eMARe73 


23eMARC7S 


ogeee2 


144662 


044068 


963008 


840290 
280002 


898802 
082422 


190298 


280802 
880893 


125073 
840270 


890012 
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NMLSA9} 


sclsa9y 


ONES394 
OVRSS9I 


ZERSL9Y 
ECLSA9 


z48191 


FCOSa9) 
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Exes 


POSS28) 
SMYS29} 


INCS29} 
ours2ay 


PLES2a) 


Csvs2ey 


PC ak? 
roexo 
ryexs 
PZeK2 
F3aXS 


PUPS 
were 


NMLSLY 
(RB) 0,79 
SCLSi¥ 
861819 
96, RO 
SGLSI9 


#40208,R0 
zasi9 
04204,R0 
EGLSSY 
€2095,R0 
RO, SERRA 
ag 


40270 ,429073 024534, 015702 
044240,194232,8674483,171842 
837494,413360, 158001, 193703 
940766,152405, 615345, 933345 
840205 ,125303,863714, 944473 
040249 5113701.164752,105727 
048230 ,933768,850615,134253 
840263, 002363, 031773, 15973465 


SExPae 
CNOS28 


Cup, SERRA 
Py 
SADR, SSBR SMLR,SOVR, SIR, SRI» SPOLSH 


YF 


245) ,R4 
ORG, RY 
eQssee 

RO, #144662 
ZER$20 
SMT$20 

RO, 844660 
OvVRs2e 

RO 

AO, 463000 
ONES29 

rPU 

o(3P) 

o(SP) 
#40200, 0(SP) 
26R4),0CSP) 
@R4,0(8P) 
2¢R4),0 CSP) 
04, ef SP) 
RQ, SPOUSH 


#,68200,09P 
O( Raye 
2¢SP),0(SR} 
2¢8P),0¢SPy 
abe 
0425073 ,0(8P) 


bangs ssct 4G 


O8P 10, ¢SP) 
@(R4)e 


SExPoS 
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882064 386116 CrAS20) FOL 
692066! ROL. 
ag2079° eoueee sue 
ge2g74/ 80S 
862076! ROR 
og2100/ ROR 
082102! MoV 
8024044 899002 MOV 
ag22i9/ 836602 MOV 
oe2i14! 144308 MOV 
ao2320° mov 
e@2222! MOV 
002324! O7E574 MOV 
892159! 043426 MOV 
g92334! 056333 MOV 
002249! 812746 2349560 MOV 
082144) 930146 MOV 
092146 019046 MOV 
892150 220146 MOV 
892152! 312946 MOV 
092154 390134 une 
sGNOc 
s170r 
sero 
Ser! 
Mov 
LOgrO 
Mop 
s7coy 
400 
Ovo 
[$44 
,OCor 
cree 
eco 
OF 
MULF 
aOOr 
40F 
Ove 
apor 
aoor 
OlVF 
MULF 
syer 
MULE 
SC£S28) STF 
NOC 
vUPNOF 
002456! 322626 2FRS281 ee 
U) 
892169/ 012608 SCLS2B) MOV 
982262! 012604 MOV 
+ TPNOF 
882164" 912606 v 
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sENOC 
902166 ogasae swas 
882170! 195804 CURB 
082172! ge62c6 ager 
802474! 969408 ado 
892476! 1984685 omy 
8g2208/ a98205 ays 
892202 oasee. ONGS2a1 CLR 
092204! 032708 saoze8 MOV 
82219 860205 aqS 
O82212' 932709 s024R4 OVRS20) MOV 
902216! 990402 BR 
882228/ 012708 902405 ZERS2O) MOV 
082224 084567 Bo20z0 ECUS201 VSR 
882238 285900 CUR 
602232! 2eSee% cur 
882234 80205 avs 
stFOr 
FCos2g) ,WORD 
1WORO 
»WORD 
sWORD 
+ WORD 
» WORD 
1 WORD 
vENOC 
,ENOC 
s£07 


Rg 
9406,09P 
aERS20 
no 


ogp 

gp, Re 

2450) RL 

9036692, 0(SP) 

9241108, 068P) 

Ai, a (HP) 

RB, o(§P) 

BO7ESTL 04 SP) 

8842426,0(3P) 

9956453, 0(9P) 

9864568,0(5P) 
eetsr 

RB, 0(9P) 

RL, eC SP) 

RO, e( SP) 

Oc Rais 


reu 


#FCOSZ0,RO 
O84, F2 

CRO OER 
F¥)RA 
94,0,68 
CRO) Oar? 


F3,re 
354528 


(ROOFS 
CRO) O FS 
lars’ 


re 

VD, e($P) 
rey 
CEP) oy (SPDd 


(§P) 0, Ro 
C9P OGRE 
Fay 


(9R) 0, Re 


Ry 
646209 ,R0 
RS 


0g404,R8 
CELsee 
63405,R9 
RO, SERRA 
Ro 


048379,125073 
834534, 013963 
046478 ,329073 
834534, 015764 
644566 ,856¢33 
842426,073571 
£44100, 0364602 
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SexPoe 


SICIBe 
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SFEALLI 


mersasi 


trix 


RNOS22I 
UPLSse2} 


FLOATY 


uPLs2gy 
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soett 


sieti 
Gos24) 


ST?S24) 


SGS$24) 


8 
Snfs24) : 


ar 
NXP S24) 
J 


Ls 
NCKS24} 
a 


BV 
FLos24) ¢ 

aL 
SGNS24) 

acs 


BASIC SOURCE FILE a5 
SPCLOe 
CNOS23 
SfCALL 


Seana” 


ORETSZ4, 0 (SP) 
Ha te 


0463,0(9P) 
8P,R 


el 
TPiXs EL, SPOLSR 


AIRS) GRE 
24 R46), 0¢8P) 
° 4043r) 
RG, SPOLSH 
SRY, UPLS22 
C§P) 0, RO 
RS 


sine 
FLOAT SER, SPOLSH, SPOPRS 


O2¢R5), (SP) 
R4, SPOLSH 
sqRr 


SPOPRS 
UPLS2y 
Ag 

31618 


CNOS28 
SLC. $0Cr 


YS Am 


#67, 04SP) 
Gosa4 
W474,0(8P) 


(RE) Oy RZ 
#477600,R2 
Raya! 


Raeatstsr) 

4 1 

x 

wie 45,3 
paeaae 


NOMS24¢ 
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3905 Cue 
3906 ONES24) MOV (BPO Ke 
3907 MOV CBP) OARS 
3908 ROL C§P)+ 
3909 MOV RO, 4(3P) 
3948 MOV CGP) Oe RO 
3943 avs eG 
3942 ERRS24) TST CEP)e 
3913 NGMS24) CLR RO 1 
3914 com 4¢9P) 
3935 pe ONES2¢ 
3916 OCLS24) ROL Ro 
3937 : ocs CRRSZ4 
3918 ROL Re 
3949 ocs ERRS24 
3028 . ROL 
3924 acs ERRS 26 
3922 ado RZ, RO 
3923 iT) rLosas 
3924 sGNOC 
3925 sTITLE S$LCORS 
3926 stPOr = CNOS29 
3927 
3928 sGL08L S1COrS0C0 
3929 Rgaxe 
3939 RgOss 
3933 RQOK2 
3932 RJUKS 
3033 R4oaxd 
3934 SPUxe 
3935 9GeN7 
3936 soco! = MOV SOCTSZSRELS25, RO 
3937 or 60825 
3938 stcor = MOV SQECEZSeREL S25, RG 
3939 GOS254 MOV R4,0(9P) 
3949 MoV Oy CSPVARS 
3943 MOV 61 (SP) ,R2 
3942 age LPss23 
3943 CUR Ra 
3944 CLA euse) ’ 
3945 LPss23) “OV 4, (9P1aR4 
3946 MOV at ,0(SP) 
3947 cmp RO, BOG TI25eREL S25 
3948 sca P08$23 
1949 rst R4 
3950 96k Pgss23 
3951 NES Ra 
3952 Mov ae, 0yP 
3953 POSS25) CLA o(SP) 
3954 apo PGR 
3936 TS¥3251 Ts7 one 
3956 eR 
3957 ace MOVS29 G57 
3958 CLR R 
3959 syas25) sus ORG, Re 
SICOOR MACX14 VO22 2eMARe7TS 11134 PAGE 603 
3968 ao eacs29 
1963 INC Rd 
3962 ar syesas 
3963 BAGS251 ADD (RO) O,RA 
3964 rs? Ra 
3965 BNE NECSAS 
3966 TgT ogre 
3967 BO TETS29 
3968 N#e@S254 A00 096,R% 
3969 MOV RR, 0(SP) 
3970 BR TS7825 
3973 MQVS254 A400 RQ, RS 
3972 aoo #00,R4 
3973 MOVE =—s-R4, @ (RI) 
3974 OCRSs25) DEC R2 
3975 ALE FULS29 
3976 MOVE (SP) 6, e(R3) 
3977 BNE ae 
3978 MOVO CSP), ORS 
3979 FILS25) OFC RZ 
3980 aca oNnes25 
39684 MOVE Of ,e (RS) 
3982 BR riuse> 
3983 FULS25) TST CHPye 
3984 BNC ERRS25 
3985 cme ah, (3P)e 
3986 BNE ST3S2504, 
3987 ONES234 MOV CEP) OyR4 
3988 MoV (SP)o,4(SP) 
3989 Ts? (SP)e 
3990 ROL CEP )e 
3993 RTs 4} 
3992 ERAS25) TST (SP)e 
3993 BNE ERRS25 
3994 TS? (EP ye 
3995 MOV 8, (SP) ,RS 
3996 818825) MOVe ale, (RS)e 
3997 OE 6{sP) 
3998 act STSs29 
3999 com 648P) 
4900 BR ONGS29 
4904 DECS25) , WORD 109690,,1000,,300;,,10,,8 
4002 OC#S25| ,WORD 198888, 19900,1000,100,10,0 
4203 sENOG 
4004 ATSTLE SINTOR 
4005 siPOF = CNOS26 
4006 sGL08L INT SOINTISRIsSPOLSH 
4007 Roexe 
4008 Rane 
4009 A59K5 
4018 : SPUXG 
4013 INtT , 5 
4012 TOINT) «MOV 2GR9) RE 4S 
4043 MOV 24 RG) y0(SP) 


4034 MoV OR6, 0697) 


SINTOR 


MACKS 


992236! 
oo224g/ 
082244! 
882246! 
292259! 
902252! 


802254! 


MACKA2 


og2260! 


882264! 
882266! 
802270! 
982272! 


982274" 
382300 
902302! 
882304! 
802306! 
o82319° 
082312! 
282316! 
082320! 


voes 


aBgge8 
TTT TRY 
880802 
ITT T RY 
oBeRe4 
80a826 
177324 
177342 
eanges 


o05e46 
026684 
aeSeve 
001424 
005404 
296146 


012702 


vo2s 


185066 


086101 
193402 
385302 
380774 


129166 
195904 
150204 
380304 
286026 
TTT 
186066 
218146 
300434 
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vgn R4, 370, SH 
sWORD §=—- SRY, UPLS 2G 
UPLS261 MOV (30) 0,88 
avg Ro 
ENOC 
iTUTLE SiRe4 
stPOF = GNOS27 
2GL0BL SIR 
sTPNOF S@AS 
1GLQ8L S10 
vENOC 
agexe 
RLOSL 
AZOx2 
RSEXS 
n40x4 
sPaX6 
mQei773B4 
NOROL77S12 
rgexe 
vtrOr = FRU 
sTPNOF | s@as 
stot sero 
BR 101827 
vENOC 
SyRt stir 
1818271 set! 
Logie CSP) 0,78 
87 F6,0(gP) 
alld Raye 
sCNOC 
aTPNOF FPY 
aAyNor s0as 
slor MOV OFF, 068) 
MOV O§P, (SP) 
CLR 2¢3P) 
CLR agp) 
vENOC 
Stat cue esp) 
890002 MOV Bigedsns 
act 908827 
sca 2GR827 
NEG Ry 
P08S271 ROL, o(8P) 
sTPNOF EAR 
aogeee ov #220, K2 
sENOC 
1IPOP = EAE 
MoV 0247, K2 
235eMARe7S «14154 = PAGE 605 
sENOC 
ogouns CLRE 4.8) 
NOMS27} 
LIPNOF EAE 
ROL, Ry 
acs NQOS27 
ogc 2 
R NOMS27 
,EN0C 
itPOR | cae 
MOV ana, Rg 
CLR RS 
MOV RA, 0(R3) 
MOV aNOR, RO 
OLR ORG 
$e (RB) O)R2 
MQV 02,00 
MOV ORS,RY 
ENO 
o9gee5 NOOS27) MOVB = =—-R4, 5 9F) 
CLRB RY 
8188 R2,R4 
SWAB R 
ROR CGR) 
ROR R 
098003 RORS 3¢3P) 
Mov AL, eSP 
3ERS271 UMP ecRaye 
1 ENOC 
sENOC 
sTETLE = SML089 
vIFOP cNOS2§ 
1GLOBL SMU, SERRA 
Rgaxe 
RUOXS 
A29K2 
RaXS 
R4aX4 
AS9K5 
SPaxs 
PCOx7 
MQUL77506 
and, 
Beté, 
RESLT Lz, 
S{GNe2 
: roexe 
iTPOF | FRBY 
SMLOt «,WORD §=64 70843 
:WORD = 472420 
+WORO = 494026 
sWORD = 4.74846 
Jue O(R4)e 
sENOC 
vSFNOF oFPY 


YS6 


WS 7 


ue 


SM.005 MACXIS 


SML085 = MACKXI2 


veas 


vo2s 


23ehARe7S 


23qMARC7S 


L234 


smpor | MOV 
La] 


i] 
sprees CMP 


PAGE 606 


Eis2e) ymP 


INSs2e} CLR 
¢ 


gesze) nov 


i] 
B4NS28) VSR 
J 


848S28) tar 


B2nS26) USR 
628S26) MOV 


12154 
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RG, 0(8P) 
R9, 06 9P) 


o(SP) 
ao4(88),0SP 
RORS20 
A(SP),;AoL (SP) 


agap) 

pela ae 
hea(sP) 

AeS (SP), 408 SP) 
aed( SP) 

pe daha 


ats 


i 


tae, setsP) 
seeceeerass 


rents 

PG, M7OS26 
ay6,,esP 
84d02 (SP), 84 
84NS28 
8046258") 
0433928 


peeni reas 
446, ,69? 
gs202(3P) 4 
Gans2g 
§e4e2(SP) 
Gans2g 
aq02(SP) 
828926 

PG MLISZ8 
waeeg {9h ina 


CSP) ORE 


EAGT MYLOLY 
R4 


Bo4(3P),R4 
R4,0SF 

84, 0¢4¢SP) 
csp) 


B( AP) 
BeS(8P),8(SP) 
ae2(sP) 
865(SP),B09(SP) 
B64( SP) 
Sorcap)sBeacsry 
8e6(3P) 
806(8P) 


CA 

ang, Re 

ASP) ;0(SP) 
89602(9P),eR4 
RS, EMUS28 

C$P ey RZ 
(EPO RS 
A®R(SP), = (SP) 
80402(SP),aR4 
RS, EMyS28 

id ala 


C$P)O,RS 
RZ 


Ra 
NO4(SP),0(SP) 
Bepe2 (SP), eR4 
RS, EMUS28 
CHP) eRe 

R 


a 
CSP) OARS 
n2 


Ry 

AOG (SP), 0(SP) 
Bebe2(SP), ars 
RS, EMys28 
CBP) oy RZ 


Ls 
CBP) ORS 
R 


ACEP), oC SP) 
Goder ssp), ens 
RO, EMYS28 
ATH 

Rt 


ie 


SM,085 MACXaa 


4238 
4236 
4237 
4238 
4239 
4240 
4243 
4242 
4243 
4244 
4245 
4246 
4047 
4248 
4249 
4250 
4254 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4359 
4268 
4263 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4273 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 


SML0e5 


4299 
4294 
4292 
4295 
4294 
4295 
4296 
4297 
4296 
4299 
4320 
430% 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4343 
4312 
4313 
4314 
4315 
4316 
4347 
4316 
4319 
4320 
4323 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4333 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4348 
4344 
4342 
4343 
4344 


MACX11 


vos 


vo2t 


23eMARe7S 


23eMARS73 
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11134 


PAGE 608 
aoo CEP OARS 
40g RZ 
aoc Lt} 
“OV AO2 (SP), 0(SP) 
MOV BO202(3P) ,oR4 
JR RO, EMyS28 
apo (BP) o,R2 
age R 
aod CHP) OARS 
aoe Re 
aoc RE 
MoV AG6(SP),=(SP) 
mov 86802 (SP), 0R4 
vsr RO CmySze 
oo (EP) og Kz 
aoe a 
apo CEP) O ARS 
aoe ng 
aoe Ry 
MOV ACSP),0(SPy 
MOV Bogen (SP), eR 
Jgr RS, CMys28 
0D HP ors 
aoe RO 
aod COP) a RE 
age Ry 
aoe Ro 
MOV A®E(SP) ,0(8P) 
MOV Be802(SP),0R4 
vgr RS, EMyS26 
ago COP) O,R4 
age Re 
a0o0 CBP) O,R2 
aoc Re 
aoe Ro 
MOV A(SP),0(SP) 
MoV 8602; 5P) ,aR4 
JER RD ,EMys2s 
«00 (9P)o,R8 
apo (SP) 0,Re 
aoc Re 
MoV CEP) ORE 
sENOG 
sIFOF | MULOSY 
MOV AGSP) ya(SP) 
MoV 86025"), R4 
JER PC, eMyses 
mov R4,R2 
“OV RS,RS 
MOV AO2(SP),0( SP) 
MoV meeetieene 
usr PG, EM 
ago RG, RZ Y6 oO 
aoc RE 
ado R3,R3 
ed 
PAGE 609 
aoc Re 
aoc Ru 
MOV A&6(SP), 0 (SP) 
MOV Beee2(SP) RG 
JSR PG, EMus2s 
Ado R4,R2 
aoc R 
ado R5,RS 
aoc Re 
aoc RY 
MOV AG6(SP),0(SP) 
Mov 8e9e2(SP),R4 
JSR PC, EMYS28 
Ado R4,R2 
age R 
ado R5,RS 
aoc R2 
aoc Ry 
MOV RB RS 
MOV RE RZ 
CLR R 
MOV A(SP),2(SPy 
Mov 86662687), R4 
JSR PC, EMys28 
Aa00 R4,R2 
aoc Ry 
aoo RB,RS 
age R2 
aoc RY 
MOV AO2(8P),0(8P) 
MOV Be2e2(SP),R4 
JSR PG, EMUSZ8 
ado R4,R2 
aoc AY 
ano R5,RS 
aoc R2 
aoc Ry 
MOV AO4(SP),0(9P) 
MQV 80062(SP),R4 
JSR PG ,EMYS28 
aoo R4,R2 
aoe R 
A00 R3,RS 
aoc R2 
aoc RY 
“OV A(SP),0(SP) 
MoV Be2e2 (SP) R4q 
v8R PG, EMys28 
400 R4, Ra 
100 Hy R2 
ao a) 
aoc ay 
age Lid 46 / 
MOV ASR(SP),0(SP) 
MoV BeGe2(SP),R4 


wl 
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4345 usr PG, EMys28 
4346 aoo 40a 
4347 age Ra 
4348 aoo AS,RZ 
4349 aoc RY 
4359 aoc RO 
4354 MOV A(SP),0(SP) 
4352 MOV BOGo2(SP) RE 
4333 Jr PG, EMUS28 
4354 400 R4,R8 
4355 aoo RA ARL 
4354 aoc RO 
4357 MOV CEP) oO, RE 
4358 yENOC 
4359 ASL 3 
Jog ROL Re 
4363 ROL R 
4368 ROL a 
4363 acs NQMS28 
4364 ASL 
4565 ROL, R 
4366 ROL R 
4367 ROL Re 
4368 occ R4 
4369 NOMS26) $US 93a0,Ke 
4370 BLE UNOS2y 
4373 one 4377,R86 
4372 OT OvAS2g 
4373 CLR a 
4374 oy3e RE,RS 
4375 SWAB 
4376 CLR R 
4377 sj3e REaR2 
4378 swaa 
4379 CLRB R 
43ee 6138 RO,RS 
43ay swas 
4382 Cure ng 
4383 sso Ra, RO 
4394 gas ] 
4385 ROR CHP ye 
4386 ROR RO 
4387 ROR a 
4388 ROR Re 
4ge9 ROR Ry 
43908 aoe ag 
4393 aoc Rg 
4392 aoe ay 
4393 age ng 
4394 ocs ovasas 
wie rant ithe : 
4396 ours2s Me (SP) 
4397 mov AA RERL TSa(S0) YS 
4398 Mov AG, RESLTO4ISP) 
4399 MoV RJ, RES TOOISP)® 
SM\085 MACX12 VO2L 23eMARW73 42154 PAGE 6021 
4400 MOV (9P)9,R5 
44ny MOV (SP) o,R4 
4402 ado og..3F 
4403 uM? acRaye 
4404 Ov{S28) TST oF) 
4405 OVRS284 MOV 65093,R0 
4406 6R GGL S28 
4407 UNOS28) MOV #$005,R0 
4408 ECLS281 TST CHP) e 
4409 usr RS, SERRA 
4ayo 2E2826) CUR Ro 
aang CLR LF 
4422 CLR Rg 
4413 ~ CLR Ry 
aan aR Ovtseg 
44aas SUPNOF EAGSMULOTY 
4446 MLTS201 ASR R4 
44n7 ace 19820 
4448 MTZs28) A00 A406 (SP), A3 
aay aoe Re 
4420 ane Ry 
4422 aoc Lt 
4422 aoc as 
4423 400 £6404(SP),R2 
4424 . age ay 
4425 aoc RB 
4426 aoe RS 
4427 400 AOZH4(SP) IRL 
4428 aoc RO 
4429 aoe ag 
4438 aod A0604(SP), RO 
4433 aoe RS 
4432 XO328) Age as 
4433 ROR ag 
4434 ROR at 
6435 ROR Lr 
4436 ROR ® 
4437 ogc 2¢sP) 
4438 cr MLTS28 
4439 ats P 
aaag MT2as2ay OFC 2¢3P) 
444g M78S26} ASR Ra 
4442 ece xdoseq 
4443 ado AOZO4(SP) RL 
aaaa a0g Rg 
4445 aoe ag 
4446 400 46004437) ,R0 
aaa? ' age kd 
4448 XGeS2O) Agr ay 
aes ROR Ro 
44358 ROR ay 
445g ROR R 
4452 ROR n Y6 Ss 


Stes 
4454 867 MTOS29 


SML005 


4455 
4456 
4457 
4450 
4459 
4469 


MACX12 VG2%  23eMARe7S 11134 PAGE 6092 


ATS °G 

sENDE 

sIPOF «cae 
EMUS281 CLR oyr 

Ts? ORs 

aco més28 

aor MPLS2g 

rst 2¢3P) 

sea M828 

OGY MNGS2B 

ago (R4)e, 09P 

aoo 2487), 08° 

BR CMLS28 
MPLS20) TST 2457) 

ecG 4gS28 

LT39 MLAS2g 

aoo (RO) 0, 0SP 

aR CMLS2e 
MNGS264 A0O 2¢5P),eSP 
MLQs281 87 (R4)e 
EMLSZ2a) MOV 2(8P),eR4 

MOV 4 Ra) 2¢SP) 

400 o(R4),08P 

vs? (R4)6 

Me ORS 
MES28) CLR 2i3P) 

uMe ORS 

sENOC 

s3FOF | MULOLY 
Emus28y CLR o{$P) 

73? aa 

eo wés2e 

967 MPLS2e 

787 498") 

bce MES26 

OGT MNGS28 

BR MNGS28 
MPLS20} TST 49P) 

bEo Masas 

ac? MLOS28 

aod Ra, esP 

BR M826 
MNGS26} ADD RG, eS? 
MNTS284 AD! 43P),esP 
MLQS281 ,WORD 878466,4 
MONS28) AO! iy LAR LS) 

ov (9P)0,09P 

ars , 
M8281 CLA Ra 

che a5 

8 MQNS26 

sENOC 

sENOC 

,ENDC 


oTETLE SMU 389 
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vtPOrF == CNOS2¥ 
1608, SMUT, SERR 
Roexe 
Riess 
R2aX2 
RIS 
R4OR4 
A5aXS 
SPEX6 
: $AS299977344 
MQea77S04 
sUPNDF EAESMYLOLY 
SMLIE | SUR RO 
~MOV (§$P 76,4 
cr PYS29 
Bca 2QRS29 
INC Rg 
NEG Ra 
P4829) MOV agr, Ay 
? #3829 
Bro agrs29 
ING Ra 
_ NEG Ry 
P2g29) MOV R4,0(3P) 
v 06,24 
cMP RALRS 
BGE CLRS2Y 
MOV AZARZ 
MOV RS,RS 
MoV RQ,RT 
CLRS291 CLR Ra 
MULS294 ROR Re 
ROR a3 
ace crcs2y 
aoo RE,R2 
cyes29) DEC aq 
aGT MULS29 
MOV C9P) 0, R4 
rsT8 Ry 
ONE OVRS2Y 
8188 R2RS 
SWAB RY 
CLRB RS 
SWAB RZ 
ASR RZ 
BNE OvRs2y 
ROR Ry 
NEG ay 
PL, OvAs2y 
ROR ae 
acs oursey 
NEG RY 
ove ovVASay 
oursedy MOV RY, 08° 
me O(Raye 


by 


U5 


d 


smi o5 


SMLROS 


4620 
4623 
4622 
4925 
4624 
4625 


MACX14 


MACKX11 


882322! 
B823524! 


892326! 
882332! 
882334! 
802336! 
802349! 
982342! 
002344) 
882346! 
992359! 
882352! 
8B2354! 
82360! 
882362! 
882366! 
082370! 
882574! 
go240g/ 
oe2404! 
002406! 
982412! 
824144 
882416! 
Oo24622¢ 
802424! 
O82439 
802434) 


882449 


8024445 
092459! 
382454! 
882469! 


vees 


VO22 


030446 
819546 


946602 
986322 


362604 


23eMARe73S 


23eMARO7S 


280004 


988035 
902 


oeoo14 
Bese? 
020035 


008634 


080016 


896017 
990228 
000360 
ITT FS) 
000007 
000344 
390444 
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NGMS29) NES R3 
vc OVRS2Y 
ROR Ro 
acs oursey 
R OVAS29 
BERS29) CLR ogre 
Sila OCR4aye 
sONOC 
wor cag 
SMLUE MOV Ong, RO 
MOV CHP) Oe (RBG 
MOV ($P)o, eRe 
MOV (RO), 0(SP) 
orTe 92, SR329 
seo OVRSaP 
Jue acRaje 
sENOC 
; s1V0F = MULOTY. 
SMUT MOV C9P) 0, RO 
WORD 679820 
MOV maesier) 
ecs IRE2¥ 
ump e(naye 
r ENO 
OVRS294 CLA ($P) 
JSR RO, SEAR 
JMP O(R4)e 
BYTE 3 
‘BYTE = 44, 
sENOC 
sTITLE «SMURBD 
iSFOr CNOSS@ 
.GL08L SMLA, SERRA 
AgOXS 
RLOXS 
R29XK2 
R3AKS 
RAGKS 
RSOXS 
SPex6 
Can? 
™Qu477384 
srea773aa 
LSH0177324 
Feexs 
Ang, 
Sef2 
ESL TES, 
SIGNe2 
oF = =6rPy 
SMLRE WORD 478083 
;WORD = 472428 
sWORD =: 479926 
:WORD 174946 
ump o(Raya 
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SMLRE MOV 
™ 


8 
B2eNSSB} MOV 
J 


J 
822830) “OV 
Ll 


Asbea (ary sng 


o(SP) 
=(SP) 
R 


4 
RZ, egP 
aGLs30 


R3 
RB 
Asai Bet eRe 
Ase (SED ERS 


67,5 
PG ML ISSO 
ee atiase 
(57) o,R4 


EAE 

ona, Re 
#420098,R5 
Beead (SP), 0R4 
Bebed{SP) ,0(R4) 
ZERSS— 

O8,SH 

esse 

o(SP) 
(RG) oy oC SP) 
ose 


oy 
#7, 00,SH 
oR4, 0657) 


(R =(8P) 
AeBea(3P),0R4 
Ae6o4 (SP), 0(R4) 


466 


SMLROS 
4675 


MACX12 


MACXi4 


092462! 
092466! 
882466! 
202479! 
882472! 
882474s 
392476! 
892302! 
a025046 
o82519! 
802512! 


voes 


Yo22 


86104 
386190 
183403 
906104 
086109 
885306 

162704 
203436 
922704 
202427 
105901 
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A2NS3O) 


A2PS30) 
A2BS30) 


B2NSSO} 


B2rS301 
B2assey 
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288208 
888377 


A2PS3B) 
A22S30) 


B2PS3e) 
8228361 


NOMS3B1 


AQNSSE 


e(ROypa(Ray 
208P),eR4 
2490) 
aeeane 

e 
eyeing 


nea tRaye 
($P) 4, R0 
eERay RY 
Lt) 
e(R4) RO 
(EP ye 
CEP) ORG 


v 
Bee tSPD ARS 


* Geb0d (SP) RE 


BERSSo 


873427,7 

R95, 063?) 
#490000,R4 
RG, 0(§P) 
AOR (SP) AS 
Node Sr) R2 


ata 
creer 
sp) 


RB, 4( GP) 
07322747 
#{ogeeR, RZ 


767 


Ab& 


yi 


See 


SMLROS 


SMLROS 


4040 
4e42 
4n42 
4843 
ana 


MACXLL 


eg25s4! 
a92516! 
ae2s2g/ 
892522! 
ea2s2q! 
092526! 
092539! 
882532! 
202534) 
8025364 
282549! 
002542! 
892544) 
oe255e/ 
892554! 
292556! 
g92568/ 
902562) 


892564! 
692566! 
092579! 
092572! 
002576! 
982606! 
992604 
002606! 
ge2ze12 
OB2614/ 
262616! 


082629! 
a92622¢ 
ae2624 
a92626! 
8026394 
892032! 
882634! 
882636! 
802649! 
802042 
092644! 
092646! 
892659! 


voas 
139804 


880456 


822626 
000432 
099726 
842708 
8804035 
812708 
885726 
984567 
695800 
295804 
000752 


886204 


982652/ 99077 


802654! 


992656) 4 


o92069! 
882662! 
o92664/ 
882666! 
082679! 
882672! 


MACX11 


oseey 
860200 
906008 
386003 
885305 
383374 
080207 


voes 


23eMAROTS 


opeese 
8eees2 


og6ees 
993405 
004456 
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Oufssel MOV 


zEasse; CHP 
RELSSo) CHP 


Ovasse) rs? 
OVESSa} MOV 


UNOSSO} MOV 


ECLSSB) ySR 
ZERSSO} CLR 


MLPSSOy A 
MTZS$SO} 40D 


XO938) ROR 


Covssel 400 
MTOSS6) AgR 


XOOS3B) ROR 
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sENDG 
sENOG 
sENDE 
1E0T 


ihe 
(3P)0,R5 
(RP), Re 
CSP) 0, (SP)e 
O(R4)e y 
CAEL MYLO 

CSP) (SP DS 


(EPO, (SPO 
aERS39 


COLSS8 
#3405,R0 
($P)6 
RS, SERRA 
Ro 


Oursse 
CACEMYLOLY 
Rq 


769 


4/70 


SMLROS 


4945 
4046 
4047 
4348 


SPPROG 


4909 
4903 
4908 
4903 
4904 
4995 
4906 
4997 
4908 
4909 
4918 
4933 
4942 
4943 
4914 
4915 
4916 
4947 
4918 
a9u9 
4920 
4923 
4922 
4923 
4926 
4925 
4926 
4927 
4928 
4929 
4930 
493% 
4932 
4935 
4934 
4935 
4936 
4937 
4938 
4939 
4948 
4gay 
4942 
4943 
agag 
4945 
4946 
4947 
4948 
4949 
4952 
4954 
4952 
4953 
4954 


MACKS 


8926746 
982676) 
8027008 


MACX14, 


902702! 
692704" 
882706! 
e82719! 
g02712! 


Vee 


380804 
290005 
882906 
080007 


812609 
822603 
832602 


Voes 


832603 
OB0134 
942608 
842624 
9001354 


300008 
90004 
889002 
80003 
880004 
280085 
888806 
177304 
177324 
888008 
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SNORI 
SNGOI 


aERs34) 
OVRSS3) 


SPSHRS) 
SPSHR4} 


SPSHR3} 
SPSHRQ} 
SPSHRI) 


ROeXS 
Riess 
R202 
R3exS 
R4axé 
RSX 
SPex6 
PCaXx? 


SPOPRS) 
SPOPRG} 


23eMARe7S «24454 PAGE Jad 


SPOPRS} 


srt 


soyt 


Mita § 


Ba8ic SOURCE Fite #24 


sTITLE = SNEGSZ 
vEFOF = -CNOSSE 
sGLOBL SNGL,SNGR,SNCO,SERR 
Ranks 

ASaXxs 

SPOXx6 

NES esp 

avs OVRSSY 
ume OCRaye 
Ts? ogp 

Lia) #ERSSY 
A000 8160900, 03P 
ume O( Raye 
JSR RS, SERR 
Td O(Raye 
BYTE 5 

sOYTE |= 484 
sENOC 

eTSTLE SPHROT 
vtFOF © GNOS3Z 

e xe 

8 wa 

Ld] x2 

ty x} 

ty x 

4 x5 

e % 

: os 

2G OBL SPSHAD, SPSHR4, SPSHRS, SPSHR2Z, SPSHRY 
MOV RJ, eC HP) 
MOV RG, ahr) 
MOV RasetHP) 
MOV RO, e(5P) 
JMP O(R4}e 
sENOC 

‘TITLE spPRe4 
stPOF = -ONQSSG 
sGLOBL = SPORPRS, SPQOPR4, SPOPRS 
MOV (3P) 9,88 
MOV CGP) o,Rs 
MOV (SP) a, RZ 
MOV (9P) ORS 
ume OcRa)ye 
MOV (3P)o,RO 
MoV (SP) oe RE 
UMP O(Raje 

+ ENOC 

ATETLE SRO? 
stPOF © CND$S4 
1GL08L sRO 
RaBK4 
BPeX6 
FOOXS 
Fiexs 

Ivor = FRY 
WORD 470033 
WORD 477426 
WORD =: 474848 
UMP O(Raye 
NOC 

vIFNOF FRY 
MOV 269P),0CSRy 
MOV 26SP),0¢SP) 
CLR 4(3P) 
cL 6(SP) 
ume OCRa)e 

+ ENOC 

Enoe 

ATETLE SRIQ4— 
vtFOrF = -GNOSS9 
1GLOBL SRI,SGRR 
stPNOF §$B8as 
+GEOBL SOT 

+ ENOC 

RGaXD 

RLOKL 

RZEKZ 

RSEKS 

R4ax4 

A5OXS 

sPexe 

MQu477504 
WSHOL77544 

roexe 

vtPOr FRY 
s3PNOF 8848 
seTo 

6A RLOSSS 
sENOE 

err 

set! 

0° (SP)0,79 


47a 


y 
yee 


MACXLA 


092714 
B82716/ 
a02729! 
ge2722¢ 
902724) 
802726! 
892739! 
082732 
082734! 
992736! 
oe2742! 
092744! 
092746! 
092752! 
ge2754/ 
092756! 
092766! 


ge2764¢ 
882766! 
0927784 
a62772¢ 


0927744 
og 


8 
oasei2! 
oesesa/ 
oose16! 
ogse2g! 


veas 


3 
136603 


986103 
086102 
995304 
883374 


999402 
182406 
003987 
286826 
103404 
999402 
918216 
080134 
886026 
183774 
889746 


23eMARC7S 


oepeey 


8ese17 


Beoe85 
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stPNOF 


a SPNOF 
softs pov 


sri ne 


SFPSSS) 


Li 
ObGS351 nee 


of 
ONESSS) ae 

t 
SGNSS3) ace 


Ni 
OUPSSS) MOV 
NGMSS5) ROR 

sce 
OVASS51 TST 


re ——— $< $@$£@ 


MACXL4 


agse22! 
893926! 
803030! 
003034! 
883032 
003854! 


865936! 
oese42! 
a03044/ 
a3ese 
883952! 
083056! 


voaa 
094567 
880401 


085002 
080762 


280008 
880002 
AOGBC2 
880023 
890024 
980889 
280206 
880807 
980028 
308003 
388802 
980805 


86586 
285646 
846446 
924446 
842746 
842746 


23eMARe73 
oege1e 


807733 
040313 


42154 PAGE 7e3 


2ERS35) CLR 
BR 


SNGLI = MOV 
” 


OVRSS6) ist 


cost "0 
Ci 


70, 0($3P) 
o(R4je 


wey 

Sas 

CHP) O,2¢SPy 
(9P) 0,2 (SP) 
nz 

R2 

CSP) RS 
oup 


R 
36SP),RS 
EACRMYLOLY 
ay 

Ag 

Ry 
SEYS35 
tae 

oma, Rg 
RJ, ORO 
RZ, e(RB) 
RL, 00.,8H 
ORG, RZ 


MYLOTY 
O7S204 


ns, 748 


RS, SEAR 
EGRSSS 
3 


22, 
seusss 
S$GL08 


CNOSSG 
SNGL.SERR 


24R5)g RE 


reU 
SADR, SHUR, SSBR, SOVR, SINTR, SPOL SH 


$P) 


after sash 474 


8667733,0(SP) 
SO4B324, 0487) 


SSING4 


SSING4 


MACKAY 


893062! 
993966! 
203072! 
803076! 
8031090! 
aoSio4/ 
883106! 
oosiio! 
ooS114! 
883116! 
893122! 
603326! 
993432! 
o83434) 
885136! 
095142! 
983142! 
893y44/ 
893346! 
893159! 
893152! 
083154) 
803156! 
883160! 
083162! 
803164! 
883166! 
883179! 
083372! 
aes174/ 
883176! 
803209! 
863202! 
Bo3204! 
aeS206! 


BOS218/ 
093212! 
BBS214! 
093216! 
eese2zg! 
683222! 
883226! 
983239! 
083234! 
883249! 
803242! 
903244! 
893246! 
983252! 
093254! 
8O3z69! 
883262! 
883266! 
803279! 


MACX12 


893274! 
883276! 
883302! 
883306! 
883312! 
893316! 
883322! 
883324! 
383330! 
983332! 
BOS334! 
893336! 
883342° 
883346! 
983350! 
883352! 
983354! 
BBS356! 
883360! 
883362! 
BOS364! 


voes 


884467 
agen! 
036506 
005046 
916446 
811446 
286326 
206866 
286016 
842746 
042746 
204467 
agi2se) 
ees2sa! 
ootsse/ 
ogageg! 
283242! 
eo32se 
094154! 
o83254/ 
ogagag! 
8e3262/ 
393239! 
oo3230! 
o82322/ 
OBS332! 
802322! 
TTI Y 
982329 
899006! 
og2szg! 
ogeeg! 
082322! 
segeeg! 
ap2322! 


883212! 


262746 


Vea 


293946 
912746 
004467 
990806! 
042704 
106266 
193022 
262716 
apais4 
042608 
842604 
942702 
812703 
300402 
040146 
040046 
944246 
244246 
885303 
983372 
200134 


23eMARe7S 


eu,e39 
885306! 
og0ee2 


888004 
OB7733 


040733 
800744 


sLegee8 


oeenee 
oepeee 


08880) 
op0010 
oggee4 
108088 


23aMARe7S 


840200 
800579 
0033120 
003456! 
898005 


199008 


o034i2! 
agaaes 


1apse 


13154 


SINE 


SNCSS71 
a 


osessry : 


RINSS7} 


RT{S37} 
ovess7} 


X4837) 


Qvess7) 


astss7y 7 
8 


Qsas3s7} 


Q45$37) 
8 


QUurss7) 
PLYSS7} 


PY2S37) 
PY{ss7} 


cost 


SINt 


SNES37} $ 


POSSS7) 


Gisss7 


Qi2s37) 


PAGE Ted 


JSR 
s WORD 
MOV 
¢ 


PAGE 705 


R4,9P9LSH 
SAOR, SNCSS? 
25R5),R4 
°(8P) 
26M) SR) 
OR6, (SP) 
oge 
4(9P) 
og? 
#087733,068P) 
9040744,068P) 
R4,SPOLSH 
SOVR 
OUPSS7 

NTR 


RINSS? 
(HP) oy RO 
CEP) SERS 
(§P)e 
RT4SS7 
#480000 ,R0 
RS 


2487) ,0(SP} 
20SP) pe SP) 
ca 


37 
#300000,0SP 


(3?) 
940200,0(S5P) 
R4, SPOLSH 
$AOR, ORS39 
#QSESE7,R4 
5¢9") 
QuTS37 
#100000,eSP 


2(R2),0(SP) 
pineieetsey 


Pass? 
a(Raye 


PRU 

Mad Oa 
PL2S37 Fo 
SNQSS? 
@2( R95), FO 


8FCOS37 RO 
Req 


POS$37 
nq 


ro 
(RB) OFS 
#0,25,78 


FO,Fo 


RINSS? 
04,3,F8 
Pyke 
ay 
933337 
re 


pareete 
998857 
rg 
FOF? 
Ve,Fe 


O4—Rt 
CREDO IFS 


- 


475 


476 


SSINOE 


—— 


STNHB2 


MACKX11 


OOS366! 
803372! 
B9S376! 
893402! 
883406! 


MACXLL 


vo2s 


935836 


840343 


vee. 


Z3emMARe7S 


453072 
239145 
832358 
05674, 
087733 


23aMARe73 


42154 = PAGE 706 


xPQSS?} 


NE 
RINSS7) 
M 


AL! 
CONSS?) 


TANHS 


or 
STESsey 
66 


TANSSB| 


MULP rare 
OEC 


Ry 

(ROO FL 
XPO$37 
Fiera 


R4 
RINSS7 
rg 

70, 0(¥P) 


(9P 6, RB 
COP) ORY 
Ro 


040334,907732 
£22043,064502 


8390939,455672 
296234,825243 
837243, 032430 
$48049 956742 
540323, 087933 


Hb 


TAN, EXP, 340R,S50R, LR, sOVR,SFCALL 
SPOLSH, SPSHRS 


RO, 8205 
STESS8 
sgeceeyne 


ons 
Oursse 
0200000,Re 
OUTSSS 


ZGR5) GRY 
ORD, RO 

BR ourssy 

MOV 26RS),0(SP) 


12154 PAGE 707 


VPLSS84 
Oursssy 
SMUSS84 


xSQS38} 


ONESSB) 


P45$38) 
P48838) 


P3SS38) 


ZERS36} 


UPSse) 


MoV ORS, 0(8P) 
apo 9200,0SP 
MOV SP RS 
MOV #EXP, RE 


gr PGASFGALL 
MOV Lge $P) 


MOV RO, 0(3P) 

CUR o($P) 

MOV 640200, 0(9R) 
MOV Ro,eCdP) 

MOV RG, 0 ¥P) 

CLR (SP) 

MOV 840208,0(SP) 
gr R4,SPOLSH 
WORD Te ene 
MOV CEP) OAR 

MOV terpeuns 

MOV it 

ars 

MOV zin9) ini 

MOV ORS, RO 

gr R4,3P0 


Sh 
WORD SPENRY, SPSURS, SPSHRS, SHUR, 150538 
MOV 2(5P),0(SP) 

MOV 2(8P),0(SP) 

usr RG, SPOLSH 

VHORD P§5$58,SAOR, ONESSB 

;WORD «- SPSHR, P45938, SPSHRS,SOVR, SAOR, SADR, SOVR 
sWORD «© S$BR, SULA, UPLSSB 


MOV 4¢SP),RO 

MOV O(SP) ERY 

CLR oCSP) 

MOV #48208 ,4(SP) 

MP e(Ra)e 

MOV 8436237, 0(9P) 
MOV 842464, 0(5P) 

MoV 0463707, 0($P) 
MoV 0429728,0¢SP) 

Pilg OcRaye 

wov #290497, 0(9P) 
MOV 940494, 0057) 

Pld OcRaye 

CUR Re 

CUR RY 

er OUTS 

MOV (9P) 6,30, 69P) 
MoV (8P)%040, 69") 
Pll OCRa)e 

sCNOC 


‘TITLE SATNOS 
rSPOF = CNOSSY 


16,08, ATAN 
IPNOF SBas 


47 


470 


SATNOS 


MACKLL 


vee 


o8eee6 
880004 
880082 
TITTY 
308006 
800805 
280006 
ogogee 
880R04 
289902 
BBO004 
TTT TT) 
090085 


MACX14 


89S412¢ 
8B3414! 
0835416! 
393428! 
883422! 
ao3s42q! 
aaS43o! 
BOS4354! 
383436! 
093440! 
OB3444! 
893459! 
893454! 
883456! 
903469! 
803464! 
803466! 
BOS474q+ 
383582! 
8BS506! 
803512! 
893516! 
BB3524) 
20353Q! 
683554) 
303540! 
BO3544! 
883550! 
803554! 
393560! 
883564) 
823566! 
8O3570! 
083576! 
883600! 
883606! 
083614! 
O93616! 
883622! 
883626! 
883632! 
803634! 
883636! 
393649! 
803644! 


voes 


805046 


342746 
832746 


23eMARe7S 


23eMARO7S 


189020 
eogese 
240288 


89OBKe 


240334 
OB77355 
900824 
890882 
928002 
849208 
898086 
O8GS42 
893540" 
B8oR02 
900808 
OBOR04 
880006 
837633 


208008 


940B06 
995222 


oeenee 
134727 
140335 


240208 
139727 


890804 
980086 


BOB0R4 


830243 


BB0004 
280006 


22554 


11154 


ATAN2I 


OLVSs9) 


uPyss9y t 


ATESS91 


INFSS94 


INRSS9} 


ATANE 


AT{SS9} 


PLUSS9I 


GT{$391 


LELS394 


TNSS3S9} 


PAGE 7208 


GL 08L 
1 ENOC 
vSENOF 
1GL08, 
sENOC 
ROOXE 


a TPNOF 
a }PNOF 
CLR 


cy 
Ts? 


PAGE 709 


ATAN2 


rey 
SAOR, SSBR, SHLR, SOVR, SPOLSH, SPOPRS 


FeV 
S0ag 
(SP) 


2(R51gR4 
3(R4),0( SP) 
@R4,0(SP) 
OgP RO 
4GR5) ARS 
2(R4),e(SP) 
ORG, 0(8P) 
O9P RY 


ATESS 
90409%2,8, (SP) 
8007755, 105 (SP) 
@2(R3) 


ATessy 
8480090,8,(SP) 
esp 


ATass¢ 
#48,,9P 
#940345,R9 
897753,RY 
@Z(RS) 
INRSSY 
0409000,R0 
Ro 


e(Sp) 

o(SP) 

(SP) 

2{SP) 

24S) 

2GRS) «RE 

20 RG) eC SPY 
OR4,e4SP) 
PLUSSY 
0200080, 05P 
4 (ae 


s3v 
8440341.4(97) 
008077353,5¢SP) 
42), (37) 
(3h), 0(SP) 
2($P),e(SP) 
849208 ,4¢SP) 


24SP),0(SP} 
2¢SP),0(SP) 
acsp 


6(SP) 

OGP , WUS761E 
Lasss? 

TNSSIP 

2587), 9030243 
Cussse 
6040806, 4(SP) 
#895222, 6($P) 
OgP, RO 
2¢9P),R3 
9254727,0¢8P) 
8449595,0(¢9P) 
RL, 0( SP) 
RB, oC ¥P) 

0( SP) 

#40200, 049°) 
0254787, 0¢8P) 


479 


490 


dy 


SATNAS 


5395 
3396 
3397 
5396 
5399 


5ae0 
errs 
5402 
5403 
54p4 
5405 
5406 
5407 
5486 
5409 


5448 


5433 
5412 
5445 
5434 
5415 
5426 
5447 
5418 
3419 
5428 
5423 
5422 
5423 
3424 
5425 
3426 
5427 
5428 
5429 
5430 
5433 
8432 
5433 
5434 
5435 
5436 
3437 
5438 
5439 
5aa0 
544s 
5442 
5445 
5444 
5445 
5446 


SAYNOS 


9447 
5448 
5449 
5450 
5454 
5452 
5453 
5454 
5455 
5456 
5457 
5456 
5459 
5460 
5464 
5462 
5463 
5464 
5465 
5466 
3467 
5468 
5469 
5470 
5474 
5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5489 
5484 
5482 
5483 
5484 
5485 
5486 
5487 
5488 
5489 
5499 
5494 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5508 
5504 


MACXL1 


883659! 
o93e54 
883656! 
oesoeg! 
8B3664! 
803672! 
aes7ag! 
883702! 
893706! 
ags719¢ 
083712! 
808714! 
983716! 
903722! 
g0s724/ 
893726! 
OOS734! 
893742 
693759 
883752! 
893754! 
893756! 
8935769! 
893764! 
093766! 
898770 
093774) 
aeseag! 
094902! 
oo4goa! 
004906) 
op4gi2! 
904916! 
og4o2g! 
0e4922/ 
aeageas 
094926! 
804058! 
9g4gs2/ 
094934! 
884936! 
094042! 
ag4geas 
oe4g5g 


MACKXLS 


Ve2s 


342746 
846146 
016046 
904467 
a92322) 
ceeeng! 
021608 
016604 
010146 
010046 
018146 
810046 
694467 
a92322/ 
904902! 
892322! 
TTT 
092322! 
ap0006/ 


‘oeageg! 


294936! 
8geg06) 
ag2706/ 
895726 
099205 
012666 
042666 
0994354 
232600 
032603 
032702 
842703 
ogeaee 
610146 
010046 
014246 
044246 
085383 
088372 
200434 
285766 
002482 
262726 
980134 


Vea. 


23eMARo7S §=14134 PAGE Tete 
8405355 MoV 8060535, 0(8P) 
Moy RO, 0(8P) 
MOV RO, 0(¥P) 
808222 Jgr R4,SPOL8H 
880882! 8837700 WORD «= SHILA, SHOR, UPSS9, SSBR, OVA, LL9SE9 
8ogase! B83720/ 
425839) MOV Og, Re 
sasoee Ov 2¢5P),R4 
mov RL, 0 SP) 
MOV RO, 0( SP) 
MOV Ra,etgP) 
MOV RO, 0 (§P) 
998154 Jer RO, SPOUSH 
iWORD SLR 
sWORD = PLYSS9 
egesee! BezIZ2t sWORD = - SUL SADR, SMLR, SADR, SMR, SAOR 
892322! aeeeee! 
aeons! ag2322 WORD = SHLAA SAOR SHR, SAOR 
WORD = SAOR 
WORD = SGNSSY 
»WORD = =SAQR 
oeg7e4s 2WORD «= SPOPRY, EXIS39 
EXtss9y TST CEP)e 
ays ay 
UPSS9y «MOV CHP )0, 49, (SP) 
MoV CEP) 4,48, (SP) 
Td OC Rae 
PLYSS9) MOV CSP) oy RO 
MoV CHP) O Re 
8G4076s MoV SGONS3904,R2 
ogeens MOV 05,R3 
OR PYas3y 
PY2SS91 MOV Ri,e(SP) 
MOV RO, 0($P) 
PYCSSO) MOV (RZ), 0(SP) 
MOV 4R2), a {SP} 
occ R: 
8GT PY2859 
MP O(Raje 
896010 SGNSS9) TST 8, ¢SP) 
8£0 SG4S5¥ 
ip9880 40D #480000,0SP 
S8GiS39) UMP OL Ra)e 
sENOC 
vJPFor =o FRY 
ATAN21 | SETF 
MOV 2(R9) RS 
MOV 46RD) ARO 
MOV ORS, RO 
MOV ORG RE 
660 INPS3¥ 
As ag 
CLRS Ro 
SWAB RB 
23eMARO73 «11134 = PAGE 7uhd 
asl, RY 
CURO Ry 
SWAB RY 
suB RE,RO 
CMP 26, ,KO 
BLY INFSSY 
Lor PISS9AFS 
LOF ORS, FO 
cree 
8GE AUPssy 
NEGF ry 
ALPS391 LOF ORO FE 
cree 
aL? AaMSSY 
CLRr ry 
A2MSS9| DIVE iiss 
BR aTassy 
INPS391 LDF PLaS3v,F. 
TST ary 
BCE EXIS3¥ 
NEGF ry 
BR EXIS3y 
ATANE Serr 
CLRF Fy 
LOF OZ(RS), FO 
ATISS9) CLR ng 
cree 
sr rg,rs 
CLRF r3 
8GE PLUSSY 
agsr va 
ING R4q 
PLUSION LOF OLL000S 
cuer PO .rS 
cree 
§Le Leasay 
GY{ss91 DEC R4 
Or rO,FS 
Lor FE.Fe. 
Lor PLESSy FS 
LE{S59) STF F3,F4 
CLRF rj 
cMPr TE585¥,F0 
cree 
8GE Lasssy 
LOF PLOSSVIFS 
Lor Fo.F 
MULF ATS$3¥,/0 
aver 940,78 
ADOF = RY S839, F4 
oyvr FLare 
LA5S39 LOF FO,F2 
MULF O,FO 
MOV SFCOSSP, RO 
“OV m4,R4 


TIES 


SATNGS 


SPOLa7 


5557 
3338 
5559 
5560 


MACXIL 


ge4e52! 
294056! 
oo4g62! 
884066! 
304072! 


884076! 
oe4ic0! 


MACXLS 


904102! 
004104! 
004119! 


804112! 
OB4114! 


304116! 


984122 
aa41249 
304159° 
0841320 


284434! 
304136! 
39444g° 
a94i42! 
o04144! 
804150! 
884156! 
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5578 
5606 


3694 
5441 
5284 
$695 


5562 
56530 


3699 
5409 
$122 


3400 
4833 
5578 


5447 
5585 
5987 


3993 
5443 
5386 
5a44 


5642 


3699 
$449 
$269 


3404 
4026 
5579 


025 

645 

924 
3026 
4095 
£176 
3243 
3299 
3383 
3707 
372 
4049 
4048 
4642 
505 
5673 
5423 
5354 
5375 
5393 


5448 
5589 
5608 


3094 
5504 


5877 
5945 


4397 
5373 


5289 


Sae6 
4637 
5566 


826 


846 


936 
1627 
1056 
1177 
3245 
3293 
3384 
3789 
3727 
4993 
4643 
40930 
5e07 
sa7e 
52425 
5336 
5376 
3393 


5420 
5590 
5609 


3697 
5597 


5289 
565ee 


46228 
3398 


5399 


Sosas 
48928 
5393 


820 

867 
1e0a8 
4926 
1958 
(189 
3249 
3297 
36558 
3744 
3728 
4095 
4643 
4897 
5009 
5975 
5127 
5357 
5377 
5394 


$424, 
5592 
56488 


5g44 


5374 


5a44 
5406 


366% 
a9age 
5001 


829 

949 
1833 
1929 
4059 
4195 
3239 
3299 
3673 
3743 
3729 
4996 
4646 
4898 
Se528 
3402 
3129 
5359 
5378 
5395 


5425 
5593 
5650 


50466 


53399 


5989 
5531 


3772 
5010 
9002 


838 

658 
3085 
1030 
1964 
1219 
3254 
3300 
3074 
3716 
3738 
donee 
4653 
4399 
5968 
S183 
5130 
5368 
3379 
5396 


5426 
5594 
5653 


5992 


3564 


509%, 
553798 


96 
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12 sTUTLE GASICH Vesga EDI? ag2g (REP) 24/33/75 
OaSIC SOURCE FILE #35 


rey 
rey 


USER AREA AND QNCESONLY INIY, Coe, 
To BE LINKED LAST AFTER BASICL AND FpmMpeis Yo Form BASiC, 


n 
es 
we eee ee eee eee 


AGT 
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29 ' 
38 1 GLOGALS 
34 i 
32 sGLO8L = ThBy TKS 
33 GLOBE eee FIELCO F 
34 1GLOBL v4 RAREA 
35 sGLOBL- LIMIT, POL, Sanayi POSIZE 
36 1GLOBL TABLES, TSL32 
37 1GLOBL COLUMN, Faca, “Pace, ‘RPAR 
38 1GLO8L ERRMIX, ERRPOL, ERRSYN, ERRAAG 
39 1GL08L EVAL, ite mAReay OPRATO, SOPRAT 
4 1GL08L ,SOMMA, Th, 72, 
43 1GL08L ARGE, iavdians NURSGN, STPRO 
42 1GL08, NORM, V 
43 1GhOB8L NDS, RNB 
i 1GLO8L SSTKSE ,[FPMP 
46 
“7 
48 
“y ' 
= i ASSEMBLY PARAMETERS 
52 sJPNOF STPOSE I TELEPRINTER BUFFER SiR 
53 sypasz2 ege IGHARACTERS 
3s sENDG 
J 
36 LIENOF SKBB8~ IKEYBQARO BYFF, SEE 
57 sxeas2 920 IGHARACTERS 
z ,ENDC 
f 
68 ; sJTNOF = SULNSP 1yser LINE space 
68 SULNSP 8420 1OYTES 
8@ vENOC 
6 
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64 oooeeat 1CSECT 

65 809000 RO 0x0 

66 TTT eS RL oxt 

67 900082 Re ex2 

68 apa003 R3 axs 

69 890804 R4 ax 

70 oooous RB axs 

71 800026 sP 9x6 

72 880807 rc ax? 

73 a9004e aL 94a 

74 

73 «o09e00' coageo VARAAEAS HORD a 

76 ASICHI 

7 ime FUNCTION ee GENERATE RanDbh NUMBER 

78 SCAN PAST ARG IF PRESENT 

79 900002! 084737 ceeRORG RNOLFNI usr PG, OAEVAL 

88 888806! 103452 acs ERRNDA 

84 seee%0! 122127 senoReG cups (R94) 9,8, RPAR 

82 g90e14! a81945 BNE ERRNOS 

83 RNOFNG 

84 988016! 019500 RNOFN2) MOV R5,RO 

85 g80920' 462700 eeaBeRG . ano aRNOZ, RE 

86 988824! 44003 MOV ORB,R 

87 9009026! a14002 MOV (RD) GRA : 

86 860838" 0846323 asl Ry _  bMUR? BY 2 

89 880032! 086192 ROL, R 

90 880834! 262002 400 iNOW BY S 

94 880036! 264903 aco 

92 a00840! 85522 Age : 

93 990042! 261002 aoo iNOW BY 2ee16eS 
94 «980044! 190082 BPL 

95 080046! 262702 190008 aoo (ger 2eeS2eG 

96 «900052 010310 RPLUST MOV iS?ORre New GENERATORS 
97 900054! 819240 MOV 

98 990056! 212708 sonzey MoV a FINDTIAL EXPONENT 
99 982062! 286303 RNORM| ASL Ry IFLOAY RESULT 
128 «990064! 286192 ROL Re 

124 300066! 1039402 acs REXP 1VUMP WHEN pening atY Founo 
422 390070 385300 OEE Rg JADVUST EXPONENT FOR SWIF 
403 800072" 208773 eR RNORM 

204 «990074' 198903 REXP) CLR Ry 

305 «380076! 150203 888 R2,RS 

126 «980408! 288303 swag Ry 

107 «290102! 195902 CLR Ra 

498 990104! 459902 oy3o RB,R2 VINSER® EXPONENT INTO RESULT 
409 «300106! 280302 Swas Re 

118 «080110! 206002 ROR Re 

114 990112! 306803 ROR Ry HINSERT © SIGN 
142 -300114/ 040265 ceenees MOV RE PACSCRS) 

413° 000120' 049365 cegness MOV RI, PAGACRS) 

144 200324! 380157 oae0006 ump OSOPRATOR 

115 «200130! 090137 saag0e6 ERRNOS) UMP OUCRREYN 

146 © -280134' 600137 Bo00006 ZRANDA} UMP OSERRARG SO 
147 RNOFNEI 


BASICH 


BASICH 


MACXAS 


9602 

eeesee! 
808162! 
opaisd! 
800172 
898174! 
oeezeg! 
098282! 
898286! 
egezie! 
geezie! 
898222 
690226! 
086232! 


MACKXSL 


880z356! 
890242! 
aen244! 
oee2sg! 
880252! 
gee2sa! 
age2se! 
geeze2! 
800266! 
090270! 
80272! 
o9e274/ 
808276! 
ogoseg! 
o90304! 
apesia! 
o90314! 
agesze 


ye2s 


8647357 
103439 


090137 
oes? 


veas 


8847357 
103424 


ee0157 
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ta@S FUNCTION ROUTING 
NE JgR 


ager PG, @eCVAL 
S RABSA 
CHORD (ALO) 8, RPAR 
ONC CRABS 
oseveds Th FAGLIRD) 
14) ABSINT 
or, agsx 
ieee0e oeoeees ore eyeoven, Fags (RS) 
ar ABSx 
ovogees ABSENT! TST PAC2(KS) 
on, asx 
eosevaG NES FACZ(RS) 
ve apsx 
844000 o980006 MOV 9446000, FAGL(RS) 
seeeces CUR PACA(KS) 
oogeeEG ABSX1 = UMP OBOPRATOR 
9808006 ERABSAY SMP OBERRARG 
seoeves ERAGSS} yMP OBERASYN 


ABSFNE} 
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ISON du as ROUTINE 


ogooves SGNFNI JSR PC, @MEVAL 
acs ERSGNA 
gpen0eG cMPe CRE) O, 8, RPAR 
ane ERSGNS 
CLR Re 
oeoeess TST FACA(R5) 
ane SGNFLE 
cepuees Ts? FAQS(AS) 
sea SGNX 
SGNFLT) GPL SGNPOS 
ogc Ro 
oR 164 
SGNPOS| INC RO 
MoV RO, FAGZCRS) 
CUR FACL(RS) 
SGNXt = JHP @#OPRATOR 
ERSGNA] UMP OBERRARG 
ERSGNS| UMP OBERRSYN 


SGNFNE} 


SOA 
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463 JTAB FUNCTION ROUTINE 
464 889324! O84757 caeoes TAQFNI i, sORARGB 


= 
ae}! 


$63 «980358! 122127 B680080 (RL) O,8,RPAR 
366 890336) OBi056 BNE ERTABS 

367 308336! 995946 CUR 0(8P) 

268 880348! 116516 o90B006 MOVE FACZ(RS), SP) 
469 389344! 324627 a003%0 Tag8} =sCMP (8?) 872, 
170 880350! LO3403 BLO Taae 

174 888352! 162716 B00310 sue 872,537) 
172 «880356! 200772 : ar TASB 

273 280368 167516 aeonees TaBC! ©8UB OCOLUMNCRS), (SP) 
274 900364 188004 aPL 164 

275 000366! 005046 CLR (3P) 

376 080378! Be4002 ONE “TABNON 

277 «990372! 385316 bec CSP) 

378 080374! BoB4%4 or TABNULL 

179 «080376! 339508 TABNON} MOV R9,RZ 

488 990400! 304737 soaDeRG usr PG, OBMAKESTR 
383 090404! 931688 MOV C$P), Re 

282 o00406/ cosas CLR R 

$83 c00410! 15100 8188 CRO) KZ 

284 980412! 262708 feg083 400 OF,RO 

385 300416! 112728 ceonse Move BL (ROS 
386 300422! 998302 oge Rg 

287 980424! GB3374 ac’ rT) 

288 998426! 9601537 soBn08G TABNULL I JMP OBSOPRATR 
489 «380432! o8e437 sage00G ERPABS) UMP OBERRSYN 

198 TABFNE) 

$92 

492 
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193 ‘ 1_LEN FUNCTION ROUTINE 

194 290436/ 094737 seeeved LENFNE JSR PG, ONEVAL 
495 080442! 193036 Bcc ERLENA 

496 280444) 122127 sape000 cure (RL) 0,8, RPAR 
197 990450! g94015 BNE ERLENY 

498 080452) 995965 ooog006 CLR FACLCKS) 

499 990456! a85065 so00006 cur Fac2(As) 

288 289462! 912602 MOV {$P)6,R2 

204 900464! a958202 INC Rg 

202 200466! aa4402 Bea 196 

223 999470! 134265 opeg006 MOVE =—-® (RZ), FACZERS) 
204 280474) B80137 sa8R08G uP owoPRATOR 
205 080509' 290137 oagec0G ERUENA} UMP ORERRAAG 

206 980584! 290137 soeo00G ERLENS| JMP ONERRSYN 

Hd LENFNEI 


BASICH 


BAS{CH 


MACXS2 


900519! 
ooe514! 
890516! 
998522 
eges2a/ 
880526! 
8085352! 
988534! 
000549! 
880542! 
890546! 
880552! 
856g! 
280564) 
909579! 


a8 
g9eos4! 
ogeeze! 
990622! 
98626) 
2g8639! 
898636! 
300642! 


MACX11 


080646! 
800052 
008654! 
oeeesg! 
600662! 
880666! 
698679! 
060674! 
008676! 
980702! 
oeo7e4! 
ooe7s8! 
oo0714/ 
000716! 
oe729! 
ogo724 
008726! 
000732! 
080734! 


086749" 
990746! 
009758! 
886752! 


800754) 
000756) 


900762! 
080706! 


808779! 
808772! 
900774) 
800776" 


901900! 
881982! 
981206! 
881010! 
B0sg14! 
absie2e! 
@84922! 


981826! 
891030! 
Be1954! 
081049! 
ooiresel 
001044) 


201059! 
881852! 
01054! 


veas 


004737 
193823 
122127 
081022 
042608 
820227 
ob4434 
121227 
TPT PSS 
095965 
903905 
136265 
008137 
690137 
00137 


984737 


200157 
900137 


Vead 


004737 
1838133 


156509 


826627 
881902 
885008 
OOH464 


885002 
1576082 


821627 
881904 


azoen2 
903454 
840289 
080452 


885003 
157683 
261603 
62783 
218365 
232685 
262783 


861602 
362702 
019265 
812602 
868802 
262702 


121322 
801406 
905208 
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egeueeg 
oesaees 


279777 
88008) 


seeneeG 
ogeeeeG 
O8Cs05 Bee8006 
eeoevec 
epegeeG 
egoeeeG 


seggees 
oepeees 
eeezee sescees 
290ee3 


ogeeseG 
og00e89 oseces 


ogagees 
egea06 


» ase rungrtoN ROUTING 


ASCFNI Pes segvay 
ie CRASCA 
CMPB (Re lene, RPAR 
ONE ERASCS 
MoV (§P)OyRe 
CMP RB, 8477777 
BEG ERASCA 


CLR PACA (KS) 
GUR PAGQCKS) 
MOVE ohonaatonee 


J 
ERASCAY UMP OBERRARG 
ERASCS) JMP OWERRSYN 
ASCFNE| 


1 HRS FUNCTION ROUTINE 
CHRSFN| JSR PG, OeARGB 
MPa Chains: sRPAR 
HR 


ec 
oyce i dea) eal HVAKE CHAR MOD 428 
MOV a 


MoV R2 
vgn Pe OSMAKESTR 
MOV C$P), Re 
MOVE Facatns) ,9(RO} 
ume OsSOPR 

ERCHRS| UMP SeRneayN 


CHRFNES 
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agaeees 
age9e06 
ogeeees 
seegegG 
oagnees 
ageeves 
ogegees 
oeeeees 
aeeoues 
oeeees 
eepee2 477777 


000002 
177777 


208003 
openees 


890005 


o90e03 
8908006 


eogeee 


U pee Pi ROUTING 


POSFNI VSR eiasen 
ae 
CMPB (ma 44# COWRA 
BNE ERPOSS 
vgn PG, eagVAL 
ace ERPOSA 


CHPR (R44) 8, COMMA 

BNE ERPOSS 

Jgr PG, ONEVAL 
ERPOSA 


ecs , 
JgR PG, OMINT 
CMPB (RL) O pH, RPAR 
BNE RPOSS 
CLR RO 
TS? paca tas) 
BNE 
TST rhea) 
ae Posy 
8j3a FACZ(RS) RO sRO ISN 
HCMECK NULL XS 
CMP 2(9P) 0277777 
BNE PO8x 
CUR Re 
BR posr 
HCOMPUTE LENGTH OF XS 
Posx! = GLR Rg 
$ ©2($P),R2 
ICHECK NULL YS 
CMP ($P) 98477777 
BNE POsY 
JNULL YS, ANS 3S MIN(NSLENCXS)) 
cur RO, RZ 
OLE rosr 
MOV RS, RO 
Po 


RY 
BSB (SP), RS 


aod ($P) RS 
ADD a3, RS 
HOV RS, T2 (RB) 
MOV ($P) 4) R3 
AOD a§,R3 
HSAVE ADOR OF END OF XS IN T4 
aoo (SP), K2 
A000 #3, R2 
MOV RA TAGRS) 
MOV ($P) 4,2 
et 
42,R 
IFIND MATCHING FIRST CHARASTER S06 


POSFST! CHPG CRS), (R20 
BEO POSREM 
POSTRY) INC Ro ~“ 
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298 981956! 920265 seee0RG ld RI TLIRG) 
299 881062! 094372 ONE posrst 

Jee aeig64! aeSaee CLR 

304 084966! 090437 OR Pgsre 

3e2 ICHECK THAT REMAINING GHARS MATCH 
3o3 ge1e70" 810246 POSREM| MOV RZ, 0(9P) 
384 881872! 210346 MOV Rave(HP) 
305 384074! oB5203 ING 

386 G81876! 220365 seve POSNXT) CMP me T2hA5) 
307 901192! oeseie ste rosr 

308 «284194! 020265 BeoRERG oMP R2,745R5) 
329 gosiio! 903602 860 —-POBNG 

348° 884212! 122225 cure CREDO CRSIO 
324 -804214/ 001778 bEO POSNXT 

342 094116! 042603 PoaNo; MOV CEP OARS 
343 804120" 312682 MOV eeaeane 
314 094222! 280756 BR Post 

345 RETURN FROK Poneto 

316 804424/ 022626 Posi = CMP Po, (SPO 
347 094126 020065 ooog00G Posret MOV RB, PAGZCAS) 
348 004132 299969 ogaeoRs CLR FAGS(HS) 
349 «304436! aeax37 ogooeeG uMp @SOPRATOR 
320 381142! ce0137 ogagoeG ERPOSA} UMP @OERRAAG 
322 804146! g90137 soeeeeG ERPOSS| UMP OWERRYYN 
322 POSFNE} 

32 

32 
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325 1 SEG FUNCTION ROUTING 

326 081152! 904787 oeevods SEGFNI usr PG esEVAL 

327 881156! 103114 - cs ERSEGA 

328 901160! 122327 2900086 MPG Ri) Sue SeHMA 
329 001264" 304113 BNE ERS 

338 981166! 904737 seeB00G vgr rageabVAL 

334 904172! 103506 BCs 

332 901174! 096737 9980086 usr ReSeeiNT 

333 901208! 336546 9090006 MOV FAGL(RS) ,0(SP) 
334 001204! 236546 20008RG MOV FAGZ(RS) ,0(SP) 
335 081210! 122127 8088006 compa thereat COMMA 
33§ 884214! 001877 BNE EGS 

337 381216! 004737 so00086 vr PespaEvaL 

338 881222! 103472 ecs 

339 981224! 994737 Be00086 JSR He seeiNT 

348 001230! 122127 eeoRee6 cure (Rie @,RPAR 
343 o01234" 994967 BNE ERSEGS 

342 1GET X VALUE IN R 

343 081236! 012602 MQV (SP) Og RZ 

344 «801240 012608 MOV CSP) 6)RB 

345 601242! 100403 emt SEOXO 

346 801244! 004055 ONC SEGNUL 

347 881246! 905702 ' 187 R2 

348 081250! 203002 BGT SEGL 

349 081252! 312702 s0000% SEGX} MOV O4,R2 

350 HCOMPUTE LENGTH OF AS IN RO 
354 001256! 2e50¢ SEGL! CLR Rd 

352 901260! 324627 177777 ome (SP) 8477797 IGHECK NULL STRING 
353 001264! 157908 ageo0e Byse 0¢SP),RO 

354 seer. Y VALUE IN RJ 

355° 081270! 985765 seeneeG SEcTY! TS? FAGLCRS) 

356 301274 19044 emt SEGNUL 

357 381276! 80140 BEC. SEGTYS 

356 091308" 240803 MOV RO,RS 

359 901302! 288403 eR SEGRNG 

368 201304! 014523 aaa00e6 SEGTY21 MOV FACZ(RS) RS 
364 G84318/ 393433 S34 SEONUL 

362 ICHECK BCeR2¢SRSCERG 

363 981312! 220003 SEGRNG! CMP ROARS 

364 aO1514/ 104004 ont SEGR2 

365 881316! G18003 MOV RO,RS 

366 981320! o29203 SEQRZt GMP Ra,RS 

367 381322! 194926 8 "it 

368 ICOMPUTE LENGTH of OULPUT STRING 
369 391324! 160283 sys 


378 981326! 398203 INC a 

373 JMAKE NEW STRING OF THE CORRECT LENGTH 

372 BB1338! 010246 MOV R30 ¥P) ISAVE START CHAR 
373 801332! 040502 MOV AS RZ 

374 «981334! 940346 MOV RY, oC HP) 

375 3843536! 384737 3998006 Jr 9G, OeMAKESTR 

376 WFLX STACK AND nove IN CHARS mon ig STRING 

377 881342" 042602 MOV (GP) 0,R2 NEW arate POINTER 
378 881544! 312600 MoV (GPO, 88 HeTAR? CHA 


379) 884346! 061608 aod C9P) RO ya00 O10 amr POINTER 


ee 


BASICH 


BASICH 
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001550 
881352" 
981354! 
001356! 
091362! 
891366! 
001370" 
804372! 
861574! 


083400! 
0014044 
884410! 
6044148 


MACX24 


001429 
oa1424 
084426! 
001432! 


301434/ 
801436! 
201442! 
881444! 
og145e! 
801454! 
001456! 
901400! 
081462! 
004464! 
091466! 
081472! 
oase74s 
001476! 
oo1sag! 
oe1502! 


01504! 


001510! 
ooi5i4/ 
881529! 


B01524 
881526! 
801539! 
081534 


081536! 
891549! 
001542! 
081544! 
381546! 
284550! 
904552! 
981556! 
084562! 


ves 
030216 


600157 


232726 
9601357 
060187 
ooeisy 


vos 


884737 
193856 
122127 


201054 


811609 
9g0ee7 
08186 
995065 
885905 
095726 
980455 
985082 
134802 
810216 
062700 
og0e2 
193042 
940446 
010246 
028246 


0847357 


804757 
810365 
810465 


189716 


OB1773 


820026 
984818 
912603 
232606 
832682 
132239 
380357 
990157 
200137 


22eMARe73 


8808086 
479777 
oeegeas 


egee0eG 
0988886 


22eMARe7S 
soeeeec 


479777 
sveseee 


090805 


eeooees 


8088806 
oeeoeeG 
0920086 


090048 


15445 


SEGLPI aor 


PAGE diet 


RZ, (8P) 


Ry 

(R27, KS 
63,22 

62,20 
(RB) Oy (R200 
ay 


SEGLP 
asatono 


YOUTPUT we STRING 


SEGNULY MOV 
SEGX! MP 
ERSEGA, JMP 
ERSEGS| UMP 
SEGFNE} 
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8477777, (3P) 
OBSOPHATR 
OSERRARG 
OBERREYN 


} VAL FUNCTION ROUTINE 


VALFNE JSR 
sce 
Cura 
BNE 

PREAD STRING 
MOV 


8 
VALRI CLR 
8 


(yr) 
sREAD asciy ee ANG eas 
eey 
INORMALTZE. TO VORM FLT PT NUMBER 
JSR @NORM 


PG, 08 
nov ROFACLCRS) 
MOV RO, FAGZCRS) 
ICHECK ENO OF STRING 
VALCEE STB {RO} 
8€0 VALX 
cMPe yh le 
oa 
pat He eel ange RE yen To EVAL 
ALK af 
BNE ERVALA 
"OV (SPO, RY 
MOV (SP) O RO 
MOV CHP) OyRZ 
MOVE RQ, (RO) 
VALJt MP @SOPRATOR 
ERVALS) JUMP OSERRSYN 
ERVALAL JMP OSERRARG 


VALFNE} 


PS, ONEVAL 
ERVALA 
(RL) e,8,RPAR 
ERVALS 


(SP),KO 
RO ,0277777 
VA 


VALR 
FACSCRS) 
FACQ(RS) 
($P)e 
VAL 

2 


LR 
(RB) RZ 


A, (87) 
oF, Re 
RO,R2 
(RB) 
LTYET? Ld) 
ot eb 
Rese 


HSAVE NEW STRING 
#RS {8 NEW STRING LENGTH 
FADOR FIRST CHAR JN NEW STR 


pADDR START. CHAR JN OLD STR 
IPTLL IN NEW STRING 


WCHECK NULL STRING 


pRESTORE STRING LENGTH 


5/0 


SN 


ae 


BASICH 


443 
44g 
445 
446 
447 
448 
449 
450 
453 
452 
453 
454 
455 
456 
457 
458 
459 
460 
463 
462 
463 
404 
465 
466 
467 
4668 
469 


BASICH 


478 
. 474 
472 
ayy 
474 
475 
476 
4677 
478 
479 
480 
484 
482 
483 
484 
485 
486 
487 
46a 
489 
498 
494 
492 
493 
494 
495 
496 
497 
498 
499 
509 
oe4 
502 
583 
504 
505 
906 
507 
9e8 
5ay 
218 
D1. 
512 
913 
544 
515 
516 


MACKLD 


891566! 
084572! 
091574! 
o916e8! 
aereee! 
091606) 
oo16i1g! 
ae16re! 
BOL616! 
801622! 
884626! 
801632! 
801636! 
881640! 
281642! 
021646! 
094652! 
901654! 


091660! 
801664! 


MACX11 


801670! 
801672! 
904674! 
884676! 
981700! 
a1702! 
801704! 
881706! 
aa1710! 
004722! 
o04714/ 
084716! 
004729! 
o04722! 
oe1724/ 
881726! 
804750! 
801732! 
901734! 
884736! 
281740! 
004742! 
004744! 
301746! 
081750! 
#04752! 
901754! 
201756! 
804768! 
684762! 
801764! 
901766! 
204767! 
981779! 
9e4772! 
oo1774! 
981776! 
9047775 
ap2gee! 
882983! 
o92on2! 
oe2003! 


Veas 


884737 
183432 
122127 
8BL95% 
842746 
810502 
04757 
811603 
262703 
830305 
005868 
004757 
9208086 
820688 
816346 
894737 
812616 
088137 


080337 
090437 


vo2s 


oBeeee 
009928 
3880008 
oeeeee 
890089 
890008 
890988 
oe2216/ 
oo2g7al 
oeeoee 
800820 
200808 
200000 
890080 
800008 
880008 
899009 
200908 
882008 
C899 
800008 
892908 
980009 
800000 
800088 
eooge8 
880008 
eeeeee 
800800 
880089 
800808 
820 
TT) 
oe2eee? 
ap2gvel 
209808 
820 
208 
ee 
oe0 
88 
009 


22eMARe7S 


opegeeg 
seouees 
809020 
peoe2s 
opo203 
geo92eG 


8990086 
8900086 


8030886 
a90008G 
eeenees 


898e00G 
o80e086 


22eMARe7S 
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1 STR FUNCTION ROUTIN 


STRFNE VSR 
acs 


MPS 
one 
MoV 
MoV 


ERSTRA} UMP 
ERSTRS} UMP 
STRFNE 
FNENO! 
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PG, ORVAL 
ERSTRA 
(REO, 8, RPAR 
EASTRE 

826, 0(8P) 


R5,R2 
PG, OWMAKESTR 
¢$P), 43 


SAVCHAR 

SP ,R2 
TEIRSQ eC SP) 
PG, SOMAKESTR 
(§P) 0, (SP) 
OaSTPRO 


OBERRARG 
ONERRSYN 


' 
' 
) USER AREA STORAGE CELLS 
' 
U 


srt sWORO 
s WORD 
WORD 
WORD 
‘WORD 
(WORD 
WORD 
a WORD 
WORD 
aWORD 
WORD 
WORD 
WORD 
WORD 
s WORD 
WORD 
a WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
‘WORD 
WORD 
WORD 
+ WORD 
WORD 
WORD 

RANDY WORD 
WORD 
WORD 
sOYTE 
BYTE 
ry 
ry 
eWORD 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


ccaeaarzraaa 


SRCOUE 
RULING 


TPBFHE 


x 
a 
a 
= 
x 
- 


IPROTECT STRING 


HSYMBOLS 
aLIMt? 
PO, 
pPoSt2e 
JARRAYS 
JHIFREE 
sLOFREE 
1600e 
TRINE 
/VARSAV 
sSSYSAV 
y$S2sav 
TLINENO 
1GSCTR 
COLUMN 
sCLMNTTY 
iP ACt 
ace 
pROSAVE 
PRLISAVE 
PRESAVE 
IRSSAVE 
PRASAVE 
ve 

v2 

173 
pRNOL 
PRNOZ 
yRNOCY 
sLOSTR 
PHISTR 
sQDEV 
1IDEV 
sTPHD 
1KOHO 
1ECHOSP 
yCNCFLS 
IGNOFLE 
IFITLLCS 
IFYULNG 
IPILLCH 
y CSPARE BYTE) 


— 


cre 


BASICH 


BAS}CH 


MACX21 


ee2one 
ae2006! 
o02018/ 
oe2e%2! 
eo2gie! 
o82016! 


982049° 
092942° 
862044! 
oe 


MACX12 


02214! 
992229! 
882222! 


092224! 
882226! 
092232! 
8022356! 
ag2244/ 
882259! 
992252! 
9822690° 


892264! 


oe2z278° 
802274 
882276! 
oo2304/ 
082311! 
892313! 
O02329/ 
082326! 
892334! 
882342! 
892359! 
892352! 
882353! 


8823544 
a8256g° 
802364! 
882366! 
682379! 
OB2374! 
BB2576! 
Be2eee! 
992462¢ 
082406! 


av24ig¢ 
002414! 
092417! 
ae2424) 
002432! 
802433! 
902434! 
ag2e4g! 


O92444) 


vO2a 


oeesze) 
op2es7! 
ov2pes! 
ep2eee! 
oe2ezg! 
o9eg00 

op2gze! 
se2esg! 
992937! 


ee2esel 
ao2073! 
oseeae 

egagse! 
202854! 
TTL) 

002954! 
ee2p7a! 
e92973/ 


go22i4l 


yeas 


162786 
022626 
890432 


840467 


822704 
004367 


881350 
894367 


822705 
832706 


031525 


22eMARe73S 


22emARo7S 


847779 


aassees 
8990806 
oe2zi4s 
160000 


ag9009 
904108 
ooeane! 
990756 


000722 
9B8116 


898203 


990313 


0886356 

bie 
626534 
047968 


OBS3740 
Beoeees 


oeeee4 


ogene4 


820193 
383 


043068 
026504 
047948 
026105 
942116 


842 
p42534 
047055 
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’ 
i USER 1/0 BUFFER AND SUFFER WOR, SPACE (TTY) 
KBaFHA} ¢ Keaurs sOaTRe 
e KOBENY sBEND 
,WORO = KBBUFS (OGETL 
WORD) = KOBUFS 10GET2 
WORD rosura 1OPUT 
18PSPEC 
Keeurs 
; *; sognaesy JOZFAULT SIZE # 28 CHARS, 
KBQENS 
"EVEN 
' 
TROFHS) © TeeUre iesTRT 
° TPRENS 1OENO 
8 VOCETL (NOT USED) 
TPBUrS HBGET2 
TPBUrS sorur 
8 sargrce 
rPeUrs a at 
8 OuTPeSE JOCFAULT » 20 CHARS 
$recns ’ VET 8 ¢ . 
EV! 
USRLINEL 
10) @SULNGP JORFAULT @ 428 
UsAcooe! 
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4 
1 weONCEPONLY INIT, CODE 

' FINO OUT HOW MUCH CORE AND EXPAND USRAREA ACCORDINGLY - 
i 

Ol 


EeCoReI sys 047770,R4 
cue 


IGOME HERE ON TRAP FOR BAQ MEM, 
CSP) 01 (SP)e 


eR TRYCORE y REPL, AND DEC, CORE Stze 
1 
ONCEONLIRESET 
MOV STMPSTCK, SP 17eMP, STACK 
usr PC, IP PMP TINT? POR FPMP ROUTINES 
MOV AOECCORE, 006 i3et UP TRAP AOOR, 
MOV susonae, R4 128K 
TRYCOREITSY Ra) HTRAPS TO OEGCORE [F BAD ADDR 
MOV s 1006 SPALLS THRU JF OK e@ RESTORE TRAP ADOR, 


MOV ROAHIGORE 
VINITIALLZE TOP oF Rae 

MOV ASTCH ARE 
IPRINT HEADING ang READ ANSWER 
INEHOE JSR ees 


13, 
sASCTY taAsiG veaqal 


25,42 
sASGIT ' OPT ENSt AeALL, NeNONE, JetNO! 


sBYTE = 45542 
sASCTT FGF 
BYTE 68 
EVEN 
Jsr GROANS : 
cups ROBIN CHECK FOR N 
seo INgSAV 
CLR Rg FGLEAR ALL FLAG 
cure RO,BIA IGHECK FOR A 
ONE INETL 
INE R2 sSOT ALL FLAG 
BR TNT ALL 

INfTIy CHPe RB, ahh sCHECK FOR J 
BNE INTHO 

SPRINT HEADING FOR inant FUNCTIONS 
JgR RG,PR 7 
BYTE 150420 


ASCII ¢ ee? NeNOE 


,BYTE 8 
INTALLY MOV NTAB,RS 

MOV sTAGLES RS 
IGE? NEXT FuNeriOR siege ADORESS 
INfLPL MOV 


SIF 


ats 
a 
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$93 992446! 190005 oPL INTPN 
594 992459! 262705 gpese2 400 93,R5 pSK1P A FUNCTION 
595 992454! 262704 BBBees aoo O3,R4 ; 
596 gg2eeg! 200772 BR INSLP 
597 TPRINT QUESTION FOR FUNCTION, SET ANSWER 
598 o92462! azgazy aegc0eG TNTFNY CMP RO, OTULSENG 
999 992466! 181094 BHE INTSAY 
$88 982478! 229527 B05944/ CMP RS, SPNTABDE 
60% 992474) 193046 BHIS INSSAV 
02 082476! cas70g TS? R 
683 g9250e0/ o01927 SNE INJOF 
604 082502! 036567 ceeges ceonie MOV 4(R5) )FNNAMS 
$05 g92516/ 036567 seeseg BeeaLs MOV O6RS5)  PNNAM2 
$06 082516! B04307 B00538 ygr RY, PRNSG 
07 «392522 oss 942 sBYTE = 459 542 
09 392524! seegce FNNAMZ) ,WORD @ 
909 992526! sepeee FNNAM2) ,WORO) 
19 «882530! 2380409 040 sABCTE Foyt 
613 002533! aog BYTE 68 
612 vEVEN 
O13 092534! 894767 000542 Use PG, ROANS 
614 «992540! 120927 900426 Cure RO,9IN TCHECK FOR N 
$15 92544! geige? ONE INTTY 
616 982546! 095724 13? (Raye 
017 «082550! goadss BR UNINKT 
160 882552! 129027 290353 INTTY) « CHPE RO wry IGRECK FOR Y 
619 «092556! a04362 “NE INJPN 
620 HORFINE THE FUNCTION 
$23 992569! 936196 INfOrF) MOV stiee 
$22 082562! 192709 se9n0e0 sys eTABLES, Re ; 
23 392566! o26a24 Mov RO, (RA) (PLACE AOCDRESS IN TABLE 
624 992570 242323 INTMVE MOV (adres (Ra )e 
$25 982572! 928369 seoue? cP RY, 2085) 
626 «9825764 183774 610 INTMY 
627 o82zeue! g62709 s90818 INENXT? ADO 840,89 
$28 302604) 220427 aone00G cur R4, OTOLSEND 
992610! 194715 6,08 INTLP 
633 ISAVE TOP OF BASIC 
632 082612! 210167 175262 INTSaV| MOV RE VSRAREA 
O33 MOVE USER AREA TO TOP OF BASIE 
$34 082626' 212708 984078! MoV SYSR,K 
$39 ae2622! o1820 Mov RZ, AS ICOMPUTE RELOCATION CONSTANT 
636 992624) 16030 aye myers 
@37 092626! o29227 B62234! MOVLP) CMP RG, eUSRCOOR 
O38 002632! 193805 BHIS MQVOON 
39 992634! 932223 MoV CREO (RIS 
648 882636! 201773 sca MOVLP 
043 892640! 168343 sus RY, 0(KE) PRELOCATE NONSHERO ENTRICS 
442 992642! 909723 CR4)e 
“4 092644 990779 ; MOVLP 
ae MOVOONI 
645 as 
BAS{CH MACX24 YO2L 22eMAR7S 15145 = PAGE 47 
646 
o47 HINITIALSEE USER AREA : 
648 002646! 234704 880512 MOV HICORE,R4 JRO 3$ HIGHEST ADOR, IN CORE 
649 992652! 168704 cogzeo sue ofoa,R4 
658 892056! 546705 175336 MOV USRARCA, RS 
65% 282662! 219469 geagced MoV R4,LIMIT ORS) é 
652 082666! 162704 caers4 sys Wasa, ne (POINTER SPAGE 
653 282672! 918465 seeBeeG MOV RG, POLERS) WOASE OF STACK 
654 «982076! 162704 a900886 sve WESTKSE, RE HMAX, STACK SURE 
655 992782! 219465 see008G MOV RG, ARKAYS(RS)  jHYEST ARRAY STOR, LOC, 
659 982706) 262704 960040 ago 046,24 
057 9827142! a3946§ segeeed mov Maicot an a5) 
658 202726! 032765 23233, see8R80 MOV 033334, ANOGERS) 
959 092724! 232765 163253 seeeneG MoV #465294, RNG2CR5) 
660 
664 JOLALOGUE TO SET VP TERMINAL TYPE 
962 882732! o95803 ASRSER| CLR RS 
663 882754! 394367 298312 vse RY, PRNSG 
664 BB2749! 913 ote o12 sBYTE = 45442082 
665 082743! 406 054503 o20124 sASCIL FAST SER VERME! 
O82759/ 42523 B281z22 242526 
882756! 846522 077 
666 «002764! eee BYTE 8 
667 1EVEN 
668 882762! 984767 888324 usr PG, ROANS 
669 682766! 120827 998116 curs RO, 8'N 
678 882772! 081457 aco ASKOON 
674 882774 120027 980153 cMee Re,ery 
672 883008! 804354 UNE AGKSER 
673 o83082! 389283 INC RS 
674 
675 983084! 284367 390242 ASKLAL JSR AZ, PRHSG 
676 «ae3e18! 015 ei2 :BYTE «= 43,22 
677 O83012! 240544 038863 24040 sASCIT ‘4A3@ (388 BAUD)?! 


a9Se2G! B3eess B29B08 248502 
093026! 342125 037453 


478 093032! Tr) BYTE @ 

679 903836) 1 EVEN 

680 8830344 094767 290242 vgr PG,ROANS 
68% 083040! 120827 098354 cure RO, ery 
682 383044! 981432 gea ASKOON 
683 383046! 128827 B9d116 cuee ROBIN 
684 883052! 204354 ONE ASKLA 
685 083054! b95203 ING RY 

686 

687 883056! 094367 880470 ASKVT| «JSR RY, PRMSG 
688 3a3e62 o15 912 sBYTE =. 4.5542 
689 283094! 252126 232468 824049 sASCIL «1 V7GS (28908 GAUDI! 


883072! 836476 930060 920060 
883498! 949802 642425 8357451 


698 983106! 028 sBYTE 68 

O94 393110! 1GVEN S/b 
692 O83118' 304767 000366 JSR PG, ROANS 

693 983114! 120827 200254 cMPe AB,e'Y 


694 «ga3128! 294404 [T°] ASKOON 


BAS{CH 


695 
696 
097 
698 
699 
728 
78% 
702 


em 


BASICH 


747 
748 
749 
738 
734 
752 
753 
754 
755 
756 
737 
758 
759 
768 
764 
762 
763 
764 
765 
766 
767 
768 
769 
778 
774 
772 
773 
774 
775 
776 
777 
778 
779 
78e 
784 
782 
783 
784 
785 
786 
787 
788 
789 
798 
79% 
792 
793 
796 
795 
796 
797 
798 
799 
608 
804 


MACX21 


803122! 
893126! 
80315a! 


993332! 
895434! 
893236! 
8534! 
983342! 
883246! 
903459! 
o83154! 
893156! 
oe3i69/ 


83162 
893166! 
603179! 
803474! 
903377! 
eosze4! 
893212! 
883216! 


ogS2z9° 
oes22e/ 
888227! 


8eS259! 
OBS234! 
898236! 
a9324g! 
883244! 


B8S246! 


883252 
ge3254/ 
ogs2eg! 
883262! 
993266! 
o9s279/ 
883272! 
083274! 
983276! 
883300+ 


8853026 
OB3S306! 


MACX21 


863312! 
093314! 
aa332e! 
aas324/ 
883330! 
BO3334 
BBS336! 
883342! 


883364! 


OBS366! 
803371! 


893374! 
803376! 
983400! 
83404! 
883406! 
oeS4ig! 
883412! 
aosaie! 
003416! 
803429! 
903422! 
003424! 
883426! 
803432! 
803434! 
083436! 
803449! 
03444! 
083446! 
80345g0 
O9S454! 
883456! 
a0340g! 
O8S464! 
203466! 
003479! 
883474! 
883476! 
093500! 
603504! 
803506! 
9935.9! 
gossia! 
ae3546! 
ea3s2eé 
003524! 
883526! 
883539! 


vee. 


120027 
081353 
990708 


819382 
081412 
886503 
860382 
862782 
019503 
862703 
122223 
122223 
142223 


895737 
rT Tesy) 
004367 


847186 
o42aa% 


eee 
eesa2s/ 


004367 
915 
908 


832782 
032203 
864403 
962703 
810312 


980267 


90308 
188737 
180375 
122937 
881372 
229083 
895203 
206203 
806303 
888293 


885267 
105737 


vo22 


198373 
113780 
242728 
010067 
694367 
890888 
816708 
888207 
BBS364l 


aa3363! 
ove 
800 


seegeg! 
opesse! 
047322 
177777 
179777 
179777 
179777 
477777 
179777 
477777 
ope1sa! 
000236! 
044103 
477777 
8eo236/ 
aga324t 
043523 
30a32e! 
200436! 
240524 
380436) 
eeosial 
042544 
aeesigl 
aoes7el 
051582 
ages7al 
808646! 
344193 
090646! 
PT yeeru 
04752@ 
o0d15@/ 
eerezgl 
842523 
a0442g/ 
90f566/ 
040526 


22eMARe73 
966226 


93303! 
og98980 


ogeu4se 


9eoese 
012 
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B42 


242523 828122 
828423 047544 


842305 


812 


890834 


4777766 
seeeneG 


176452 
8808086 


22eMARe7S 


SgeR02G 
177608 
eeooe4 
177726 


477772 


o1y 
aoe 


920304 


820423 


020146 


620182 


B20116 


920423 


022422 


020325 


823407 


820314 


032 


845 
O12 


CMPB ROY BIN 
BNC agnyy 
BR ASKSER 
ASKOON) MOV RYpRZ 
LT] FULLDON 
asl, Ry 
ano AJ AR2 
400 OFSLLIB RE 
MOV R5,R3 
apo OFILLGO RS 
Move (RRO, (RSVb 
Move (RE) Oy (RDO 
Move (RAO (RS)D 
FILLOONE 
IPRINT OUT JF USER FUNCTIONS LOADED 
1s? 0846 
Lia) NOUSR 
JSR RS, PRMSG 
sBYTE 49442942 
sASCLI 'YSER FNS LoadeD! 
:BYTE 8 
_ EVEN 
NOUSRI 
Jar RJ, PRMSG 
BYTE 49¢22132,8 
EVEN 
ICHECK IF RNOL LOACED 
MOV ATABLES RE 
MoV (HQ) OARS 
sea NORND 
aod SHNOFNSRNOLFN RS 
Mov RZ, (RQ) sOZFING RAND ALSO 
NORNOY 
ump START 
JSUBROUTINE TO PRINT A MESSAGE 
PRMSG] MOV R3,RO 
PRLP} «6TSTB) 0 OO TP Ber 
oP, PRUP 
MOVE (RO), OeTPR 
ONE PRUP 
MOV ROARS 
INC ay 
ase RS 
asl Ry 
RTS RS 
SUBROUTINE To READ ANSWER FROM TELETYPE RY es 
ROANS} INC RAND 
TS78 40 owTKS 
15145 PAGE 4702 
BP, ROANS 
Move ORT KSOZ RE 
Bye #477680,R8 
Mov RO, INGH 
JER RY, PRASG 
INCH) =, WORD 
MOV INCH, RO 
RTs eg 
‘ 5928 
THASTCKI 
WICORE) ,WORD @ 
FILL TBe, es 
,BYT 6,44,35 Lada 
BYTE 0,804,342 IVTOS 
FNPART 
yWORO) == -RNOLFN 
sWORD = RNOFNE 
sASCIT ¢RND 
sWORD sh, 1 AND 
WORD wd 4 84N 
sWORD 4 eQs 
;HORD =o 4 QR 
WORD oh ) ATN 
sWORD ed y exe 
WORD #}, 1 Los 
,WORD = ABSFN ) ABs 
,WORD = ABSFNE 
sASCTY ‘ABS f 
:WORD 1 INT 
:WORO = SGNFN 1 SGN 
,WORO = SGNFNE 
eASCIT fF SGN F 
;WORD = TABFN y PAB 
sWORD = TABFNE 
sASCIT fas t 
»WORD = LENFN 5 LEN 
sWORO = SNFNE 
sASCIT "REN 
WORD ASCFN y ase 
sWORD = ASCEFN 
sASCTI FASC 
WORD CHRSFN 5 CHR 
sWORD = CHRPN' 
sASCIT 'GHRS 
+WORO = POSEN 4 PQS 
sWORO = POSFNE 
sASGTT PORE ; 
WORD He i $€0 
sWORO = BGGFN 
VAseHT #Egst Gre 
WORD VALFN y VAL 
:WORD) = -VALFNE. 
sASCTY of VAL 


BAS{CH MACX22 VO2L 22eMARw7S 415449 PAGE i705 


002 aa3sse! o81566! sWORD = STRFN i str 
883 983536! Beig79! sWORO = SYREN 3 
804 983549! 952423 922122 ASCE 7htRs 

go FNPABE} . 

807 oeezze! 1ENO = ONCEONL, 


BASICH MACX12 VOZ2i 22eMAR@7S 15145 PAGE 3704 


aBSFN SB014R ABSFNE B8D236R agStny Ooea74R aBsXx gee222R 
ARGB & @neeee G ARRAYS * eeeeee G ASCTN on540R ASCFNE 9909746R 
ASKQON GOSLS2R ASKLA 983004R ASKSER O6275aR Agny? BO3G5OR 
BAS{CH  gaega2R a = goee4s CHRFNE  g@g646R CHRSFN «©98B974R 
COLUMN © eaesee G OECCOR BB2244R ERABSA eeg226R ERABSS @8OZ52R 
ERASCA 8O09564R ERaScS 900578R ERCHRS 080642R ERLENA GOO5G0R ; 
ERLENS @90594R ERPOSA OB1L42R ERPOSS OOaL4eR CRRARG @ @ oe G 
ERRMIX § eeeeee G ERRNDA 989134R ERANOS HegLIOR CRRPOL 8 on G 
ERRSYN 28 seesee G ERSEGA O81440R ERSEGS 0814g4R ERSGNA BOILER 
ERSGNS gogS20R ERSTRA 001660R ERSTAS 964604R eRrvaas BHBESER 
ERVALA @84562R ERVALS 981556R EVAL SB ageeee G PACy 8 eneaee G 
FAC2 © seenen G FILLGO & enevee G FILLOQ  883292R FILLTS # BBSSOSR 
FNEND OO467OR FNNAMY 8O2524R FNNAM2 O92526R PNT AB 

FNTABE 883544R HICORE OB3364R TFPMP 6s Gaeeee 6 

TINDALL O82434R TNSOF 692560R INUEN 882492R 

NSLP 202444R INEMV @92570R ININX? CaZoeoR 

TNUTI 982492R INdTY B82552R tnt SB epeeee C 

KBBFHS B82984R KBBUFS4 = B8202BR LENFN BHH45OR 

LIMIT © aeesee G MAKEST © e0neee G MOVOON  882646R 

NORM 8 esesee G NORND BOS246R NOUSR OO322OR 

ONCEON B82224R OPRATQ & esnecee G ¢ 9X860007 

POS{ZE = waenes G POSF O01124R POSFN O8B64OR 

POSFS] OB4O5OR POSF2 081126R POSNO O91136R 

POSREM OO4070R POSTRY 0818546R PosXx OOB794R 

PRUP O9S254R PRMSG 083252R RANO OO4790R 

REXP B899874R RNDEN SOGR1LOR RNOFNE O00140R 

RNOLFN @8e0G2R RNOL a eeeoen G RANOZ a eeenee G R 

RPLUS eege5aRr RO 3X000008 Ry sx0O0004 Re aXQ0OO82 . 
R3 8%009005 R4 sxogoee6 RS 3X080005 SAVCHA 9 eeeees G 
SEGFN @81152R SEGFNE  084429R Seo, O4206R SEGLP O81S66R 
SEGNUL  802492R SEGRNG  684512R SEGRZ 8045¢0R Beery 882278R 
SEGTY2  901304R SEGX 901494R SEGXe 064292R SQNFLT 2g0278R 
SGNFN OBB256R SGNFNE BO9S24R SGNPOS BOO2z7OR 8GNX BORILOR 
SOPRAY © @eeeee G sp SXOBCOR6 START 8 seeene G STPRO 9 neoeen G 
STRFN 981566R STRFNE  901678R Tage Beasaan raee BBGIOOR 
TABFN BBGS24R TABFNE BOKASOR TABLES § @eneee G TABNON BOAS7ER 
TABNUL 98426R TBLSEN 3 eaneee G Tks B apeoee CG IMPSTC BBIT64ER 
TPB 3s eeeeee G TPBENL © @82073R TPBFHL BOZE4ER TPBUFS = B02054R 
TRYCOR  @82258R T 2 aneeen G T2 = eneoee 6 t3 & enenen G 
VSR 801678R USRARE DOOHPORG USRCOO BEZ2R4R USRLIN O2074R 
VAL = weecee C VALGE BOL524R VALFN OOLAQoR VALEN 904966R 
VAY 801552R VALR 804460R VALX OOLSIOR skegsé =» p0ge26 
SSTKSZ & neeees G STPBS2 = 990028 SULNSP 8 060220 COMMA 9 aneven G 
1RPAR © saeeee G ' 8 983544R 


ERRORS DETECTED! & 


520 


° 


BASICH MACX11 


RUNTIME 
FORE VSEO) 


ABSFN 
ABSFNE 
ABSINT 
ABSX 
ARGB 
ARRAYS 
ASGFN 
ASCFNE 
ASKOON 
ASKLA 
ASKSER 
ASKVT 
BASICH 
Sl 
CHRENE 
CHRSFN 
COLUMN 
OECCOR 
ERABSA 
ERaGSS 
ERASCA 
ERASCS 
ERCHRS 
ERLENA 
ERLENS 
ERPOSA 
ERPOSS 
ERRARG 
ERRMIX 
ERRNOA 
ERRNDS 
ERRPOL, 
ERRSYN 
ERSEGA 
ERSEGS 
ERSGNA 
ERSGNS 
ERSTRA 
ERSTRS 
ERTABS 
ERVALA 
ERVALS 
EVAL 
Facy 


Face 


FILLco 
FILLOO 
FULLTB 
FNENO 

FNNAML 
FNNAM2 


veza 
19 SECONDS 
3K 
1208774 
43080775 
125 1298 
126 128 
44 164 
35 635 
2iie 787 
2268788 
678 682 
6758 = 684 
6620 672 
6878 «= 696 
768 = 563 
738485 
2ege 794 
2298 86798 
37 473 
5498 556 
223 1368 
$23 1378 
212 227 
au4 2250 
231 23ee 
495 2050 
497 2e68 
245 249 
247 253 
38 116 
3a 
89 1168 
82 1150 
38 
38 115 
327 334 
329 336 
143 1568 
445 1598 
445 4630 
447 4eqe 
166 1898 
399 432 
403 4300 
39 79 
37 112 
423 
37 113 
260 262 
33 705 
780 7098 
703 7598 
4668 
604 6080 
605 6098 


22eMARC7S 


130 
229 


om 
97 


428 


aug 


293 
256 
436 


337 
338 
gat 


4sve 


128 
124 


429 
347 


15445 


232 


6998 


22a0 


3208 
32a8 
338 


459 
3928 
3930 


342 
127 


131 
334 


PAGE 1703 
1358 

205 224 
169 286 
194 222 
133 147 
134 149 
368 407 


225 


aae 
159 


459 
424 


392 


239 


248 
198 


168 


439 


32a 


252 
228 


199 


463 


393 


326 
258 


203 


438 


338 
348 


224 


464 


337 
333 


222 


398 
355 


232 


444 
4a6 


237 


FNTAB 
FNTABE 
HICORE 
IFPMP 
INCH 
TNTALL 
INJOF 
INIFN 
INIHO 
INTLP 
INIMV 
TNINXT 
INISAV 
INSTI 
INETY 
INT 
KBBENS 
KBBFHS 
KBBUFS 
LENFN 
LENFNE 
QUMIT 
MAKEST 
MOVOON 
MOVLP 
NORM 
NORND 
NOUSR 
NUM8GN 
ONCEON 
OPRATO 
PC 


poy 
POSTER 
POSF 
POSF2 
POSFN 
POSFNE 
POSFST 
POSNO 
POSNXT 
POSREM 
POSTRY 
POSX 
Posy 
PRUP 
PRMSG 
RB 


RL 
R2 


ons 


764 


364 


238 
466 


339 


524 


375 


367 


394 
469 


5268 


459 


3968 


a7t 


439 


223 
388 
375 
754 


367 


473 


ave 


437 
213 
428 


a7? 


229 
422 


a8s 


235 
aaa 


244 
459 


245 


248 
455 


108 
266 
379 
382 


7368 


328 
642 
406 
222 
303 
383 
602 


2a8 
368 
565 
687 
733 


646 
149 
237 


368 
ona 


233 


252 
459 


208 
275 
384 
614 


748 
335 


409 
234 
388 
385 
634 


281 
363 
585 
699 
738 


623 
135 
256 


373 
085 


236 


254 
535 


146 
277 
385 
628 


749 
349 


148 
269 
318 
440 
635 


282 
365 
592 
704 
739 


628 
156 
260 


486 
625 


264 


343 

416 
START 33 
steno ‘4 
STRFN 4446 
STRFNE 4658 
Ty oy] 
12 49 
3 49 
TABS 1698 
TABG 178 
TABFN 1640 
TABFNE 1988 
TABLES 36 
TABNON 176 
TABNUL 178 
TBLSEN 36 
TKS 32 
TMPSTC 554 
TPB 32 
TPBENS 332 
TPF HS 507 


usr 4748 
RARE 34 
ysrcoo 484 
USRLIN 482 
VAL, 42 
VALGE 4260 
VALFN 3968 
VALFNE asge 
Vaud 409 
VALR 405 
VALX 427 
133 
1GOMMA 49 
sAPAR 3” 
SKBBS2 56 
SSYKS2 44 
sTPese 52 
SULNSP 66 


QNKX220 Vaat 


272 283 202 265 268 29 
344 352 353 372 374 377 
47 426 434 433 434 435 


299 298 3e8 454 458 
as4 306 433 


599 J 922 744 


534 333 5378 


730 932 $39 
54ye 937 


476 487 282 526 5278 528 
246 250 326 335 
83 122 344 168 196 aut 


22eMARe73 16122 


BBASTCNeNOSMAP,, ORK <BASICN, FPMP BASICH/BIO/E 


LOAQ MAP 


TRANSFER ADORESS; 8301450 
LOW LIMIT] Begee 
MIGH LIMIT! 034478 


vepeseneone 
MOOULE BaSICL 
SECTION ENTRY 
<, ABS,> 
ARGB 
ARRAYS 
COLUMN 
ERRARG 
ERRMIX 
ERRPOL 
ERRSYN 
EVAL, 
FACL 
FAC2 
FILLCO 
GETVAR 
INT 
GIMIT 
MAKEST 
MSG 
NORM 
NUMOUT 
NUMSGN 
OPRATO 
POL 
POSIZE 
RNOL 
RND2 
SAVCHA 
SOPRAT 
START 
STOVAR 
STPRO 
TABLES 
TBLSEN 


< > 


eeeeceenen 


MODULE FPMP1 


ADDRESS SIZE 
seeeee apeoee 
811650 
TTT FC) 
aaegse 
807734 
011659 
{120 
011658 
810616 
aeog4g 
aages2 
aeers8 
813684 
044004 
a9g8o2 
941658 
835474 
345554 
819746 
345768 
244272 
aeage4 
280806 
300064 
280066 
311659 
911658 
204034 
017244 
911650 
310756 
11002 
177560 
177566 
300056 
990068 
3oege2 
320702 
200208 
888243 
ooe2ds 
990255 
280237 
BBBO89 824426 


303 
378 
448 


537 
230 


yas 
379 
454 


3380 
255 


3 
te 
437 


339 
3a 


343 
399 
438 


54e8 
408 


346 
463 
468 


7550 
446 


333 
408 
559 


739 


334 
422 
554 


526 


SECTION ENTRY 
< > 


AINT 
ALOG 
ATAN 
cos 
ERRFPY 
Exe 
IFPMP 
SIN 
SQRT 
SAOR 
SOVR 
SERR 
SERRA 
SERVEC 
SINTR 
SIR 
SMLR 
SPOLSH 
SPOPRS 
SPOPR4 
SPOPRS 
SRt 
SSBR 
SV2RA 
aegeeeeeas 
MODVLE s8aSICH 
SECTION ENTRY 
< > 
USRARE 


ADDRESS SIZE 
324426 994276 
629844 
822179 
225848 
924464 
324430 
a2zS3i4 
021426 
324526 
823538 
824434 
022662 
825666 
325676 
825746 
022562 
823664 
923758 
025524 
024334 
824322 
824322 
024342 
021439 
825526 


ADORESS SIZE 
825724 993544 
825726 


RUN@YIME} 3 SECONDS 


2K CORE USED 


GNKX22 0 -VO22 


22emMARo7S «= 26124, 


sgaSicSsSTRMAP, ORKegaSICL FPMP 1 BASICH/BIO/E 


LOAD MAP 


TRANSFER ADDRESS; 032786 
LOW LIMIT o88020 
HIGH LIMIT! 034226 


eapecenone 
MODULE BASICL 
SECTION ENTRY 
<, ABS4> 
ARGB 
ARRAYS 
COLUMN 
ERRARG 
ERRMIX 
ERRPOL 
ERRSYN 
EVAL 
FACL 
FAC? 
FILLCO 
GETVAR 
INT 
uiMar 
MAKEST 
MSG 
NORM 
NUMOQUT 
NUMSGN 
OPRATO 
POL 
POSIZE 
RNOL 
RND2 
SAVCHA 
SOPRAT 
START 
STOVAR 
STPRO 
TABLES 
TBL5EN 
TKS 
1P8 
Tt 
12 
3 
VAL 
SSTKSZ 
COMMA 
EOL, 
vRPAR 
+RPAR 
< > 
eOeenenons 
MOOULE FPMP12 


ADDRESS SIZE 
geese cpa0e8 
010276 
200018 
aaag34 
018326 
815926 
911776 
012554 
941402 
289040 
290842 
900104 
815420 
845628 
egaee 
917264 
847530 
247638 
820082 
20044 
042176 
ogee 
280026 
882964 
200966 
820646 
812738 
801102 
821332 
843176 
831562 
819626 
177560 
177566 
888056 
280068 
209262 
823449 
ege2e8 
880243 
980264 
208255 
800237 
e9eeae 824464 


SECTION 
‘ 


ENTRY 


ADDRESS Sj2E 


> 824264 994276 
AUNT 925302 
ALOG 924726 
ATAN 827576 
cos 0297222 
ERRFPY 624166 
exe 826052 
IFPMP 96024164 
SIN 027256 
SQRT 830266 
SAOR 824172 
SOVR 025428 
SERR 830424 
SERRA 838434 
SERVEC 230456 
SINTR 229326 
sir 826422 
SMLR 926506 
SPOLSH 039262 
SPOPRS 929872 
SPOPR4 227968 
SPOPRS 027066 
SRy 027106 
sser 024366 
SV2GA «6.830262 

eageceneee 

MODULE BaSICH 

SECTION ENYRY  AODRESS SIZE 

< > aesett 069544 
USRARE 63946 

RUNCTINE] 3 SECONDS 


ak CORE YSED 


—_ 


Oosnoueune 


980008 


oaeeaa 


822000 
200008 
e0e90e 
200008 


000000 


oe em PR a ee 


PERPAR «= PERIPHERAL SUPPORT PA RT=11 MACRO VMG2-09 LorOCT=74 B1851342 PAGE 1 


eTITLE PERPAR © PERIPHERAL SUPPORT PACKAGE PARAMETER MOOULE, 
DEC 11 @LBPAA@ALA BASIC KERNEL VO2~01 
COPYRIGHT (C) 1974 


DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASSACHUSETTS 01754 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE ANO SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNOER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DEC’S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DEC, 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC, 


ee 


THE CONDITIONALS CONTAINED IN THIS MOOULE AFFECT THE ASSEMBLY 
OF THE FUNCTION TABLE MODULE "FTBL,MAC", 

70 OBTAIN THE DESIRED CONDITIONAL OEFINITION(S), 

REMOVE (USING AN EDITOR) THE 


eee 


+ SEMI@COLON APPEARING BEFORE THE CONDITIONAL, 
sSOISKs@ pDEFINE FOR RT#11 
sIFNOF SOISK 
SSTRNGSO 100 NOT DEFINE FOR PTS BASIC WITHOUT 
sSTRINGS,© DEFINED FOR PTS V@1 WITH STRINGS 
eENOC r] 
SLPSsa sOEFINE FOR LPS 
aIFDF SLPS 
1$V20 HDEFINE FOR LPS WITH VECTORS STARTING 
’ ' AT 38@, DEFAULT SETTING IS VECTORS AT 
' ’ 340, SET SV = ANY OTHER DISPLACEMENT IF 
; ’ VECTORS START AT DISPLACEMENTS 
' ' OTHER THAN @ OR 4@ FROM 
’ ’ VECTOR 380 
Sancza yINCLUDE A/D ROUTINES, 
SCLKa@ yINCLUOE CLOCK ROUTINES, 
solose pINCLUDE DIGITAL IO ROUTINES 
SOISsO yINCLUDE DISPLAY ROUTINES, 
sENDC = SLPS 
, 
5 
SVTLi90 WFOR GT4@ (GT4G) 


eo oe nein 


PERPAR e@ PERIPHERAL SUPPORT PA RT#14 MACRO VMO2909 


58 
59 
68 
64 
2 
64 
65 
66 


oT FOF 


080800 SCLOCKsO 


EoT 
eTITLE PERVEC VECTOR DEFINITION MODULE FOR BASIC SUPPORT PACKAGES, 


eee rr 


MAYNARD? 


oENOC 


SVTAL 


DEC#1LeLBPVASAaLA 
COPYRIGHT (C) 1974 


gFOR SYSTEM CLOCK (KWLIL) 


BASIC KERNEL vV@2e01 


a 


DIGITAL EQUIPMENT CORPORATION 
MASSACHUSETTS 01754 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT T0 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS & COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, - 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DEC*S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DEC, 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC, 


PERVEC VECTOR DEFINITION MOOULE RT#11 MACRO VM@2=09 1OsOCT]@74 O1s518G2 PAGE 2 


Core NEVNN 


1784600 
170402 
1784040 
1704006 
170418 
178618 
170q12 
1764014 
1704016 
170420 
178422 
170036 


Q08344 
200346 


000350 
900352 


200340 
8868342 


172000 
172002 
172904 
172006 
000320 


» THIS MODULE DEFINES THE HAROWARE ADRESSES USED BY . 

y SUCH HARDWARE AS THE "LPS", THE "VT1I"(GTGQ) AND THE *LYI1", 
1 IF THE VECTORS FOR THESE DEVICES SHOULD CHANGE 

» THIS MODULE MUST BE EDITED TO REFLECT THE CHANGE, 


sIFDF SLPS 


oe TFNOF 
$V3840 
eENOC 
eGLOBL 
oGLOBL 
eGLOBL 
oGLOBL 
eGLOBL 


sv 


LPSAD,LPSADB,LPSOR,LPSOMA 
LPSCKS,LPSPB,LPSORS/LPSOIB 


LPSOOR 


LPOISS,LPOISX,LPDISY 
CKLIVA,CKLIP,ORSIVA,ORSIP,LPSIVA,LPSIP 


9 DEVICE EQUATES: 


LPSAD 

LPSA0B 
LPSCKS 
LPSPB 

LPSOR 

LPSORS 
LPSOIB 
LPSDOR 
LPOISS 
LPDISX 
LPOISY 
LPSOMA 


1704008 
17e4¢2 
178404 
178406 
170618 
LPSOR 

170412 
170414 
170416 
170420 
170422 
178436 


yLPS 
rLPS 
yLPS 
sLPS 
rLPS 


yLPS 
WPS 
dLPS 
rLPS 
yLPS 
yLPS 


y INTERRUPT VECTOR PAIRS 


CKLIVA 
CKLIP 


ORSIVA 
DRSIP 


LPSIVA 
LPSIP 


OPC 
OSR 
DISXx 
DISY 
GTVECT 


A/0 STATUS REG, 

A/O BUFFER LED REG, 
CLOCK STATUS REG, 

CLOCK BUFFER PRESET REG, 
OIGITAL 1/0 STATUS REG, 


OIGITAL INPUT REG, 
OIGITAL OUTPUT REG, 
OISPLAY STATUS REG, 
DISPLAY REG, X 
DISPLAY REG. Y 

OMA REGG, 


3OUe$Sy yAOR, OF CLOCK INTERRUPT VECTOR 
3@6+S¥ yAOR, OF CLOCK INT, PRIORITY 
31@¢sv ;AOR, OF ORS INT, VECTOR 

312¢8V¥ ADR, OF ORS INT, PRIORITY, 
30G+SV yAOR, OF THE A/D INT, VECTOR, 
30248V AOR, OF THE INT,PRIORITY, 

rSLPS 

SvTit 1GT4Q 

OPC, 0SR,OISX,DISY,GTVECT 

172@0@ «s¥TIL DISPLAY PC 

OPCe2 sVTil DISPLAY STATUS REG 

OSRe2 yVTLL X STATUS REG 

DISXe2 j;VT11 Y STATUS REG 

320 sAOR, OF VT1L (GTUG (GT44)} INTERRUPT 


1VECT 


OR LIST, REDEFINING GTVECT 


LorOCTo74 B1851942 PAGE to 


PERVEC VECTOR DEFINITION MODULE RT#1} MACRO VNG2=09 16e0CTH=7H BisStsa2 PAGE 2e 


58 PREDEPINES THE ENTIRE SET 

59 yOF DISPLAY PROCESSOR INT, VECTORS, 
68 sGTVECTs G sOISPLAY STOP VECTOR 

ot HGTVECT ous LIGHT PEN HIT VECTOR 

2 sGTVECTo108 yOISPLAY TIME OUT VECTOR 

63 eENDC =p SVT AE 

oa 

6s 

66 eeeeal? oEND 


PERVEC VECTOR DEFINITION MODULE RTo1{ MACRO VMg2=69 LoeOCT=74 81851342 PAGE 24 
SYMBOL TABLE 


CKLIP © 800346 G CKLIVAS 000340 G OI8X = 172004 G 
OISY s 172086 G opc ® 17280e 6 ORSIP s 990352 G 
ORSIVAs 900350 G osR 8 172002 G GTVECTs 900329 G 
LPOISSa 170436 G LPOISX® 170628 G LPOISYs 178422 G 
LPSAD = 170400 G LPSADBs 170402 G LPSCKS= 170496 G 
LPSOI8s 1784432 G LPSOMAs 170436 G LPSOORS 1784148 G 
LPSOR = 170418 G LPSORSs 178410 G LPSIP = 900342 G 
LPSIVAs oa03uea G LPSPB s 170496 G $a0C = a80000 
SCLK = 908000 SCLOCKs go0000 $010 = Gegeeo 
SOIS = aee000 SLPS) = a00000 SSTRNGS g0e000 
sv = 000040 SVT11 = g00000 
+ ABS, 290000 CTT) 

0eeeea 001 


ERRORS DETECTED: @ 
FREE CORE: 18189, WORDS 


PERVEC,GTL,LPrePERPAR,GTL,PERVEC 


~~ ----—— 


PERPAR we PERIPHERAL SUPPORT PA RT@i{ MACRO VMG2909 LoeOCT=74 B1852829 PAGE 1 


1 aTITLE PERPAR |= PERIPHERAL SUPPORT PACKAGE PARAMETER MODULE, 

2 ’ 

3 y DEC*{LeLBPAAcheLA BASIC KERNEL Va2eo! 

a ’ 

+) y COPYRIGHT (C) 1974 

6 , 

7 } DIGITAL EQUIPMENT CORPORATION 

8 } MAYNARD, MASSACHUSETTS 01754 

9 ’ 

19 } THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

it } CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 

12 } AS & COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 

43 } DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 

14 7 MAY APPEAR IN THIS DOCUMENT, 

15 ’ 

16 ) THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 

17 1 LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 

18 7 CAN BE COPIED (WITH INCLUSION OF DEC*S COPYRIGHT 

19 y NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 

20 y OTHERWISE BE PROVIDED IN WRITING BY DEC, 

2k ’ 

22 } DEC ASSUMES NO RESPONSIBILITY FOR THE USE 

23 y OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 

24 » WHICH IS NOT SUPPLIED BY DEC, 

es 

26 1 THE CONOITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEMBLY 

27 ) OF THE FUNCTION TABLE MOOULE "FTBL.MAC", 

28 y TO OBTAIN THE DESIRED CONDITIONAL DEFINITION(S), 

29 y REMOVE (USING AN EDITOR) THE 

30 1 SEMI@COLON APPEARING BEFORE THE CONDITIONAL, 

34 sSOTSKsO DEFINE FOR RT@i1 

32 eIFNOF SDISK 

33 280020 SSTRNGEQ #00 NOT DEFINE FOR PTS BASIC WITHOUT 

3a WSTRINGS,© DEFINED FOR PTS V@i WITH STRINGS 

35 sENOC ’ 

36 

37 900000 SLPSse OEFINE FOR LPS 

38 eIFOF SLPS 

39 sSV8O POEFINE FOR LPS WITH VECTORS STARTING 

ve ’ ’ AT 308, OEFAULT SETTING IS VECTORS AT 

a1 ’ ’ 3a@, SET SV = ANY OTHER DISPLACEMENT IF 

42 ’ ’ VECTORS START AT DISPLACEMENTS 

43 ’ ' OTHER THAN @ OR 49 FROM 

: ’ ’ VECTOR 309 

q' 

ao eeeees SaDCae yINCLUDE A/D ROUTINES, 

a7 880008 SCLKSO pINCLUDE CLOCK ROUTINES, 

48 800000 S$Ol0ea INCLUDE DIGITAL 10 ROUTINES | 

49 080008 SOISaa PINCLUDE DISPLAY ROUTINES, ty f 

se sENDC = SLPS A 

Si ' 

Se ’ 

53 egeaee SVT1i8@ HFOR GT4S (GTua) : y 6 

54 ’ yo? 
J 


$5 ’ ty 
56 
S7 


a 


PERPAR e= PERIPHERAL SUPPORT PA RT=11 MACRO VMG2909 1OeOCTe7G 81152829 PAGE 1+ 


58 eIFOF =6SVTI4 ; 
$9 @evee@ SCLOCKE@ yFOR SYSTEM CLOCK (CKWLIL) 
68 eENOC 
61 
62 eE0T 
ou »TITLE PTSINT © PTS INTERFACE MODULE FOR SUPPORT PACKAGES, 
65 ' 
66 y DEC#119LBPIAwAsLA BASIC KERNEL V@2981 
67 ’ 
68 y COPYRIGHT (C) 1974 
69 
78 ; DIGITAL EQUIPMENT CORPORATION 
bat 1 MAYNARD, MASSACHUSETTS 81754 
7. . 
5 ' THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO cs 
74 } CHANGE WITHOUT NOTICE ANO SHOULD NOT BE CONSTRUED 
75 } AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
76 » DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
17 y MAY APPEAR IN THIS DOCUMENT, 
8 
i ' THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
8a } LICENSE FOR USE .ON A SINGLE COMPUTER SYSTEM ANO 
6t } CAN BE COPIED (WITH INCLUSION OF DEC’S COPYRIGHT 
be 4 NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
83 } OTHERWISE BE PROVIDED IN WRITING BY DEC, 
64 , 
aS } DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
86 } OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
87 } WHICH IS NOT SUPPLIED BY DEC, 
a6 U 
89 »GLOBL FTBL, BOMB 
98 oeeaae eASECT 
1 9009034 ,=3d 
92 oIFNOF SOISK BOMB VARIES IF ONE INCLUDES 
93 elFOF SSTRNG STRINGS 
94 10320 BOMBsa13320 sENTRY WITH STRINGS 
95 eENDC ySSTRNG IS DEFINED 
96 eIFNOF SSTRNG = yNO STRINGS 
97 BOMBEGO7742 PENTRY WITHOUT STRINGS 
98 eENOC ySSTRNG NOT DEFINED 
99 sENOC sSOISK : 
108 6834 810320 eWORD 60MB,2@ ySET UP THE TRAP ERROR VECTOR, 
3036 8290008 
101 002048 eASECT 
102 BeeG46 , 246 
183 8846 2800006 »wORD  FTBL 1THE FUNCTION TABLE STARTS HERE FOR PTS, 
104 sIFOF SLPS 
18S eIFOF SOIS 
106 +GLOBL DISPLY 
187 9858 200167 JMP DISPLY 
Q800086 
108 eENDC =, SOTS 
109 a ENOC ySLPs 
110 o0eae1* 2 END uy 


PTSINT e= PTS IN 
SYMBOL TABLE 


80MB = 010320 G 
$40C = geeee0 
S010 = 000000 
SSTRNGS goeee0 
2 ABS, B0uS4 
200000 
ERRORS DETECTED: 
FREE CORE: 18268 


PYSINT,GTL,LPeeP 


ee te 


PERPAR == PERIPH 


C@OrveuNewune 


33 eeeeee 


37 eeoene 


46 000000 
a? 800008 
48 eoeaae 
49 eovaee 


33 b02008 
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DISPLYS sanane 6 FTBL 8 aneene 6 
SCLK = 880000 SCLOCKs @a0000 
sors SLPS = gaacee 
SVT11 = gee 
008 
eet 
t) 
« WORDS 
ERPAR,GTL,PTSINT 
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eTITLE PERPAR o= PERIPHERAL SUPPORT PACKAGE PARAMETER MODULE, 
DEC@1 LoL BPAAsASLA BASIC KERNEL V@2e01 
COPYRIGHT (C) 1974 


OIGITAL EQUIPMENT CORPORATION 
MAYNARO, MASSACHUSETTS 81754 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DEC*S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT 4S May 
OTMERWISE BE PROVIDED IN WRITING BY DEC, 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC, 


we ee ewww www wn wun wine 


THE CONOITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEMBLY 
OF THE FUNCTION TABLE MOOULE "FTBL MAC", 

TO OBTAIN THE DESIRED CONDITIONAL DEFINITION(S), 
REMOVE (USING AN EDITOR) THE 

SEMI@COLON APPEARING BEFORE THE CONDITIONAL, 


SOI8SKs@ YOEFINE FOR RT@i4 
eIFNOF SOISK 
SSTRNGRO 100 NOT DEFINE FOR PTS BASIC WITHOUT 
HSTRINGS,* DEFINED FOR PTS V@1 WITH STRINGS 
eENOC ’ 
SLPSs@ DEFINE FOR LPS 
eITFOF SLPS 
ySVa9 sOEFINE FOR LPS WITH VECTORS STARTING 
’ ’ AT 388, DEFAULT SETTING IS VECTORS AT 
1 ’ 34@, SET $V = ANY OTHER DISPLACEMENT IF 
’ ’ VECTORS START AT DISPLACEMENTS 
’ ’ OTHER THAN @ OR 4B FROM 
, ’ VECTOR 3280 
S$A0CaQ INCLUDE A/D ROUTINES, 
SCLKaQ PINCLUDE CLOCK ROUTINES, 
SOTOs@ PINCLUOE DIGITAL IO ROUTINES 
SOISsa INCLUDE OISPLAY ROUTINES, 
a ENOC rSLPS 
VTLise dFOR GTU@ (GT4a) 


~~ wee 


ee 
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sa atFOF © SVTL4 
59 080008 SCLOCKse sFOR SYSTEM CLOCK (CKMI1L) 
68 eENOC 
ot 
62 £0T 
te eTITLE FTBLe@BASIC FUNCTION TABLE MOOULE 
6 
ee , DEC@L IL BFTAsAeLA BASIC KERNEL VO2001 
6 ’ 
68 y COPYRIGHT (C) 1973,1974 
69 ’ 
78 y DIGITAL EQUIPMENT CORPORATION 
a 1 MAYNARD, MASSACHUSETTS 81754 
U 
13 1 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
14 s CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
7S 1 AS & COMMITMENT BY OIGITAL EQUIPMENT CORPORATION, 
76 1 DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
Las » MAY APPEAR IN THIS DOCUMENT, 
8 ’ 
79 9 THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
8e ) LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
81 9 CAN BE COPIED (WITH INCLUSION OF DEC*’S COPYRIGHT 
82 » NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
83 y OTHERWISE BE PROVIDED IN WRITING BY DEC, 
6a , 
8s 1 DEC ASSUMES NO RESPONSIBILITY POR THE USE 
86 y OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
87 7 WHICH IS NOT SUPPLIED BY DEC, 
86 
89 
.T . oGLOBL FTBL 
1 
92 ’ MUST INTERFACE PROPERLY WHEN LPS IS ALSO USED 
93 ’ 
9a 
95 
9 e8eeee" eCSECT 
97 99000 FTBLs 
98 eIFORP SVT11 16T40 
99 eGLOBL AGET,APNT, APUT,CONT, ERAS, ESUB, FPUT 
108 eGLOBL FIGR,FPUT,INIT,LPEN,ROOT 
101 eGLOBL SCAL,STAT,OSTP,SUBP, TEXT, TRAK 
102 eGLOBL VECT,XGRA, YGRA,FIX, FREE 
183 eGLOBL NOSC,ON, OFF, SAVE 
104 eITFOP = S0TSK 
185 eGLOBL RSTR 
186 ENOC sS0ISK 
187 oTFOF SCLOCK 
108 eGLOBL TIME, TIMR 
109 eENOC 1SCLOCK 
110 
111 8000 123 eASCIT /SCAL/ ‘ 
2801 103 : 
2002 184 
2003 114 5 
112 8084 @20008G sWORO SCAL 
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113 9206 © 126 sASCII /VECT/ 
e007 185 
gaia = 103 
ae11 stad 
114 012 eeogdes .WORO VEC 
115 gata 422 sASCII /ROOT/ 
0015 tad 
eeie = 417 
e017) yaa 
116 9820 eeeeses +WORO —-ROOT 
117 @@22— 4.01 SASCII  /APNT/ 
ea23 128 
go24 116 
gez5 4.24 
118 g@26 aeegaas .WORD = APNT 
119 SIFOF © SCLOCK 
120 g@3@0— 124 CASCIL «/TIME/ 
oes atl 
oe32 115 
2033105 
121 2034 ageeees «WORD TIME 
122 2036 © 12u SASCIZ «/TIMR/ 
ao37, itt 
aeua 115 
eau. tae 
123 a2 eavaces .wORD = TIMR 
124 sENDC —- SCLOCK 
125 994g = 4.23 VASCIE /STAT/ 
@e45 124 
3a4e tat 
aou7 Ss 324 
126 9850 aevavec .WORD STAT 
127 9@52. 124 SASCIL /TEXT/ 
@a53 105 
oosa 130 
goss 124 
126 aa56 eacoeas ewORD TEXT 
129 806a 123 SASCII /SUBP/ 
aeo1 = 125 
aae2 = 12 
aves 120 
138 8064 ae0gaec «NORD —-SUBP 
131 @@66 = 405 VASCIT /ESUB/ 
oae?7 123 
oa70— 425 
ae71 sta 
132 9872 eeogedc swoRD = ESUB 
133 0074 114 sASCII /LPENS 
ao7S— 128 
e076 = 105 ae 
0077s 116 ; 
134 @1¢@ eevacas sWORD —LPEN Pe ae 
135 e102 © 116 tASCIZ /NOSC/ 
e1e3) 417 
e1ed = 123 
e105 «303 


136 @186 2000086 WORD Nosc 4 « 


FTBLe@BASIC FUNCTION TABLE MODU 


137 


138 
139 
140 


141 
142 
143 


144 
145 
1460 


147 
148 


149 
15se 


151 
152 


1S3 
154 


155 
156 


157 
1S8 


159 
168 


161 
162 


0118 
eins 
O12 
113 
114 
116 
117 
0120 
e122 
e1e4 
ores 
0126 
8127 
136 
e132 
0133 
134 
0135 
e136 
e146 
O14) 
e142 
8143 
e14aa 
B146 
107 
9150 
O15! 
e152 
0154 
e155 
6156 
e157 
@168 
162 
C163 
8164 
0165 
0166 
170 
e171 
172 
@173 
e174 
@176 
O177 
e200 
201 
e202 
s2a4 
e205 
8206 
0207 
0210 
Be12 
213 
G2i4 


106 
117 
116 
608 
0000006 
117 
116 
000000 
2800086 
wi7 
106 
106 
800 
@ees0eG 


eeeoees 
iti 
ito 
14t 
124 
ee0cenG 
104 
123 
124 
128 
eeecees 
123 
126 
W407 
128 
eeveaes 
104 
183 
116 
126 
8000006 
103 
117 
116 
124 
eeeeees 
138 
107 
122 
101 
aeoeees 
131 
107 
122 


ASCII 


BYTE 
eNORO 
eASCIY 


WORD 
WORD 
ASCII 


BYTE 
eNORD 
ASCII 


WORD 
eASCIT 


2WORD 
eASCIE 


WORD 
ASCII 


«WORD 
ASCII 


WORD 
ASCII 


2WORO 
eASCII 


«WORD 
oASCII 


eWORD 
eASCIT 
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/O0N/ 


ON 
OFFS 


@ 
OFF 
STRAK/S 


TRAK 
ZERAS/ 


ERAS 
JINIT/ 


INIT 
/O08TP/ 


OSTP 
/STOP/ 


oste 
/DCNT/ 


CONT 
/CONT/ 


CONT 
/XGRA/ 


XGRA 
JYGRA/ 


9 SECOND NAME 


SECOND NAME 


SECOND NAME 
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163 
164 


0215 
@216 
be20 
@221 
be22 
0223 
e224 
226 
0227 
0238 
e231 
e232 
0234 
0235 
0236 
0237 
@24g 
e242 
6243 
@2ua 
@eus 
B246 
0258 
e251 
e252 
0253 
@254 
0256 
6257 
0268 
@261 
®262 
B200 
0265 
R206 
@267 
8270 
be72 
0273 
e274 
8275 
@276 
0300 
@301 
6302 
8303 
0304 


101 
@avue0G 
101 
107 
105 
124 
2000006 
194 
106 
ait 
138 
0408006 
106 
att 
138 
800 
0000086 
106 
122 
105 
105 
28000086 
181 
120 
125 
124 
080A00G 
196 
at 
107 
122 
e@eveeG 
106 
128 
125 
124 
0602006 
104 
123 
101 
126 
2800006 
123 
181 
126 
185 
0820086 


eHORD 
eASCII 


eo WORD 
eASCIT 


+WORD 
ASCII 


BYTE 
«WORD 
ASCII 


WORD 
eASCIT 


«ORO 
ASCII 


eNOROD 
eASCIT 


«WORD 
ASCII 


WORD 
ASCII 


ehORD 
oIFOF 
eASCII 
WORD 
ENOC 
eENOC 


YGRA 
SAGET/ 


FREE 
SAPUT/ 


APUT 
/FIGRS 


FIGR 
/FPUT/ 


FPUT 
708Av/ 


SAVE 
/SAVE/ 


SAVE 
S$O1SK 
/RSTRS 
RSTR 
pSDISK 
sSVTSL 


alFOF SLPS 


SECOND NAME 


HSECOND NAME 


aw 
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193 

198 eGLOBL USE,ROB, ACC 

195 ’ 

196 eIFOF S$a0C 

197 »GLOBL ADC,RTS,LED 

198 eENDC =p SADE 

199 ! 

200 aTFOF SCLK 

201 eGLOBL SETR,SETC,HIST,WAIT 

282 e ENDS sSCLK 

203 ’ 

204 »IFOF SOI0 

205 sGLOBL DIR,DOR,ORS 

206 eGLOBL REL 

207 sENOC sS$010 

208 ’ 

209 oIFOF S$OIS 

216 eGLOBL CLRO,PUTO,OIS,FSH,OXY,OISPLY 

2u1 eENDC 78038 

212 

213 

214 

215 8306 eS eASCII /USE/ 
8387 123 
0310 105 

216 O31 goe BYTE 8 

a @312 Beegoes WORD = USE 

18 ’ 

219 0314 122 eASCII /ROBS 
e315 184 
8316 102 

228 8317 oe0 o BYTE @ 

221 0320 eeeogas WORD ROB - 

222 ! 

223 0322 184 eASCII ACCS 
e323 183 
e324 103 

224 8325 200 BYTE @ 

225 0326 0800006 eWORD = ACC 

226 , 

227 , 

228 ' 

229 eIFDF = sac 

238 ' 

231 8330 10% eASCIT = /A0C/ 
O331 184 
0332 103 

232 8333 00 BYTE t] 

233 8334 soeeees eWORD = ADE. 

234 ! 

235 8336 122 eASCII /RTS/ - 
0337 = 424 vf 
e340 123 

236 O341 808 eBYTE @ 

237 0342 oeeeaeG eWORD = =-RTS 

238 ’ 

239 @344 414 eASCIT /LEO/ ah ; , 


rar traverse i in he 
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O345 105 
0346 1040 
248 0347 800 BYTE @ 
241 8358 20000086 2WORD LED 
242 , 
243 eENOC 9$A0C 
244 ! 
245 ’ 
246 , 
24u7 eIFOF S$CLK 
248 ’ 
249 8352 123 ASCII /SETR/ 
@353 125 
@354 124 
@355 122 
2528 3356 2000006 WORD SETR 
251 ’ 
252 0368 123 eASCII /SETCS 
@361 185 
@362 124 
0363 103 
253 8364 2000086 a WORD setc 
25a ’ 
255 0366 118 eASCII /HIST/ 
6367 vit 
8370 123 
e371 124 
256 0372 8020006 WORD HIST 
es7 , 
258 @374 127 eASCII /WAITS 
@375 101 
@376 iit 
O377 124 
259 8408 2000006 WORD WAIT 
268 ’ 
261 eENDC 7 SCLK 
262 ' 
263 
264 ’ 
265 el FOF S010 
266 , 
267 8482 194 eASCIT /OIR/ 
0483 ii 
o4ues 122 
268 B485 one BYTE @ 
269 8486 9800006 40RD OIR 
278 ’ 
271 8418 104 sASCIIT /DOR/ 
Oui4 117 
e412 122 
272 8413 = ga8 .BYTE ee is 
273 e414 oovgaas {WORD DOR A (- 
274 ! 
275 e416 108 eASCIT /ORS/ 4 
Q647 122 
8420 123 


276 8421 eae BYTE t) 
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277 622 6800006 WORD ORS 
278 ’ 
279 g42a 122 ASCII /REL/ 
e425 105 
8426 114 
260 o427 8e8 eBYTE ‘J 
261 0438 9000006 eWORD = =REL 
262 ’ 
283 eENDC 98010 
2646 , 
265 ’ 
286 ' : 
267 eIFOF 8 §=6s038 
288 ’ 
269 9432 103 ASCII = /CLRO/ 
0433 114 
ou34 122 
0435 104 
Hy 0836 0800086 «WORD =CLAD 
91 , 
292 9046 128 ASCII = /PUTO/ 
eae, 125 
e442 124 
0443 106 ‘ 
293 3004 8000086 eo WORD PUTO 
294 ’ 
295 9446 104 sASCII = /0T8/ 
eau7 aaa 
2ase 123 
296 845) 300 sBYTE @ 
ete 8452 8geeaeG eWORO OTS 
98 ’ 
299 9asa 106 sASCII /FSH/ 
uss 123 
@4S6 148 
300 2457 900 BYTE @ 
301 8468 go0ee8G oWORO FSH 
382 ’ 
393 8462 104 eASCII /OXY/ 
0463 138 
8464 138 
304 9465 ee «BYTE @ 
305 @466 gegeceG 2 WORD Oxy 
306 ’ 
307 eENOC 18018 
308 eENDC ySLPS 
389 6479 900008 24ORD = @ yEND OF THE BASIC FUNCTION TABLE, 
318 @00001" ENO 
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SYMBOL TABLE 


acc Bw areaee G aoc @ teeeee G AGET 8 euenen G 
APNT 8 Gaeeee G AaPUT 8 6 CLRO 8 aeanne G 
CONT 2 seaneee G OIR 8 6 ors & aeeeee G 
DISPLYs saneee G oor a 6 ors a aaaner G 
DSTP = xaneee G Oxy B eeneen G ERAS 8 aeenne G 
ESUB 8 anenae G FIGR & eennen G FIX S aanene G 
FRPUT = seanee G FREE & eeanne G FSH a examen G 
FTBL @BeGBeRG HIST 8 sewene G INIT 2 saeeee G 
LED B tenene G LPEN 8 sanane G NOSC © aeeeee G 
OFF B teeeen G ON BS eewnen G PUTD @ aenmen G 
ROB SB anneen G ROOT 8 aueene G REL SB eeannn G 
RTS B eerene G SAVE & teaene G SCAL = tuanne G 
SETC = seanan G SETR = sennen GC STAT 8 snawen G 
SUBP = rennne G TEXT 8 wanene G TIME © xawene G 
TIMR 2 weenee G TRAK © teawene G USE BS aewann G 
VECT «8 saenae G WAIT B watane G XGRA = naeene G 
YGRA 2 sanwae G SA0C # 000000 SCLK = 800000 
SCLOCKs 800000 SOIO = s 900080 SOIS = 000000 
SLPS = 980000 SSTRNGs 000000 SVTi1 = 800000 

» ABS, 9200000 eee 

20a472 oat 


ERRORS OETECTED: @ 
FREE CORES 16061, WORDS 


FYBL.GTL,»LPSePERPAR,GTL,FTBL 


(ete ss SS 


LPSO Ve1901 RTei{ MACRO VM@2=09 LeeOCTe7G B1856812 PAGE 1 


1 eTITLE LPS Volees 
2 peSBTTL LPS MAIN KERNEL MODULE #@ 
3 ’ 
: 9 DEC@11@LBEXA@BeLAL BASIC KERNEL v@2=@1 

’ 
. y COPYRIGHT (C) 1973,1974 

, 
6 » DIGITAL EQUIPMENT CORPORATION 
9 ) MAYNARD, MASSACHUSETTS 01754 
18 ' 
41 y THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
12 } CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
13 } AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
14 y DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
1s 1 MAY APPEAR IN THIS DOCUMENT, 
16 ’ 
17 } THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
18 ) LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
19 ) CAN BE COPIED (WITH INCLUSION OF DEC’S COPYRIGHT 
20 y NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
21 ) OTHERWISE BE PROVIDED IN WRITING BY DEC, 
22 ’ 
23 } DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
2a p OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
25 » WHICH IS NOT SUPPLIED BY DEC, 
26 ’ 
27 y WRITTEN BYt RICK HULLY FEB, 1973 
26 , 
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1 ’ 
¢ 1 THE FOLLOWING COMMON SUPPORT ROUTINES EXIST IN THIS MODULE! 
! 1 
4 ’ POLENT © ENTER POISH MODE OPERATION 
5 ’ CKCMGN = POLISH ROUTINE TO CHECK NEXT TOKEN EQEAL TO 
6 ' +COMMA AND THEN FETCH THE NEXT FLOATING 
7 ' POINT NUMERIC FROM THE INPUT STRING, 
8 ' GETNUM © POLISH ROUTINE TO FETCH A FLOATING POINT 
9 , NUMERIC FROM INPUT STRING, 
19 ' SAVREG © POLISH ROUTINE TO SAVE RO, R2 AND R3 
"1 ’ ON THE STACK, 
12 ’ SAVFAC © POLISH ROUTINE TO SAVE THE FAC ON THE 
13 ’ STACK, 
14 ’ SAVINT = POLISH ROUTINE TO SAVE ONLY THE INTEGER 
15 ' PORTION OF THE FAC ON THE STACK, 
16 ' RESREG = POLISH ROUTINE TO RESTORE R3, R2 AND 
‘7 ’ RO FROM THE STACK, 
18 ' INTST © POLISH ROUTINE TO INTEGERIZE PAC AND CHECK 
19 ; ITS RANGE AGAINST A GIVEN VALUE, 
20 ’ FLOAT © ROUTINE TO FLOAT A 16 BIT UNSIGNED INTEGER 
21 ' ENTERP = ROUTINE TO ENTER POLISH MODE FOR ONE ROUTINE 
22 ; ONLY AND THEN EXIT BACK TO CALLER, 
23 ’ BUFRES = POLISH ROUTINE TO RESET BUFFER POINTERS TO A 
24 ’ CIRCULAR BUFFER, 
25 ' GETV © POLISH ROUTINE TO CALCULATE ADDRESS OF 
26 ' VARIABLE SPECIFIED IN THE INPUT LINE, 
27 ’ GETBUF = POLISH ROUTINE TO FETCH NEXT VARIABLE FROM 
28 } INPUT LINE, TEST FOR AN ARRAY NAME ANO 
29 ’ CALCULATE THE POSITION IN THE ARRAY FROM 
30 ’ SUBSCRIPTS WHICH MAY BE GIVEN, 
31 ' CKBUF = POLISH ROUTINE TO CHECK IF ARRAY ADDRESS 
32 ’ SPECIFIED IN VARSAY(RS) HAS BEEN DEFINED BY 
33 ’ A "USE" COMMAND, 
34 ’ GETDAT = ROUTINE TO FETCH DATA INTO USER’S BUFFER 
35 ’ AND TEST FOR NON@EXISTANT DATA, 
36 ’ STODAT © ROUTINE TO STORE DATA INTO USER*S BUFFER 
37 ’ ANO TEST FOR DATA OVERRUN, 
38 ' GETADD = ROUTINE TO CALCULATE ARRAY ADDRESS FROM 
39 ; ARRAY NAME GIVEN BY CALLER, 
4a ; CKLPAR = POLISH ROUTINE TO CHECK NEXT TOKEN 
41 ' EQUAL TO 4 LEFT PARENS, A TEST 
42 ’ IS THEN MADE TO INSURE THAT WE STILL HAVE 
43 , ROOM LEFT TO WORK WITH, 
4a ' CKCOMA = POLISH ROUTINE TO CHECK NEXT TOKEN 
4s ’ EQUAL TO A .COMMA, 
46 ’ STORXT = COMMON EXIT ROUTINE TO STORE FAC IN VARIABLE 
47 ’ SET UP IN VARSAV(RS), CHECK LAST TOKEN EQUAL 
48 i: TO A RIGHT PARENS (ALTERNATE ENTRY POINT @ 
49 1 NAMED CKRPAR), AND RETURN TO THE BASIC 
58 , INTERPRETER, 
51 ; CKRPAR © ROUTINE TO CHECK LAST TOKEN EQUAL TO A 
S2 ; RIGHT PARENS AND RETURN TO THE BASIC 
53 ’ INTERPRETER, 
54 1 CONBCD © ROUTINE TO CONVERT BCD TO BINARY 
, 


LPSse 


Keer eueune 


VO198) 
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~~ ewe 


eSBTTL PROGRAM GLOBALS 


GLOBALS REQUIRED FOR COMMUNICATION WITH THE BASIC 
INTREPRETER, 


eGLOBL ERRPOL, ERRSYN, ERRARG 
2GLOBL EVAL,GETVAR,STOVAR 


eGLOBL INT, COMMA, RPAR 
eGLOBL NUMSGN,.LPAR 


sGLOBL TABLE, NARRAY, FLOAT 
eGLOBL POLENT,GETADO, GETNUM 
eGLOBL CKCMGN, INTST,GETV 
eGLOBL GETBUF,REGSAV,ERNOR 
eGLOBL STORXT,CKRPAR, ERBUF 
eGLOBL CKCOMA,ENTERP,STODAT 
eGLOBL GETODAT,RTSON,DRSON 
eGLOBL SAVER2,SAVFAC,RESTR2 
eGLOBL RESTOR, HISTON, BCOON 
eGLOBL CONBCO, BUFRES, DRSNPT 


eGLOBL 9 SAVINT,ORSBUF 


U 
1 GLOBALS REQUIRED FOR COMMAND PROCESSORS 


' 
9 GLOBALS FOR DEVICE ADDRESSES 


rc 


LPS@ VOlo@l 


L2enoueuwne 


at 


4e 


88000 
eeaae 
80004 
88086 
92010 
oeate 
aoe14 
90816 
20020 
geeee 
eoe24 
8eo26 
80030 
00032 
oeo34 
98036 
80040 
eeade 


ee00e0 
eeeee1 
ee00de 
000003 
800004 
088005 
080006 
000007 


177776 
200207 
000134 


' 
eeeg22 


eeoe24 
200026 
260040 
eeoeue 
000062 


280800 
900002 
280004 
880006 
890018 
eeaeie 


800005 


oeeese 
200008 
eeceee 
000008 
200000 
800000 
200000 
e0e8ag 
200008 
200008 
800088 
e0eg00 
80008 
9o0ge8 
080000 
900000 
200000 
804000 
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U 

’ 

RO 
Ri 
Re 
R3 
RG 
RS 
gP 
pc 


, 
5 GENERA 


SSiSav 
SSesav 
FaACl 
Fac2 
13 


, 

» BUFFER 
’ 

BEG 

END 

Put 

GET 


Bad 
DEL 


eGLOBL USE,RDB,ACC 


eGLOBL LPSAD,LPSOR 
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GLOBALS REQUIRED FOR COMMUNICATIONS WITH THE VARIOUS 
LPS HOOULES, 


LoeOCT97G BisS6si2 PAGE 4 


sSOTTL REGISTER ASSIGNMENTS AND EQUATES 


naunennanae 
a 
w 


4 EQUATES 


2 #2 
z 207 
s 134 


USER*S EQUATES 


22 
ea 
26 
40 
42 
62 


OESCRIPTOR EQUATES 


8 
2 
a 
6 
18 
12 


, 
y BUFFER DESCRIPTOR TABLE 


U 
NARRAYSS 
TABLE! 


«WORD 878,058,058 


WORD 8, 8r8,8,8,8 


eWORD 8, 8p 8,8, 808 


yPS s PROCESSOR STATUS WORD 
207 = RTS PC 
g134 = SMP e@(RU)+ 


yVAR SAVE FOR ASSIGNMENT 
#$$1 SAVE FOR ASSIGNMENT 
1882 SAVE FOR ASSIGNMENT 
sHIGH ORDER FLOATING VALUE 
LOW ORDER FLOATING VALUE 
SHORT TERM TEMPORARY 


sOFFSET 
sOFFSET 
sOFFSET 
OFFSET 
s OFFSET 
p OFFSET 


TO 
TO 
TO 
TO 
TO 
TO 


BEGINNING OF BUFFER OINTER 
ENO OF BUFFER POINTER 

PUT DATA POINTER 

GET DATA POINTER 

BAO DATA FLAG 

OISPLAY DELTA X 


yCURRENT NUMBER OF ARRAY ENTRIES 
’ SET aT S, 
76 WORDS PER ENTRY 


LPSo 


a3 


aa 


4s 
46 
a7 
48 
a9 
3e 
$1 
52 
53 
Sa 
35 


eeB4u 
00006 
00050 
e052 
@easa 
88056 
80060 
88062 
80064 
88066 
80a79 
oea7e 


oeo74 
00075 
O8876 
00077 
0e180 


be182 


VOi9@1 


000008 
000008 
eeceae 
eeegee 
TTT 
eeeode 
8ev000 
000000 
800000 
200000 
800000 
CTT TT) 


200 
0008 
e280 
Bae 
982000 


LPS@ V@l=o1 


Pe en ee a 


e104 
8o104 


00110 
a0112 


@B116 
oa12e2 


e8126 
82130 
20134 
80136 
ae1de 
20146 
88150 


20152 
e154 


ao168ea 
B@1o2 


004767 
@81214 


eeor1i12e* 
912746 
000005 
012746 
280000" 
004767 
001878 


@11602 
@1652e 
88022 


wlesee 


@16S2e2 
eee022 
816522 
ogag2e 
aaSe22 
@e5e22 
@1e216 
0O5762 
177766 


001420 
@22702 
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eWORD =, BB, 8, 8,8 


ORD 8, 8,0,0,8,8 


’ 
3 NON@REENTRANT VARIABLES 


U 

RTSONS BYTE 
ORSON? ,BYTE 
MISTONS ,BYTE 
BCDON: ,BYTE 
ORSBUFs ,WORD 


gRTS OPERATION IN PROGRESS 

yORS OPERATION IN PROGRESS 
HHIST OPERATION IN PROGRESS 
sBCO/BINARY SWITCH 

yORS COMMAND (BUFFER DESCRIPTOR 
’ ADDRESS) 

HORS COMMAND (NBR OF POINTS) 


ORSNPT? ,WORD 
' 


RT#11 MACRO ¥M@2<09 Lo~wOCT74 B81IS6si2 PAGE S 


’ eSBTTL "USE" COMMAND PROCESSOR 
jPoooeeeeveceocsosccocscoconecooneoscosecooseosoceesossesoooes 
; "USE™ COMMAND PROCESSOR 

: BASIC FORMs CALL "USE" (BUF (,BUF2(y5000(+BUFN)))) 


, . 
y PURPOSE: DEFINE BUFFER AREAS FOR USE WITH THE RTS, HIST, 

’ ORS, ROB, CLAD, PUTD, DIS, FSH, AND OXY 

’ COMMANOS, THIS COMMANO DEFINES THE SPECIFIED 

’ ARRAYS, BUF, BUF2, ETCyeos AS CIRCULAR 

’ OATA ARRAYS, ANY NUMBER OF BUFFERS MAY BE 

’ SPECIFIED, BUT ALL MUST BE GIVEN IN A SINGLE 

’ "USE" STATEMENT, CURRENTLY THE SYSTEM WILL 

’ SUPPORT UP TO 5 OF THESE AREAS, HOWEVER, THIS 

’ MAY BE CHANGED AT ANY TIME BY REASSEMBLY, EACH 

’ BUF DEFINED MUST HAVE PREVIOUSLY BEEN DEFINED 

’ IN A _POIM*® STATEMENT, THE FOLLOWING FORM, HOWEVER, 
’ TS LEGALS 

, 10 DIM AC50),80180),C( 200) 

, 20 CALL "USE"(A,A(25),8,C) 

U 

u 


Se: yENTRY POINT TO PROCESSOR 
JSR PC,POLENT _ PENTRY POLISH MODE AND CHECK 
' FOR ENOUGH AREA TO WORK 
’ WITH AND THAT FIRST TOKEN 
’ IS INDEED A LEFT PARENS, 
202 yEXIT POLISH MODE 
MOV WNARRAY, © (SP) sENARRAY?S ALLOWED, 
MOV STABLE, @(SP) WWHERE DEFINITIONS WILL END UP 
USES! JSR PC,GETADO yGET ARRAY FROM INPUT LINE AND 
' CALCULATE ITS ARRAY ADDRESS, 
’ THEN CHECK TO MAKE SURE ITS 
’ WITHIN RANGE, 
USE2: MOV (SP) ,R2 ¥GET TABLE ADDRESS 
MOV VARSAV(R5),(R2)¢ SAVE BEGINNING ADDRESS OF 
’ ARRAY IN TABLE 
Mov R3,(R2)6 sSAVE ENDING ADDRESS OF ARRAY 
’ IN TABLE, 
Mov VARSAV(RS),(R2)¢ yRESET GET AND PUT POINTERS 
MOV VARSAV(RS), (R2)¢ 
CLR (R26 JCLEAR BAD DATA FLAG 
CLR (R2)¢+ JCLEAR DELTA X INCREMENT 
MOV R2, (SP) pSAVE CURRENT TABLE POSITION 
TST 212(R2) JWERE WE ZEROING THE REST OF 
' THE ARRAY? 
BEQ USES " SYESt CONTINUE ZEROING THEN 
CMP ATABLE S14, R2 WCHECK IF PREVIOUSLY DEFINED ARRAY 


me 


LPS@ Vet=e1 


—-— =~ —-. 


LPS® vei! 


Oaneuewne 


00166 


20178 


80176 
20200 


ee206 
80210 


aeei4 
O8216 


ea222 
ee226 


00230 
e232 


08236 


ee2de 
ee244 
@8246 
80258 


00254 


80256 
86256 


88262 


@8264 
A8266 
862708 
e272 
g0274 
@0276 


ee3ee2 
ee3a4 
90318 


000e14° 
01415 


@20262 
177782 
177766 
e01011 
@26262 
177758 
177768 


191005 


@16203 
177764 
005743 
10362 
177752 
085366 USEGs 
eeeede 
ee3e03 


O22626 
000167 
001130 


322127 USELs 
00eea8G 
001727 
005303 
eesea3 
005065 
Beeo22 
200724 


cmp 


BNE 
CMP 


BHI 
MOV 


1st 
MOV 


oEec 
aGT 


cup 
ome 


cMPB 
BEQ 
oEC 
CLR 
CLR 


eSBTTL 
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USEa ’ WAS PROM SAME OIMENSIONED 
' ARRAY, 1ST ENTRY IS NOT 
' CHECKED, 

@26(R2),°12(R2) 

USES pARRAYS NOT SAME, CHECK IF THE 


@38(R2),e14(R2) 3 LARGER ONE IS THE PREVIOUS 


’ ONE 
USEG vYESe FORGET TT THEN, USER MUST 

’ WANT TO OVERAY HIS DATA AREAS, 
@14(0R2),R3 pDEFINE PREVIOUS ARRAY*S END ADORESS 
=(R3) ’ TO BE 2 LESS THAN THE START 
R3,=26(R2) ’ OF THE NEW ARRAY, 
2¢sP) sANY MORE SPACE AVAILABLE? 
USES rYE8s CHECK NEXT TOKEN FOR & 

’ 2COMMA OR RIGHT PARENS, 
CSP), (SP) 4 HCLEAN UP STACK 
CKRPAR PALL DONE, CHECK FOR RIGHT 


’ PARENS ANO RETURN TO 
’ THE BASIC INTREPRETER, 
(RI) o,# COMMA sNEXT TOKEN A ,COMMAT? 


USES sYESt GET NEXT ARRAY NAME 

Rt BACK UP TO UNCLASSIFIED TOKEN 
R3 CLEAR REST OF TABLE 
VARSAV(RS) 

USE2 
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®ROB" COMMAND PROCESSOR 


U 
1PCOOOOL ODODE OOOOOEO OER EOOR OOOO OOO OOOO OD HOO OOOO DEE HOOOOOOOS 


BASIC FORMS 


5 

, 

U 

4 

U 

y PURPOSES 

, 

, 

' 

i 

U 

’ 

’ 

U 

U 

U 

Uy 

U 

, 

’ 

’ 

U 

, 

’ 

, 

’ 

i] 

s 

U 

U 

, 

U 

U 

ROB? 
@04767 JSR 
B@1nde 
0ee702" +GETBUF 
@20366° +SAVER2 
001352° +CKCOMA 
880656" oGETV 
e0a274° #2 
012602 “OV 
004767 JSR 
200454 
1034e2 Bcs 
OG4767 JSR 
e002346 
000167 ROBIs sme 


"RDB" COMMAND PROCESSOR 


CALL *®RDB*" (BUF, VAR) 


RETURN THE NEXT DATA POINT FROM THE SPECIFIED 


BUFFER, RETURNS VALUES OF 65535 >= VAR >= @ 
FOR GOOD DATA, BAD DATA (DEFINED AS OVERRUN) 
TS RETURNED AS OUTSIDE THE SPECIFIED RANGE 
(VIZ, NEG, FLOATING POINT MINUS ONE), IF NO 
DATA EXISTS YET, Ie€e, IT?S WAITING FOR A NEW 
SAMPLE, A FLOATING POINT MINUS TWO WILL BE 
RETURNED, 


WHEN THE REFERENCED BUFFER REFERS TO 
ANALOG SAMPLING (RTS FUNCTION), THE VALUES 
RETURNED ARE IN THE RANGE 4895 >= VAR >= Gy 


WHEN THE REFERENCED BUFFER REFERS TO A CLOCKED 
HISTOGRAM SAMPLING (HIST FUNCTION), THE VALUES 
RETURNED ARE IN THE RANGE 65535 >3 VAR >= 2, 
THESE VALUES ARE EITHER THE NUMBER OF TICKS 
ACCUMULATED OR THE NUMBER REMAINING DEPENDING 
ON THE CURRENT CLOCK MODE, 


WHEN THE REFERENCED BUFFER REFERS TO A DIGITAL 
170 OPERATION (ORS FUNCTION), A VALUE BETWEEN 
65535 >= VAR ># @ JS RETURNED FROM THE NEXT 
POSITION IN THE SPECIFIED BUFFER, 


IN ALL CASES, A FLOATING POINT MINUS ONE 
IS RETURNED WHEN THE BUFFER IS OVERRUN, 


sENTRY POINT TO PROCESSOR 
PC,POLENT pENTER POLISH MODE AND CHECK 


’ FOR ENOUGH AREA TO WORK 

’ WITH AND THAT FIRST TOKEN 

' 18 INDEED A LEFT PARENS, 

#GET BUFFER ADDRESS FROM COMMAND STRING 
, AND CHECK IT AGAINST THE 

’ DEFINITION TABLE, 

SAVE DESCRIPTOR ADDRESS ON STACK 
yCHECK NEXT TOKEN EQUAL TO A COMMA 

1GET VARIABLE ADDRESS, 

yEXIT POLISH MODE 


(SP)+,R2 RESTORE DESCRIPTOR ADORESS 
PC,GETOAT sGET DATA FROM ARRAY SPECIFIED BY Re 
ROBL CS MEANS R3 1S RETURNING AN 

’ ERROR CONDITION, 
PC, FLOAT VFLOAT THE 16 BIT UNSIGNED INTEGER 


STORXT PSAVE FAC IN PREVIOUSLY OPENED 


ae ee 


LPSo 


5s 
So 
$7 


V@19@1 


001040 


LPS@ VvO1901 


COrnoueune 


80314 


oa314 


e320 


e322 
bas24 
@8326 


88334 


004767 
001006 


000702" 


8006040" 
860326" 
@12762 
000400 
200018 


000137 
001366" 
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VARIABLE, CHECK FOR ")", AND 
RETURN TO THE BASIC INTERPRETER, 


a 
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’ eSBTTL "ACC*® COMMANDO PROCESSOR 


, 
SOOPOEOOOOOOOOOOOO ODORS O OOO OOOOH OOOH OOEH OOOO OOO OOO OOO EEO SOOOS 


"ACC® COMMAND PROCESSOR 


ewe we we we we we we ee 


ccs 
JSR PC,/POLENT 
*GETBUF 
*BUFRES 
o¢2 
MoV #488,BA0(R2) 
SMP @aCKRPAR 


BASIC FORM: CALL "ACC" (BUF) 


PURPOSE: ACCESS ENTIRE BUFFER "BUF", THIS COMMAND RESETS 
ALL BUFFER POINTERS TO ALLOW FULL ACCESS TO 
THE ARRAY VIA THE "ROB" COMMANO, THE "PUTO" 
POINTER IS PLACED AT THE END OF THE ARRAY AND 
THE "ROB" POINTER IS PLACED AT THE BEGINNING, 


SENTRY POINT TO PROCESSOR 
VENTER POLISH MODE ANO CHECK 


, 
’ 
U 


FOR ENOUGH AREA TO WORK 
WITH AND THAT FIRST TOKEN 
IS INDEED A LEFT PARENS, 


9GET BUFFER ADDRESS FROM COMMAND 


AND CHECK IT AGAINST THE 
DEFINITION TABLE, 


PRESET BUFFER POINTERS 
LEAVE POLISH MODE 
SET BAD ID INOICATING NEXT PUT 


BEFORE ANOTHER GET WILL CAUSE 
OVERLAY OF GOOD DATA, 


MAKE SURE LAST TOKEN IS A ")" AND 


’ 


RETURN TO THE BASIC 
INTERPRETER, 


LPS@ Vel9@1 


Oerneusune 


80340 
20340 


easa4 
00346 
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’ sSBTTL CKCMGN AND GETNUM 
’ 
100OO000000000000000000000000000000000 0000000000 00008 000000000 


POLISH ROUTINE TO CHECK NEXT TOKEN EQUAL TO A ,COMMA 
AND THEN FETCH THE NEXT FLOATING POINT NUMERIC FROM INPUT 
STRING, 


ROUTINE IS CALLED IN POLISH MODE 


REGISTERS USED: EVAL USES R@, R2, AND RB 
Ri IS BUMPED PAST VARIABLE 


U 
’ 
, 
U 
U 
’ 
, 
' 
’ 
’ RESULT IS RETURNED IN PAC 
' 

c 


KCMGNG 
122127 CMPB (R1) 6). COMMA CHECK NEXT TOKEN EQUAL TO 
BeeeeRG 

' A ,COMMA, 

ee14e2 BEO GETNUM YESs GET NUMERIC NOW 
080137 JMP @MERRSYN sSYNTAX ERROR 
88G08G 

’ 

JOCOOOOOOOOOOOHOOE OO OOOOH OOOOOOOOOOOOSOOEO OOOO OOOO ODOR OOOO 

U 

» POLISH ROUTINE TO FETCH A FLOATING POINT NUMERIC FROM 

y INPUT STRING, 

U 

y ROUTINE I8 CALLED IN POLISH MODE 

’ 

y REGISTERS USEDs EVAL USES RQ, R2, AND R3 

’ Ri IS BUMPED PAST VARIABLE 

’ RESULT IS RETURNED IN FAC 

’ 

GETNUM) 
004737 JSR PC, OMEVAL GET NUMERIC 
0880006 
193001 Bcs ERARG PILLEGAL ARG TYPE 
000134 POLRET gRETURN IN POLISH MODE 

U 
980137 ERARG: JMP OMERRARG ILLEGAL ARG TYPE 
2080006 


LPS@ vale 


= OONTUM EWN 


12 


88366 
00366 
00378 


00372 
80372 


00376 
88376 


ea4ee 
oe4eu 


eoued 
20486 


010246 
000134 


016546 
200048 


816546 
oeoede 
800134 


Q12682 
O80134 
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’ sSBTTL SAVE/RESTORE R2 AND FAC (SAVER2,SAVFAC, RESTR2) 
’ 
[OOCPCOORPO LO OOEOOOOOEEEDOREEOEDOO OECD OOD OOOOEEEOROOOOEOODOD 


POLISH ROUTINES TO SAVE/RESTORE REGISTER R2 OR 
THE FAC ON THE STACK, 


ALL ROUTINES ARE CALLED IN POLISH MODE 


’ 
, 
' 
U 
H 
1 REGISTERS USED: ONLY THE STACK 
’ 

$s 


AVER2! 
MOV R2,0(SP) SAVE R2 ON THE STACK, 
POLRET RETURN IN POLISH MODE 
, 
SAVFACs 
MoV FACI(RS),9(SP) SAVE THE FAC ON THE STACK 
SAVINTS 
MoV FaC2(R5)¢=(SP) 
POLRET pRETURN IN POLISH MODE 
U 
RESTR2: 
MOV (8P)o,R2 RESTORE R2 FROM THE STACK 
POLRET gRETURN IN POLISH MODE 


Ne ee emmmamenal 
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_ , eSBTTL INTERRUPT REGISTER SAVE/RESTORE ROUTINES 
’ 

: FOCPCOR RDO O LOSE DEORE REORDER ORNS ODOR ROBO RRO R DOOR O RO ROOR RECS 
’ 

Ss 1 ROUTINES TO SAVE/RESTORE RG, R2 AND R3 ON STACK AND 

; y RETURN TO INTERRUPTED PROGRAM, 
, 

8 e8o410 REGSAVs 

9 a00419 818246 MOV R2,=(SP) PUSH R2 ON STACK 

18 88412 B16602 MOV 2¢8P),R2 +GET PC FROM CALL 

odode 
11 80416 G10066 MOV RO,2(8P) sNOW PUT RO THERE 
eeeade 

12 @a422 a10346 MOV R3,0(SP) ySAVE RS 

13 00624 010207 MOV R2a,PC PRETURN TO CALLER 

14 ’ 

15 8426 RESTORS 

16 08426 812603 MOV (SP)4,R3 RESTORE RI 

17 88430 B12602 MOV (SP) o,R2 RESTORE R2 

18 98432 B12000 MOV (SP) 4,RO PRESTORE RO 

ay 00434 aagae2 RTI RETURN TO INTERRUPTED PROGRAM 
U 
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1 ’ eSBTTL INST 
2 ’ 
3 FOOOOCOO OOO OOO OO OOOO EOD OOOO OOOO DOORS OOEOS OO OOO EEO OOOO REOOEEOD 
4 ’ 
5 1 POLISH ROUTINE TO INTEGERIZE FAC AND CHECK ITS 
6 1 RANGE AGAINST & GIVEN VALUE, 
7 ’ 
8 y ROUTINE IS CALLED IN POLISH MODE 
9 , 
1@ y REGISTERS USED: R@ ONLY 
i ? T3CRS) MUST POINT TO RANGE ELEMENT 
12 ’ (T3CRS) IS BUMPED BY 2 AFTER CALL] 
13 ’ 
14 00436 INTSTS 5 
15 @0436 004737 JSR PC, @WINT PINTEGERIZE RESULT 
0800006 
16 88442 805765 TST FACS(RS) 
600g4e 
17 80446 180433 amt ERNOR NEGATIVE NUMBER IS ILLEGAL 
18 8652 B014ui6 BEG ING VALREADY IN AN INTEGER FORM 
19 @84S2 826527 CMP FACI(RS),#44208 sTEST NUMBER OUT OF RANGE 
800048 
044200 
28 ' (1,€&, 265535), 
21 88468 183022 BHIS IN2 rYESt SET EQUAL TO MAX (65535) 
22 88462 156565 8188 FACI(R5S)/FAC2(RS)s NUMBER MUST BE A 16 BIT INTEGER 
008040 
eoeese 2 
23 00478 200365 SwaB Facecrs) ’ TO GET THIS FAR, CONVERT IT 
288042 
24 80474 852765 BIs #100000,FAC2(RS) 3 TO ONE WORD THEN, 
188080 
eeeaue 
25 @@Se2 ea5065 IN3t CLR FACICRS) 
200048 
26 08506 826575 INt: cMP FAC2(RS),@T3(R5) NUMBER IS IN 16 BIT FORM 
edee4e 
@0@a62 
27 ’ NOW, MAKE SURE ITS IN RANGE, 
28 28514 181010 BHI ERNOR +NUMBER TO LARGE, "ARG ERROR" 
29 @8516 862765 aod #2,T3CRS) BUMP TO NEXT RANGE FOR NEXT 
ea0aee 
@esgee 
30 ’ CALL, 
31 88524 age134 POLRET RETURN IN POLISH MODE 
32 88526 812765 IN2s MOV #o1,FAC2(RS) SET OVERFLOW EQUAL TO MAX (65535), 
177777 
edeoue 
33 00534 900762 BR IN3 
34 1 
35 88536 ERNORS 
36 80536 104400 TRAP a 
37 20540 116 eASCII /NOR/ 


eas4t 117 

@e542 122 
38 00543 eee BYTE t) 
39 ’ 


LPSO V@le9@i 


Coven sune 


9e54a 
2es4a 
00546 
60550 
eess2 


20556 
88500 


eeSe2 
08566 
ees72 
00574 
80576 
seceea 
eaea4 
@0006 
oee12 


88616 


905703 
180017 
810346 
842716 
190e¢e0 
105016 
000316 


Q62716 
e44g00 
012605 
e8ega0 
810346 
800316 
185e16 


812065 
8000K2 
000207 


eesees 
000048 
010365 
oeeoue 
200207 


LPS@ Ve@t9~o1 


COncueWUnNe 


89628 
eeo28 


eo624 
20630 
00638 
00632 


20636 


80648 
00640 


20644 
266050 


206546 


080632° 
Bo2e716 
oeoade 
080207 


e11262 
600804 
811262 
@00826 
eeSeee 
eeeate 
080134 
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R3 ON CALL MUST HAVE 16 BIT NUMBER 


yNOG NUMBER OK AS IS THEN 
yPUT NUMBER ON STACK 
sIGNORE MOST SIGNIF, BIT 


CLEAR OUT LEAST SIGNIF, 
NOW MOVE MOST SIGNIF, TO RIGHT 


SAVE MOST SIGNIF, AND EXPONENT 
yNOW WORK ON LEAST SIGNIF, 


CLEAR OUT THE REMAINING LEAST 
' SIGNIF, 8 BITS, 


’ eSBTTL FLOAT 
TT LT 
, 
ys ROUTINE TO FLOAT A {6 SIT UNSIGNED INTEGER 
’ 
y REGISTERS USED: 
' TO FLOAT, 
’ FAC HAS FLOATED RESULTED 
’ 
FLOATS 
TST R3 6 BIT NUMBER? 
BPL FLOATI 
MOV R3,0(8P) 
arc #100000, (SP) 
CLRB (SP) 
SwaB (SP) 
’ BYTE 
400 #44880, (SP) 9400 IN EXPONENT 
Mov (5P)¢,FACICRS) 
MOV R3,0(8P) 
Swas (SP) 
CLRB (SP) 
MOV (SP)o,FAC2(RS) sSAVE IN FAC NOW 
RETURN RETURN TO CALLER 
i] 
FLOATit CLR FACI(RS) PLEAVE AS INTEGER 
Mov R3,FAC2(RS) 
RETURN 


sRETURN TO CALLER, 
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’ eSBTTL ENTERP & BUFRES 


' 
1OCOCOOOHOOOOOOOOOO SOOO OO OOOO OO OOOOH OO OOOOOSEOEOOOOOOOOOOOOE 


' 
ys ROUTINE TO ENTER POLISH MODE FOR ONE ROUTINE AND THEN 


9 EXIT BACK TO CALLER, 


> CALLS 
’ JSR PC, ENTERP 
’ eWORD ROUTINE 
, NEXT INSTRUCTION 
U 
ENTERPS 
MoV #RETURP,RG 
MOV @(SP),PC 
' 
RETURPS 
o¢2 
ry y>) #2, (SP) 
RETURN 


VENTER POLISH MODE 
sROUTINE TO ENTER 
RETURN MADE HERE 
HSETUP POLISH RETURN PC 


sCALL ROUTINE IN POLISH MODE 


sEXIT POLISH MODE 
BUMP PAST ARG 


RETURN TO CALLER 


' 
1OOOOOOOO OO OOOO OOOOH OOO OOOO OO OOOOOSOOOOOO OO OOOO OOOHEOORSOD 


A SAMPLING OPERATION OCCURS, 


' 
, 
‘ 
U 
5 
' 
U 
’ 
U 
' 
U 
U 
8 


UFRESs 
MOV (R2),PUTCR2) 
MOV (R2),GETCR2) 
CLR BAD(R2) 
POLRET 


U 
U 


POLISH ROUTINE TO RESET THE POINTERS (BOTH GET ANO PUT) OF 
A CIRCULAR BUFFER, EFFECTIVELY EMPTIES THE BUFFER BEFORE 


ROUTINE IS CALLED IN POLISH MODE 


R2 ON CALL MUST CONTAIN ADDRESS 
OF BUFFER IN DESCRIPTOR TABLE, 
NO REGISTERS (GENERAL PURPOSE) 
ARE ALTERED BY THE ROUTINE, 


PRESET THE GET AND PUT POINTERS 


#CLEAR OUT BAD DATA FLAG 
yRETURN IN POLISH MODE 


LPs@ vet~as 

i 

2 

3 

ry 

S 

6 

7 

8 

9 

1e 

M1 

12 

13 

14 90656 

15 98656 112102 

16 02668 120406 

17 08662 geo3a2 

18 BG664 152102 

19 08666 g61502 

20 02670 204737 
8eveaes 

21 20674 990134 

22 

23 80676 000137 
880aeeG 

2a 

25 

26 

27 

28 

29 

3e 

31 

32 

33 

34 

35 

3o 

37 

38 

39 

48 

41 20702 

42 00702 004767 
800318 

43 

44 08706 026503 
eeeeee 

45 

46 

47 88712 103016 

48 

LPS@ VotWot 

1 

2 

3 

4 

5 

6 

7 

8 

9 

18 

M1 

12 

13 

14 

1s 

16 

17 Be714 

18 0714 w12702 
eeeees 

19 00720 012746 
20eaee? 

20 88724 827665 
eeeaee 
eeeg22 

21 08732 81002 

22 02734 a12602 

23 00736 200134 

24 08748 a62716 
oeeais 

25 9e744 gaS302 

26 80746 303366 

27 00750 

28 0075@ 104400 

29 90752 122 

00753 125 
80754 106 
38 90755 eae 
3 


eee 
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' eSBTTL GETV AND GETBUF 
J OOo eeoeeovsseccorcoescoesoveccoeeeooecooesonecoceooeeoooees 


POLISH ROUTINE TO CALCULATE ADDRESS OF VARIABLE 
SPECIFIED IN THE INPUT LINE, 


ROUTINE IS CALLED IN POLISH MODE 


U 
’ 
U 
, 
s 
' 
y REGISTERS USEDs EVAL USES R@, R2, AND R3 
' Ri IS BUMPED PAST VARIABLE 
’ RESULT IS STORED IN VARSAV(RS) 
U 
GETV8 

MOVE (R1)o,R2 BUILD WORD OFFSET 

amt SYNER sTOKEN ILLEGAL HERE 

SwaB R2 

BIsB CRA) o RO 

40D (RS) ,R2 yR2 NOW POINTS TO SYMBOL TABLE ENTRY 

JSR PC, @uGETVAR yGET NAME AND SUBSCRIPTS SET UP 


POLRET PRETURN IN POLISH MODE 
5 
SYNERS JMP O#ERRSYN sSYNTAX ERROR 


' 
1OOCOOO OOOO EE OOOOOOOOOOR OO OOOH OOOOH OOOOO OOOO HOO OOOEO OOOO ROOD 


POLISH ROUTINE TO FETCH NEXT VARIABLE FROM INPUT LINE, 
TEST FOR AN ARRAY NAME AND CALCULATE THE POSITION 
IN THE ARRAY FROM SUBSCRIPTS WHICH MAY BE GIVEN, 


! 
’ 
' 
U 
’ r 
s ROUTINE IS CALLED IN POLISH MODE 

' 

y ON EXITs R@ POINTS TO ARRAY BASE ADDRESS 

’ R1 IS BUMPED PAST ARRAY NAME 

’ R2 POINTS TO SYMBOL TABLE ADDRESS 

’ R3 POINTS TO END OF ARRAY 

’ VARSAV(RS) POINTS TO ACTUAL ARRAY ADDRESS 
' 

y ROUTINE FALLS THROUGH TO CKBUF, 

U 
6 


ETBUFS 
JSR PC, GETADO CALCULATE ARRAY ADDRESS FROM 


’ ARRAY NAME POINTED TO BY Ri, 
cmp VARSAV(RS),R3 = sOETERMINE IF GIVEN SUBSCRIPTED 


, ARRAY I8 WITHIN BOUNDS OF 


’ DIMENSIONED ARRAY, 
BHIS ERBUF BUFFER ERROR 
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’ eSBTTL CKBUF 

‘ 

JOCOOOO DORE D> ELE O ERO O RESO ERROR SEBEL ODOR ERO ORS ERE H RESO O RROD 
POLISH ROUTINE TO CHECK IF ARRAY ADDRESS SPECIFIED 

IN VARSAV(RS) HAS BEEN DEFINED BY A "USE" COMMAND, IF SO, 
THE ENTRY ADDRESS IN THE TABLE IS RETURNED IN R2 AND THE 
ARRAY POINTERS INITIALIZED, 

ROUTINE IS CALLED IN POLISH MODE 

CALL IS MADE WITH STARTING ADDRESS OF ARRAY IN VARSAV(RS) 


REGISTERS USED: ON EXIT, R2 HAS TABLEZON] WUWHUVUSS 


’ 
’ 
’ 
’ 
’ 
’ 
’ 
' 
, 
U 
U 
, FOR THIS BUFFER, 
’ 

c 


KBUF? : 
MOV WNARRAY,R2 1SET UP TO SEARCH "USE" DEFINITION 
MOV #TABLE, (SP) ’ TABLE. 

ckas cme @(SP),VARSAV(RS) jMATCH? 
BNE cKt NOt LOOK AT NEXT ENTRY 
MOV (SP)6,R2 sRETURN ENTRY ADORESS IN R2 
POLRET yRETURN IN POLISH MODE 

CKis ado W14,(SP) yLOOK AT NEXT ENTRY 
OEC R2 ALL DONE? 
ect Cka NOt CONTINUE 

ERBUFS NOT FOUND! SUFFER ERROR 
TRAP ) 


ASCII /BUF/ 


BYTE J 


LPS@ vVeleo) 
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1 ’ eSBTTL GETOAT 

2 ’ 

3 TIT TD) 

4 ’ 

5 y ROUTINE TO TEST USER*®S BUFFER FOR DATA, ANO IF IT 

6 1 EXISTS, REMOVE IT AND RETURN IN R3, . 

1 ' 

8 + CALLE 

9 ’ Jse PC,GETOAT 

18 ’ 

a y REGISTERS USED: R2 MUST POINT TO SUFFER DESCRIPTOR 

12 ’ BLOCK ADORESS BEFORE CALL, 

43 ’ R3 WILL HAVE DATA ON RETURN, 

14 ' CARRY WILL BE SET IF AN ERROR OCCURED, 

is ’ IN THIS CASE, R3 AND THE FAC 

16 ’ WILL HAVE THE ERROR CODE, 

{7 ’ 

18 00756 GETDATS 

19 @0756 gee24) CLC #CLEAR CARRY BIT IN PS 

20 @0762 Gio7d6 MoV PS,=(9P) SAVE CURRENT PS ON STACK 
177776° 

21 80764 852767 ers #340,PS RAISE TO LEVEL 7 FOR PROTECTION 
200340 
177776° 

22 00772 905065 CLR PACicRrs) PALWAYS AN INTEGER RETURNED 
eeee4e 

23 88776 105762 rsTs BAD(R2) sCHECK TO SEE IF DATA OVERRUN 
200010 

24 ’ OCCURRED, 

25 81002 o01034 BNE GET! #YES¢ RETURN =1 AS VALUE OF DATA 

26 81004 B26262 CMP GET(R2),PUTC(R2) DOES DATA EXIST? 
080006 
ea0004 

27 81812 A81422 BEQ GETe PROBABLY NOT, BUT CHECK FOR FULL 

26 ’ BUFFER ANYWAY, 

29 81014 @e5ee2 GET@: CLR BAO(R2) yCLEAR BAD DATA FLAG IF SET 
200010 

30 @1028 B17203 MOV OGET(R2),R3 1GET DATA 
080006 

31 81024 962762 ado #2,GET(R2) sUPDATE POINTER 
eeeose 
800006 

32 81032 826262 cmp GETCR2),ENO(R2) yOID IT CAUSE A WRAP AROUND? 
888006 
eeeege 

33 81040 1014602 BLOS GETS yNO 

34 @1042 811262 MOV (R2),GET(R2) sWRAP POINTER AROUND 
eases 

35 01046 010365 GET3s MOV R3/FAC2(R5) pSAVE RESULT IN FAC AS AN INTEGER 
eeeade 

36 81852 012667 MoV (SP)o,PS RESTORE PS 
177776° 

37 81056 200207 RETURN RETURN TO CALLER 

36 ’ 

39 01060 105762 GET2: STB BADe1(R2) yI8 THERE REALY DATA HERE? 
eeee1s 

48 81064 001353 BNE GETO yYES: GO GET IT THEN 

LPS@ vel9o! RT@i1 MACRO VMO2909 LoeOCT~7G BLsS64l2 PAGE 16% 

41 @1066 012703 Mov #=2,R3 pINDICATE NO DATA EXISTS YET 
377776 

42 01072 adeucs BR GETS 

43 01074 012703 GET1s MOV #o1,R3 PINOICATE DATA OVERRUN OCCURRED, 
177777 

44 81198 105062 CLRB BAD(R2) HCLEAR OUT BAD DATA FLAG 
eeeale 

4s ' $O NEXT FETCH WILL RESULT 

46 ’ IN GOOD DATA, 

47 81104 @85216 GET: TNC (SP) SET CARRY SHOWING FAILURE 

48 81106 080757 BR GET3 pRETURN 


ag 


LPse 


OOneNeune 


10 


LPse 


won oMeune 


81118 
G111e 


1114 


o1122 


01126 
81130 


1134 
O11400 
@1144 


B1146 
@1150 


ey1sa 
@1156 
81164 
01178 
O1174 
1200 
b1282 


1219 
Brer4 


81216 
1216 
1220 
1222 
a122e4 
1226 
01230 


o1234 
81236 
@124e 
B1244 
1246 
1254 
@1256 


@1262 
@12ou 


a1278 


@1274 
@1276 


81302 


81318 


1314 
81316 
81320 
01322 


V@toel 


016746 
177770° 
852767 
980340 
177776? 
105762 
008011 
e125 
BLb2d6 
eoeee4 
B62716 
aeeoee 
021662 
e00eae 
101403 
O1tete 
821662 
oeeea6 


ee1003 
152762 
880001 
eeeeit 
10372 
200004 
@12662 
eecees 
012667 
177776° 
000207 


e52762 
eooeet 
080010 
@16246 
eeoee4 
000763 


VO19@L 


112102 
100450 
800302 
152102 
861502 
e2e7le 
177776 
eeiede 
810246 
004737 
2000006 
12602 
@22765 
177777 
806026 
@819032 
916203 
eecene 
@10300 
019065 
eseo22 
085765 
oeages 
192405 
006365 
eeeo2u 
066565 
eooeed 
@e002e 
816246 
eeeoa4 
OBO316 
206316 
262603 
000207 
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’ eSBTTL STOOAT 
U 
IMPOOO COLO D OOOO ODEO ODEO FOO SORE O RDO OOO RODD O ROR OR DOR; R RODEO 
’ 
ROUTINE TO STORE DATA INTO USER’S BUFFER ANO TEST FOR 


, 
} DATA OVERFLOW, 
, 
y CALLE 
: JSR PC, STODAT 
’ 
} REGISTERS USED: R2 MUST HAVE BUFFER DESCRIPTOR BLOCK 
H "ADDRESS BEFORE CALL, 
i R3 MUST HAVE OATA TO INSERT BEFORE 
; ALL 
} R3 18 DESTROYED ON RETURN 
' 
STooaTs 
Mov P8,0($P) }SAVE CURRENT PS ON STACK 
ars #340,PS PRAISE TO LEVEL 7 FOR PROTECTION 
TSTB —- BAD#4.(R2) OVERRUN BIT SET? 
BNE NOROOM 1YES! SET OVERFLOW FLAG 
MoV PUT(R2),=(SP)  jUPOATE PUT POINTER 
400 #2, (SP) 
CMP (SP),ENO(R2) DID IT CAUSE A WRAP AROUNO? 
BLOS NOWRAP 1NO 
Mov (R2), (SP) yWRAP POINTER AROUND 
NOWRAP CHP (SP),GET(R2)  pWILL WE OVERRUN THE GET POINTER 
) NEXT TIME? 
BNE 87001 1NO 
QISB © #4,BAD41(R2)_—s4YESE REMEMBER THIS THEN 
stoi: Mov R3, ePUT(R2) ySAVE DATA 
Mov (9P)¢,PUT(R2) )SAVE NEW PUT POINTER ALSO 
mov (3P)4,/P8 sRESTORE PS 
RETURN RETURN TO CALLER 
: 
NOROOM! BIS #1,BaD¢R2) }REMEMBER THAT BAD DATA EXISTS 
nov PUT(R2),@(SP)  yDON*T UPDATE THE PUT POINTER 19 
ar 87001 RESTORE PS ANO RETURN TO CALLER 


RTe11 MACRO VM@2009 1oeOCT#74 BisSosi2 PAGE 18 


, eSBTTL GETADD 
U 
a tl te thd adhd dhd beh dd 


ROUTINE TO CALCULATE ARRAY ADORESS FROM ARRAY NAME 
POINTED TO BY Ri, 


’ 

s 

' 

: REGISTERS ON RETURNS RO POINTS TO ARRAY BASE ADORESS 

1 Ri IS UPDATED PAST ARRAY NAME 

’ R2 POINTS TO SYMBOL TABLE ENTRY 

’ R3 HAS ADDRESS OF END OF ARRAY 

’ VARSAV(RS) POINTS TO ENTRY TO ARRAY 
3 
6 


ETADOL 
Move (Ri) o)R2 }BUILD WORD OFFSET 
BMI SYNERR sTOKEN ILLEGAL HERE 
SWAB R2 
8188 (RL) oy R2 : 
ADD (RS) ,R2 yR2 NOW POINTS TO SYMBOL TABLE 
cmp #177776, (R2) WVARIABLE MUST BE AN ARRAY 
BNE SYNERR sSYNTAX ERROR IF NOT 
MOV R2,~(SP) ySAVE R2 TEMP 
JSR PC, ONGETVAR #GET NAME AND SUBSCRIPTS SET UP 
MOV (SP)o,R2 sRESTORE R2 
cup #et,SS2SAV(R5) SINGLY SUBSCRIPTED ARRAYS ONLY, 
BNE SYNERR 
MOV 2(R2),R3 jGET ADORESS OF ARRAY 
MOV R3,RO HCALCULATE EXACT ARRAY ADDRESS 
MOV RO,VARSAV(RS) 15 FROM GIVEN SUBSCRIPTS, 
TST SS1SAV(RS) 
BMI G1 yNO SUBSCRIPTS GIVEN, 
ASL SS1SAV(RS) sCONVERT SUBSCRIPT TO A WORD OFFSET 
400 SSISAV(RS),VARSAV(RS) ySUBSCRIPT PLUS ARRAY ADDRESS 
Git Mov 4(R2),=(8P) 1(+ @ # BYTE SUBSCRIPTS) 
ASL (SP) 
ASL (8P) 
400 CSP) o,R3 
RETURN yRETURN TO CALLER 


pares 


“A SS. 


LPse 


@OrneuNEune 


9 881326 


18 


01324 


61326 
1326 


01332 
01334 
1336 
01340 
81342 
1342 


81346 
81306 


01352 
01352 


01356 
13600 
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’ eSBTTL POLENT, CKLPAR AND CKCOMA 

’ 
1OPOOOO0OCORSOOOEOOODOOOOOOODODORO DOO OOO REORDER OOOOH OORO 
’ 

» ENTER POLISH MODE OPERATION 


' 
» REGISTERS USED: RY BECOMES THE POLISH PC, 
' 
POLENTS 
012004 MOV (SP)o,Ra 1GET PC FROM CALLER ANO SETUP 
i] THE POLISH PC, 
’ 
JOOOCCOOOOOOOOOO OOOOH OOO OOO OSOOSOOOORO SHOE OBER E SEH E CEO ORO OOEOe 
5 
+ POLISH ROUTINE TO CHECK CHARACTER POINTED TO BY R{ EQUAL 
1 TO A LEFT PARENS, A TEST IS THEN MADE TO INSURE 
» THAT WE STILL HAVE ROOM LEFT TO WORK WITH, 
' 
y ROUTINE IS CALLED IN POLISH MODE 
, 
s REGISTERS USEDs Ri GETS BUMPED BY 3 
5 
CKLPARS 
122127 CMPB (Ride, LPAR sPIRST CHAR MUST BE A LEFT 
8000006 
’ PARENS, 
001903 BNE SYNERR NOt SYNTAX ERROR 
820604 cmp SP,RG CHECK ROOM NOW 
183403 8LO ERPOL yOUT OF ROOM, TELL USER 
000134 POLRET SRETURN IN POLISH MODE 
SYNERRs 
000137 sme O@WERRSYN #SYNTAX ERROR 
000000G 
ERPOLS 
000137 JMP ORERRPOL yOUT OF ROOM 
08000086 
’ 
JOCOCOOROOOOOOOO OOOO EOE OO OEOOO OOOO EOE ORE ERO R OER OOO HERO OR SOCR 
' 
y POLISH ROUTINE TO CHECK CHARACTER POINTED TO BY Ri 
9 EQUAL TO A ,COMMA, 
’ 
y ROUTINE IS CALLED IN POLISH MODE 
U 
» REGISTERS USED! R1 GETS BUMPED BY ONE, 
’ 
CKCOMAS 
122127 cMPB CR1Do, 8. COMMA sPIRST CHAR MUST BE A COMMA 
800008G 
OB1371 BNE SYNERR NOs SYNTAX ERROR 
008134 POLRET RETURN IN POLISH MODE 
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ee CONT MEU 


me 
wn 


eee 
MOWME 


@1362 
@1362 


01366 
01366 


01372 
@1374 


, eSBTTL STORXT AND CKRPAR 
, 
TOOCOCEOOOO OOOO OOO OOPSOOOOOOO OO OOOOOOOOOOE OOO OOOO OOOOH OOOOOOD 


5 
1 COMMON EXIT ROUTINE TO STORE FAC IN VARIABLE SET UP 
1 IN VARSAV(RS), CHECK LAST TOKEN EQUAL TO A RIGHT 

y PARENS (ALTERNATE ENTRY POINT TO ROUTINE), AND 

y RETURN TO THE BASIC INTREPRETER, 

5 

s 


TORXTS 
004737 JSR PC, @NSTOVAR sSAVE FAC 
eoegees 

CKRPARY 
122127 cwPB (R1)¢,M.RPAR JMAKE SURE LAST TOKEN IS A 
2000006 

}_RIGHT PARENS, 

001363 BNE SYNERR )SYNTAX ERROR IF NOT 
200207 RETURN JRETURN TO THE BASIC INTREPRETER 


40 


LPSO vVOt=o1 
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f ' eSBTTL CONVERT BCD TO BINARY 

, 
3 OOOO CORR P REECE DOLORES ORO RRR ORES EEOC E ORES OREO e RR neOEROROS 
4 ’ 
5 ) ROUTINE TO CONVERT BCD TO BINARY 
6 ’ 
7 y CALLE 
: ’ JSR PC,CONBCD 

' . 
18 » REGISTERS USED: R3 MUST CONTAIN BCD NUMBER BEFORE CALL 
ie , R3 WILL HAVE BINARY RESULT ON RETURN 
1 ’ 
13. 01376 CONBCDE 
14 81376 B10006 MOV RO,e(SP) SSAVE REGISTERS RO, R2, AND RU 
15 01400 @10246 MOV R2,=(SP) , ON THE STACK 
16 @1402 Q1e@40d6 MOV Ru,e(8P) 
17 014604 @12700 MOV #4,RO 14 BCD DIGITS TO DECODE 
eeeged 
18 01418 BeSe46 CLR @(SP) PACCUMULATE AREA 
19 @14142 812702 CON1s MOV #4,R2 94 SHIFTS / BCD CHAR 
eeege04 

280 81416 ga5004 CLR Ro 9CLEAR OUT WORK AREA 
21 81428 006103 CON2s ROL R3 SHIFT CHAR OUT 
22 81422 a8e106 ROL Ra 
23 81424 B053e2 EC Re 94 SHIFTS YET? 
24 81426 883374 8GT cone yNOg CONTINUE 
25 81438 B1leue MOV (SP),9(SP) SMULTIPLY ACCUMULATED DIGITS BY 18 
26 81432 686316 ast (SP) 
27 81434 806316 ASL (SP) 
26 B1u36 vb2e16 aod (SP) ¢, (SP) 
29 81448 906316 ASL (SP) 
38 01442 B60416 apo R4, (SP) sA00 IN NEW DIGIT 
31 81444 995300 OEC RO 318 THIS THE LAST BCD CHARACTER? 
32 01446 903361 BGT CONS yNOs CONTINUE 
33 ’ 
34 0145@ 212603 MOV (SP) e,R3 RESULT RETURNED IN R3 
35 01452 @12604 MOV ($P)o,Ra sRESTORE ALL REGISTERS 
36 81454 B12602 MOV (SP)4,R2 
37 81456 012600 MOV CSP)%,RO 
38 81468 880207 RETURN RETURN TO CALLER 
39 ' 
4a 808001" s END yEND OF MOOULE #0 


LPS@ Velt9a) 
SYMBOL TABLE 


acc @BO314RG 
BEG = 000000 
CKCMGN @8234uaRG 
CKRPAR 001366RG 
CONBCD 001376RG 
OEL 8 000012 
ORSON 800075RG 
ERARG 000362R 
ERPOL B81346R 
ERRSYN® wxanen G 
Fac2 = 900042 
GET 3B 800006 
GETDAT @80756RG 
GETVARa weeenee G 
GET2 801060R 


Gt 801310R 
INTST @OB436RG 
INS @005eaR 


NARRAY= 280005 G 
NUMSGN® teeaee G 
POLRETs 200134 
RDS COS2S56RG 
RESTOR @@0426RG 
RETURP @8063GR 
Rt 82000001 
R4 22000004 
SAVFAC 880372RG 
SS1{Savs 200824 
STOD! @L,64R 
SYNER @80676R 
13 3 800062 
USE2 088126R 
VARSAVa Q00022 
eRPAR 2 anwene G 
» 485, 00002 
@81462 

ERRORS DETECTED: 
FREE CORE: 18142 


oLPs=LPse 
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BAD & 800010 BCDON 800877RG 
BUFRES @80640RG CKBUF OO8714R 
CKCOMA 881352RG CKLPAR @801326R 
CKi 08074GR Cke 888724R 
CON’ 201412R CcON2 621420R 
ORSBUF 880100RG ORSNPT @88102RG 
ENO = 000002 ENTERP @680620RG 
ERBUF  @88750RG ERNOR @880536RG 
ERRARGS sunene G ERRPOL® tanwen G 
EVAL 3 teanee G Fact 8 200048 
FLOAT GOA544RG FLOATS @88606R 
GETADD B61216RG GETBUF 880702RG 
GETNUM 888352R6 GETV BOBOSORG 
GETO 801014R GETL @G1074R 
GETS O81846R GETa @e1184R 
HISTON @80076RG Int B ehanen G 
INY O88506R IN2 B80S26R 
LPSAD © wannen G LPSOR = seenee G 
NOROOM @81292R NOWRAP @81150R 
PC 3%808007 POLENT @8@81324RG 
PSs 8 177776 PUT = 900008 
RDBL 880310R REGSAV @88410RG 
RESTR2 @804Q94RG RETURN@® 000207 
RTSON BOGO74RG RO 8%200000 
Re #4200002 R3 8X000003 
RS 3%08000S SAVER2 @80366RG 
SAVINT @80376RG sp BX200006 
SS2SAVe 000026 STODAT @@1110RG 
STORXT @01362RG STOVAR® eaenne G 
SYNERR @@134aR TABLE @@eGdGRG 
USE @@G1Q4GRG USES 288236R 
USE3 000122R USE4 eee222R 
sCOMMAS aeawan G eLPAR 3 saewee G 
020 
aet 
a 
» WORDS 


LPSt VG1l~e) 


Cerne NsEune 


LPS1 Vale! 


eavneneune 
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eTITLE LPS! VOtO1 
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LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DEC’S COPYRIGHT 
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OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
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ene ee ee 
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eSBTTL CONTENTS OF MODULE #1 


aoc 
ats 
LED 


ee 


THE FOLLOWING COMMAND PROCESSORS EXIST IN THIS MODULE! 


LPS1 VOlWeL RT#i} MACRO VMG2909 {6e0CT=74 01158958 PAGE 3 

{ ’ SBYTL PROGRAM GLOBALS 

2 ' 

3 1 GLOBALS REGUIRED FOR COMMUNICATION WITH THE BASIC 

4 } INTREPRETER, 

5 ’ : 

6 eGLOBL ERRPOL, ERRSYN, ERRARG 

7 eGLOBL EVAL, GETVAR,STOVAR 

8 eGLOBL INT, ,COMMA,,RPAR 

9 eGLOBL = NUMSGN, gLPAR 

10 ’ 

iM 1 GLOBALS REQUIRED FOR COMMUNICATIONS WITH THE VARIOUS 

12 s LPS MOOULES, 

13 1 

14 eGLOBL TABLE, NARRAY, FLOAT 

1s eGLOBL POLENT,GETADO, GETNUM 

16 eGLOBL CKCMGN, INTST,GETV 

47 eGLOBL GETBUF,REGSAV,ERNOR 

18 eGLOBL STORXT, CKRPAR, ERBUF 

19 eGLOBL CKCOMA,ENTERP,STODAT 

20 eGLOBL GETOAT,RTSON, ORSON 

ai eGLOBL SAVER2,SAVFAC,RESTR2 

22 eGLOBL RESTOR, HISTON,BCOON 

23 eGLOBL CONBCD, BUFRES, DRSNPT 

e4 eGLOBL = SAVINT 

es ’ 

26 + GLOBALS REQUIRED FOR COMMAND PROCESSORS 

e7 ’ 

26 eGLOBL ADC,RTS,LED 

29 ’ 

38 1 GLOBALS FOR DEVICE ADORESSES 

BL ’ 

32 sGLOBL LPSAD,LPSADB,LPSOR+LPSOMA 

33 ’ 

34 3 GLOBALS FOR INTERRUPT PRIORITY AND VECTOR DEFINITIONS 

35 eGLOBL LPSIVA,LPSIP 

LPSL VOleds RTeil MACRO VMQ2009 16"0CT@74 01858350 PAGE 4 

1 ' eSBTTL REGISTER ASSIGNMENTS AND EQUATES 

2 , 

3 200008 RO 2 7) 

4 Boeee! Ri a “4 

5 eooeae R2 2 x2 

6 800003 R3 a “3 

7 egegau RY = xa : 

8 ee0ees RS z xs 

9 @eeee6 SP 2 %6 

18 880007 PC 2 “7 

i ' 

12 y GENERAL EQUATES 

13 , 

ia 177776 PS 2 22 yPS = PROCESSOR STATUS WORD 
15 @88207 RETURN #& 207 9207 3 RTS PC 

16 @00134 POLRET = 134 p13 = UMP OCRU)e 

17 

18 } BASIC USER*S EQUATES 

wv ’ 

20 @0@e22 VARSAV = 22 yVAR SAVE FOR ASSIGNMENT 

a1 @00024 SSiSav 8 24 #8S1 SAVE FOR ASSIGNMENT 

22 e026 SS28av 2 26 7882 SAVE FOR ASSIGNMENT 

23 eeae4ue FACIL a 4e JHIGH ORDER FLOATING VALUE 
2e4 @eeeue FAC? s ae yLOW ORDER FLOATING VALUE 
25 880062 T3 8 62 sSHORT TERM TEMPORARY 

26 ' 

27 } BUFFER DESCRIPTOR EQUATES 

28 ’ 

29 000000 BEG 2 8 JOFFSET TO BEGINNING OF BUFFER POINTER 
308 ee@eae2 END z 2 }OFFSET TO END OF BUFFER POINTER 
31 eeoae4 PUT 2 4a yOFFSET TO PUT DATA POINTER 
32 @@2e86 GET = 6 VOFFSET TO GET DATA POINTER 
33 800010 BAD 2 18 sOFFSET TO BAD DATA FLAG 

34 aee01e2 DEL 3 12 OFFSET TO OLSPLAY DELTA Xx 
35 ’ 

36 » LIMIT TEST 

37 ’ 

38 88008 BBCG20 MAKAS WORD 20 16 

39 egne2 aeoa2e +WORD 20 16 

4a @oee4 177777 eWORD = 177777 165535 

41 80006 a0e017 WORD 17 y17 

42 ’ 

43 1 INTERRUPT VECTOR SET UP 

4a ’ 

as , 

46 ) NON®REENTRANT VARIABLES 

47 ’ 

48 @0018 BeeGae RTSBUF: ,WORD @ RTS COMMAND (BUFFER DESCRIPTOR 
49 ’ ADDRESS) 

5@ @@@12 @ageae RTSNPTs ,WORD @ yRTS COMMAND (NBR OF POINTS) 
51 @0@14 Beegee@ RTSSCi1 ,WORD t] JRTS COMMAND (STARTING CHANNEL) 
52 @@ai6 e@eaeee RTSNSCs ,WORD @ JRTS COMMANO (NBR OF SUCCESSIVE 
$3 ’ CHANNELS) 

54 @e@a20 aeagee RTSMODs ,WORD @ yRTS COMMAND MODE 

S55 20022 200080 RTSENDs ,WORD a RTS COMMAND END ADDRESS FOR 
56 ’ OMA OPERATIONS 

57 00024 oaagae RTSCSR: ,WORD @ pRTS COMMAND CSR SETTING 


2 


LPSt 


se 
59 


68 


ot 
62 


UPS) 


OOneNEWNN 


@ee26 eeegoe CNTs eWORD 8 
8@03@ G@egee@ LEDRES: WORD 0,8,8,8 


20032 
00034 
00036 
eeeue 
80041 
eeade 
oeaus 
Gee4ua 
oee4s 
8eede 
00007 


20050 
eeese 


ease 
82056 
80068 
90061 
80062 
00063 
60064 


eea7e 


80876 
00100 
Go102 
eo1ed 
88106 
e112 


OB116 


eB1ed 


8130 
90132 


80136 
oeLaa 


88146 
e0152 


Vaie@s 


eeeeee 
eecees 
008008 
@17 
Q17 
Q17 
@17 
O17 
e17 
e17 
e115 


Ve19@1 


105737 
0800086 
801403 
164408 
101 
104 
1083 
200 
012765 
087000" 
e00a62 
004737 
8009086 


000008G 
206000G 
0Gva0eG 
000106" 
e365 
oeeeade 
005265 
eeeade 
016537 
eo0Q4e 
2800006 
004737 
2000206 
eeea0eG 
105737 
8e00086 
100375 
813765 
90000086 
beceue 
005065 
08048 
000137 
880d006 
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sCOUNTER USED BY LED COMMAND 


STORAGE AREA FOR LED CHARACTERS 


BLANK: ,BYTE L7eLT/LTALT/A7 L787 97 LED BLANK CHARACTERS FOR PADDING 


MINUSS ,BYTE 15 
' 


LED MINUS CHARACTER 


RToi1 MACRO VM@2-09 LoOCT=74 814856150 PAGE S 


' eSBTTL "AOC" COMMAND PROCESSOR 

| Poececcccecoscocceocccecosonscesoscocononccconcoeoocoesooees 
"ADC® COMMAND PROCESSOR 
BASIC FORMS CALL "ADC" (CHAN, VAR) 


’ 
U 
U 
' 
’ 
y PURPOSES INITIATE AN A/D CONVERSION FROM THE SPECIFIED 

’ CHANNEL (@ <# CHAN <w 15), WAIT FOR IT TO 

’ COMPLETE, ANO RETURN A FLOATING POINT RESULT 

’ IN "VAR® (8 <w YAR <m 4095) AS THE VALUE OF THE 
’ FUNCTION, THE A/D CANNOT BE CURRENTLY INeo 

’ VOLVED IN A REAL TIME SAMPLING (RTS) 

' 
’ 
A 


OPERATION, 
oc: yENTRY POINT TO PROCESSOR 
TSTB @aRTSON gRTS OPERATION CURRENTLY UNDERWAY? 
BEQ aoce yNOs CONTINUE 
TRAP C) 
ASCII = /ADC/ ' IN PROGRESS, 
.BYTE @ 
aoc2s ov wMAXA,T3C(RS) #FOR LIMIT TESTING OF "CHAN® 
JSR PC, ONPOLENT VENTER POLISH MODE ANO CHECK 


’ FOR ENOUGH AREA TO WORK 
’ WITH AND THAT FIRST TOKEN 
’ IS INDEED A LEFT PARENS, 


+GETNUM GET CHANNEL FROM COMMAND STRING 
+INTST TEST <s 15, 
+CKCOMA IPCHECK NEXT TOKEN EQUAL TO A COMMA 
ote pEXIT POLISH MODE 
SWAB FaC2¢RS) sSETUP A/O CHANNEL # 
INC Fac2(rs) HINSERT A/D START BIT 
MOV FAC2(RS),@MLPSAD ;START CONVERSION ON SPECIFIED CHANNEL 
JSR PC, @wENTERP VENTER IMMEDIATE POLISH MODE TO GET 
oGETV ’ VARIABLE ADORESS, 

aocis TST8 @MLPSAD yCHECK DONE FLAG ON THIS CHANNEL 
BPL A0C1 yNOT READY YET 
MOV @RLPSADB,FAC2CRS) GET RESULT IN FAC 
CLR FaAC}(RS) yMOST SIGNIF, JS ALWAYS ZERO 
IMP @eSTORXT STORE RESULT IN PREVIOUSLY OPENED 


LPSt VO1901 


42 
43 
aa 


LPS V@1901 


me OCONEE Ue 


te 


RT@t1 MACRO VMB2009 16e0CTe74 81158858 PAGE Se 


’ VARIABLE, CHECK FOR *)* AND 


’ RETURN TO THE BASIC INTERPRETER, 


RT@1i MACRO VMG2909 1oe0CTe7G G11588S5@ PAGE 6 


, 


eSBTTL "RTS" COMMAND PROCESSOR 


, 
SOCCOOOE OOOO OOOOOOOROOROOOOOOEOOOOEESOOHEO OOS OROO OOOOH OEOOOE 


' 
’ 
' 
U 
s 
’ 
U 
’ 
’ 
’ 
U 
U 
’ 
' 
U 
U 
' 
' 
U 
’ 
U 
U 
1 
, 
U 
’ 
' 
' 
’ 
U 
, 
’ 
U 
, 
U 
' 
U 
’ 
, 
’ 
U 
U 
' 
' 
U 
' 
’ 
U 
, 
' 
U 
, 
U 
4 


"RTS" COMMAND PROCESSOR 


BASIC FORM: CALL *RYS*(BUF,SC,NSC,NPTS, MODE) 


PURPOSES 


PERFORM REAL TIME BUFFERED/CLOCKED SAMPLING OF THE 
4/0, THE A/D CAN BE ENABLED WITH A VARIETY 
OF OPERATIONS DEPENDING ON THE "MODE" SPECIFIED, 
THE NORMAL MODE OF OPERATION (MODEs@) CAUSES 
THE A/D TO SAMPLE WHENEVER ST #1 FIRES, 
TO ENABLE OTHER OPTIONS, MERELY ADO THEIR CODE 
NUMBER TO THE MODE, THE FOLLOWING LIST 
DESCRIBES OPTIONS AVAILABLE (ALL OPTIONS ARE 
NORMALLY DISABLED)s . 


CODE OPTION 
+1 ENABLE BURST MODE (USED ONLY WITH DMA) 
#2 ENABLE CLOCK AND OISABLE ST #1 
+4 ENABLE DUAL SAMPLE AND HOLD 

#18 ENABLE OMA (18 OCTAL) 


THE A/O WILL BE STARTED BY A CLOCK OVERFLOW 

OR SCHMITT TRIGGER #1 (ST), POINTERS WILL BE 
BE USED TO DETERMINE IF GOOD DATA EXISTS IN THE 
BUFFER ARRAYS OR IF DATA WRAP AROUND OCCURS, 
SINCE DATA I$ STORED IN CIRCULAR BUFFERS (Exe 
CLUDING DMA OPERATIONS), POINTERS WILL BE USED 
TO INSURE THAT INCOMING DATA RATE DOES NOT 
EXCEED THE REMOVAL RATE, A BAD DATA INOICATOR 
WILL BE SET WHEN DATA OVER*RUN OCCURS, THE 
BUFFER POINTERS ARE INITIALLY RESET BEFORE THE 
SAMPLING OPERATION BEGINS, 


4/0 CHANNELS ARE SAMPLED ON EVERY CLOCK OVERFLOW 

OR FIRING OF ST #1 WITH THE RESULT STORED IN 
CONSECUTIVE DATA CELLS, OATA 19 STORED IN 

IDENTICAL FORMAT AS THAT READ FROM THE A/D, WHEN 

A CLOCK OVERFLOW OR ST OCCURS, THE A/D SAMPLES 

THE FIRST CHANNEL SPECIFIED BY "SC" AND THEN 

SAMPLES THE NEXT "NSC" @1 CONSECUTIVE CHANNELS, 
SAMPLING THEN CONTINUES UNTIL "NPTS" CLOCK OVERFLOWS 
OR ST°S HAVE BEEN RECEIVED, 


IN DUAL SAMPLE AND HOLD MODE, THE "NSC" PARAMETER 
TS THE NUMBER OF PAIRS OF CHANNELS TO REAL PER 
EVENT, 


OMA OPERATIONS MAY/MAY NOT USE DUAL SAMPLE AND HOLD, 
OMA ALLOWS DIRECT HAROWARE STORAGE OF A/D 

RESULTS IN A SPECIFIED BUFFER ARRAY, A MAXIMUM 

OF 4996 SAMPLES MAY BE TAKEN AT ANY 

ONE TIME WITH REMOVAL OF DATA ALLOWED ONLY 

WHEN THE BUFFER IS COMPLETELY FILLED, THE 

"NSC" PARAMETER IS IGNORED AND IS CONSIDERED 


LPsi 


o3 a 
ea @ 


6S @ 


66 @ 


67 2 
68 @ 
0? @ 


738 


VO10e8s 


8156 
8156 


B164 


e172 


e200 
e204 
8219 


e214 


76 8216 


77 @ 


79 @ 
68 2 


e220 


e222 
e224 


62 88226 


63 @ 


8236 


84 a0232 


86 98234 
87 80236 
88 o8240 


98 e8242 
91 e824G 
92 B0246 


9a e9250 
9S a9252 


96 68256 


97 B@262 


98 80266 


99 @ 
108 


101 


a 


LPS! 


102 
1983 


{eq 
105 
186 
107 
106 
189 


110 
iit 


ie 


113 
114 


15 
116 


417 
118 
119 


128 
121 


122 


123 
124 


125 
126 


127 
128 
129 


138 
131 
132 
133 
134 
135 
136 
137 


138 


420 


e278 
e272 


8276 


va 


8302 
0304 


0310 
314 
O316 
8320 
322 
@326 


e332 
@334 


0340 
e3ud 
0346 
352 
0356 
6368 
8362 


0366 
8370 


@374 


0400 
e4e2 


846 
0418 


oai4 
o416 
e420 
eu2d 


e430 
8432 


eu3s4 
8436 


euue 
e4u6 


aac: 


012737 
081040° 
8000006 
e12737 
8803280 
8800086 
e12765 
eeeeae" 
808062 
005037 
2800006 
185¢37 
2800006 
004737 
2800800G 


2800086 
8808006 
8880006 


ee0ee0G 
2800086 
eeeee08G 


2000006 
0090006 
8820006 


eoe252° 
016500 
egeoce 
010067 
177536 
@12667 
177820 
e8142a 
812603 
010367 
177528 
812607 


1-01 


177512 
@12602 
010267 
177500 
032708 
eceeas 
881401 
006393 
005303 
066793 
177466 
020327 
080017 
ee3uas 
000137 
0000006 
062706 
200006 
eeeses 
012703 
000100 


@10746 
177436 
008316 
052603 
832728 
eeven4 
ao1de2 
052793 
eucoae 
032700 
eeogee 
eelaes 
052703 
ee0a2e 
eveuee 
052703 
eeeaue 
eeogee 
1e3ea2 
052703 
2v001e 
032700 
eo0ee4 
eo1gaa 
005203 


011208 
966708 
177352 
260728 
177304 
@32703 
e4geeo 


RT@11 MACRO VMO2=69 


Dwewwwe 


Ss 


MOV 


MOV 


MOV 


CLR 
CLRB 
JSR 


*GETBUF 


*BUFRES 
*SAVER2 


oCKCMGN 
+INTST 


+SAVINT 
+CKCMGN 
oINTST 


*SAVINT 
oCKCMGN 
oINTST 
*SAVINT 
*CKCMGN 
+INTST 


002 
MOV 


“ov 
MOV 
BEQ 
MOV 
MOV 


MoV 
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IF NPYS 18 GIVEN AS ZERO, ANY ATS SAMPLING 
CURRENTLY IN PROGRESS IS DISABLED, 


SAOCINT, OMLPSIVA 


6308, @#LPSIP 


SMAXA,T3CRS) 


OwLPSAd 
@#RTSON 
PC, @sPOLENT 


sENTRY POINT TO PROCESSOR 


sSET INT, SERVICE ROUTINE ENTRY POINT, 


98ET INT, PRIORITY. 
sFOR LIMIT CHECKS ON ALL INTEGERS 
s8TOP ANY PREVIOUS RTS OPERATION 


PENTER POLISH MODE AND CHECK 


’ FOR ENOUGH AREA TO WORK 

’ WITH AND THAT FIRST TOKEN 
s 18 INDEED A LEFT PARENS, 
’ 
’ 


GET BUFFER ADORESS FROM COMMAND STRING 


AND CHECK IT AGAINST THE 
’ DEFINITION TABLE, 
PRESET BUFFER POINTERS 
p8AVE R2 ON THE STACK SINCE IT HAS 
’ THE DESCRIPTOR AOORESS, 
yCHECK NEXT TOKEN EQUAL TO A COMMA 
’ AND GET "SC", INTEGERIZE 


oy RESULT ANO TEST <ai6, 


FAC2(RS) RO 
RO,RTSMOO 
(SP) o,RTSNPT 
RTSO6 
(8P)o,R3 
R3-/RTSNSC 


(SP)4,RTSSC 


RT@11 MACRO VM@2=09 YonOCTo74 


RTS@ir 


RTSoos 


RTSa2t 


RTSO38 


RTSout 
RTSOSt 


RTSO68 


MoV 
MOV 


BIT 
BEG 
ASL 
DEC 
aod 
CMP 


BLE 
JMP 


400 
BR 
MOV 
MOV 
gwaB 
ers 
BIT 


BEQ 
ers 


BIT 


BNE 
BIS 


aR 
B18 


ROR 
acc 
81S 
BIT 


Bea 
INC 


MOV 
ado 


aoo 
BIT 


(SP) 9,R2 
Re, RTSBUF 


#4,RO 
RTS81 

R3 

R3 
RTSSC,R3 
R3,815, 


RTSB2 
OBERNOR 


#6,8P 

RTSia 
#108,R3 
RTSSC,(SP) 
(SP) 

(SP) o,R3 
#4,RO 


RTSO3 
#46800,R3 


#2,R8 


RTSOG 
#20,R3 


RTS@5 
868,R3 


R@ 
RTS@6 
#LO,R3 
4O,RO 


RTSa9 
R3 


(R2),RO 
RTSNPT,RO 


RTSNPY,RO 
#40006,R3 


gafanaqm 


SAVE INTEGER ON STACK 

CHECK NEXT TOKEN EQUAL TO A COMMA 
' ANO GET "NSC", INTEGERIZE 

’ RESULT ANO TEST <a1S, 

SAVE INTEGER ON STACK 

yCHECK NEXT TOKEN EQUAL TO A COMMA 
’ AND GET "®NPTS", INTEGERIZE 

’ RESULT ANO TEST <s65535, 
SAVE INTEGER ON STACK 

CHECK NEXT TOKEN EQUAL TO A COMMA 
’ ANO GET "MODE", INTEGERIZE 

’ RESULT ANO TEST <s17, 

LEAVE POLISH MODE 

GET MODE 


ySAVE IT FOR LATER 

GET NPTS FROM STACK 

ZERO POINTS MEANS DISABLE SAMPLING 
sGET NSC FROM STACK 

pSAVE FOR LATER 


yGET SC FROM STACK 
01858358 PAGE 6+ 


GET R2 (BUFFER DESCRIPTOR ADDRESS) 


ICHECK SCo{o(NSCeOUAL BIT) <m 15 
sNOT DUAL 

sOUAL BIT SET, NSC = N8SCe2 

yNSC # NSC = 1 

$C = 1 © CNSC#OUAL BIT) 

mMUST BE <aiS 


70K 
yNUMBER OUT OF RANGE 


CLEAN UP STACK AND EXIT 


yR3 WILL END UP HAVING A/D STATUS 
REGISTER SETTING, 
STARTING CHANNEL # 


INSERT SC INTO A/O STATUS 
9DUAL SAMPLE AND HOLD? 

yNO 

sYESt INSERT INTO STATUS REG, 
CLOCK ENABLE OR ST? 

+CLOCK 

st 

sCLOCK 

NOW GET BURST MODE 

SET BURST MODE BIT IN STATUS REG 
yOMA REQUESTED? 


sNOt STATUS REGISTER OK AS I8 THEN 
sADO IN START BIT TO GET THINGS GOING 
’ FOR OMA OPERATIONS, 

WMAKE SURE 4/0 WON*T OVERRUN 

’ BUFFER SIZE ALLOCATED, 


sTF DUAL SAMPLE AND HOLD, DOUBLE 
' NUMBER OF POINTS, 


26 


UPS! 


140 
141 
142 
143 


144 
145 


146 
147 
148 


149 
188 


183 


132 
183 


184 
155 
156 
157 
188 
159 


168 
164 


LPSt 


Cee Kee ke ed 


12 


17 8 
18 8 


22 @ 
23.8 
240 


25 8 


26 8 


27 8 
28 @ 


29 8 
3a @ 
31 8 
32 8 
34 8 
36 @ 
37 @ 
38 8 
39 @ 
410 
42 8 


a4 @ 


V@1=81 


Basa 
0468 
a40d 
0470 


ea7a 
8476 


e502 
8506 
512 


e516 
see 


es2a 


9530 
os32 


8536 
osue 
O546 
e552 
9556 


VOl9O1 


8562 
8562 


@566 
es578 
e572 


8576 


8604 


2618 
Go12 


@616 
@622 
2638 
632 
0636 
864g 
Go4ua 
G46 
265e 
652 
8656 


2660 


0667288 

177332 
066720 

177326 
810067 RTSOT? 
177332 

826208 
280082 

@03402 

000137 
@88008G 
012708 RTSoBt 
0800006 
012704 
0080006 
012710 
080006 
Brrar4 
12710 
900004 
B16e714 
177262 
eesaya 
812718 
eeeeae 
012714 
810008 
110337 RTS@98 
0000006 
10367 

477252 
810337 
2009006 
000137 RTSios 
9000006 


U 
FOOOOOOOOO OOOO OOOO ODER HEHE OOOOH OREO DERE E OREO ROR O OREO OEE 


RT-11 MACRO VMQ2=09 


A00 
ado 
MoV 
CMP 


BLE 
ume 


MOV 
MOV 
MOV 


MOV 
MOV 


MOV 


NEG 
MoV 


MOV 
MOVB 
MOV 
“OV 
JMP 


RTell MACRO VMG20R9 


eSBTTL 


RTSNPT,/RO 
RTSNPT, RO 
RO,RTSEND 
ENO(R2) ,RO 


RTSO8 
OwERBUF 


#LPSAD,RO 
®LPSOMA,RG 
#6.(~RB) 


CR2), (RO) 
#4, (RO) 


RTSNPT, (RO) 


(Ra) 
#2, (RO) 


#10008, (RG) 
R3,OMRTSON 
R3,RTSCSR 
R3,OeLPSAD 
@aCKRPAR 


1O"OCT@74 81158358 PAGE 6+ 


y8AVE ENO ADDRESS 
VEXCEEDED ARRAY SIZE? 


yNOE 


OK THEN 


yOMA EXCEEDS BUFFER SIZE 


SETUP STATUS REGISTER AND DMA 


“REGISTER 


yNOW SET UP THE DMA 
DMA CURRENT ADDRESS 


OMA WORD COUNT 


1TWO°S COMPLEMENT 
9OMA STATUS REGISTER 


yOMA ENABLE BIT 


HVINOICATE AN RTS IS IN PROGRESS 
ySAVE CSR SETTING FOR INTERRUPT HANDLER 


sSTART UP THE A/O OPERATON 


CHECK LAST TOKEN EQUAL TO A RIGHT 
PARENS ANO RETURN TO THE BASIC 


INTERPRETER, 


"LED" COMMAND PROCESSOR 


’ 
s "LED* COMMAND PROCESSOR 


U 
» BASIC FORM: 


U 
’ 
' 
’ 
U 
' 
' 
U 
U 
L 


08a737 
@20000G 


2880006 
@80572° 
005067 
177238 
012765 
080030° 
8@eeee 
004737 
2008006 
e00722° 
816588 
088062 
a1270e 
080036" 
026727 LEDis 
177208 
000006 
203016 
a2ee27 LEDes 
000030" 


OB1413 


e20e027 
200030" 
801405 
t1dea2 
Oe0764 


U 
@12708 LED3s 
2200050° 
@00765 


' 
612708 LEDs 
680047" 


PURPOSE! LED 


JSR 


+GETNUM 
ote 
CLR 


MOV 


JSR 


«WORD 
MoV 


MOV 
cme 
BGT 
Mp 
BEQ 
CMP 
BEO 
MOVB 
BR 
MOV 
BR 
MOV 


CALL "LED" (VAR) 
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WILL DISPLAY THE FLOATING POINT VALUE OF THE 


VARIABLE "VAR®, 


UP TO 6 POSITIVE OR 5 NEGATIVE 
DIGITS CAN BE DISPLAYED IN THE LEDS, 
OECIMAL POINT MAY ALSO BE INCLUDED, 
ARE UNABLE TO BE DISPLAYED (VIZ,, "E" NUMBERS AND 
NEGATIVE 6 DIGITS ONES) ARE SHOWN BY ALL MINUS 


SIGNS IN THE LEDS, 


ENTRY POINT TO PROCESSOR 
yENTER POLISH MODE AND CHECK 


PC, @#POLENT 


Cnt 
#LEDRES,T3(RS) 


PC, O#NUMSGN 


LEDouT 
T3CR5),RO 


HLEDRES+6,R2 
CNT, #6 

LEDS 
R2o#LEORES 
LEDS 

RO, #LEDRES 
LEDS 
=(RO),e(R2) 
LEDS 
HMINUSO1,RO 
LEDe 
@BLANKS7,RO 


U 
’ 
’ 


FOR ENOUGH AREA TO WORK 


WITH AND THAT FIRST TOKEN 
18 INOEED A LEFT PARENS, 
GET NUMERIC FROM COMMAND ("VAR") 


LEAVE POLISH MODE 
CHARACTER COUNTER 


jWHERE RESULTS WILL ENO UP 


GENERATE CHARACTER STRING 


ROUTINE TO PROCESS CHARACTERS 


9GET LAST DIGIT POSITION +1 


WHERE RESULT WILL END UP 41 


9G00D # GENERATED? 


yNOt 


PINSERT NEXT CHARACTER IF SPACE IS 


PALL DONE, NOW PUT THEM UP ON THE 


#GET NEXT CHARACTER IF ONE EXISTS 
NOs 


INSERT 


A Me™ SIGN THEN 


AVAILABLE, 


LED‘S, 


FILL WI 


TH BLANKS THEN 


COPY ONE CHARACTER OVER 
sWORK ON NEXT CHARACTER 


sINSERT "@" SIGN FOR BAD NUMBER 


pINSERT LEADING BLANKS 


AN OPTIONAL 
NUMBERS WHICH 


A/ 


~~ 


LPSi Vela! RTeit MACRO VM@2009 1oeOCTo74 61558358 PAGE 7+ 


4S @86604 20762 i] LED2 

4e ’ 

87 @8066 012708 LEDS: MOV #LEDRES+O,RO WHERE TO START PULLING 
900030" 

48 80072 B05046 CLR (SP) ICLEAR LEO REGISTER TO START 

G9 8896074 1149160 LEDer MOVE (RO), (SP) yGET CHARACTER 

S@ 8676 211637 MOV (SP), e@@LPSA08 sOISPLAY CHAR 
2808006 

Si @0702 262716 aod #480, (SP) sPOINTS TO NEXT DIGIT POSITION 
8eeuge 

52 80706 B22716 CMP #3800, (SP) PALL DONE? (3e@Ge4G0"6) 
003000 

53 00712 B02370 BGE LEDe NOs 00 NEXT CHAR 

54 00714 085726 rst (SP)o yCLEAN UP STACK 

55 00716 000137 JMP OMCKRPAR ICHECK NEXT TOKEN EQUAL TO A RIGHT 
beeeees 

So ’ PARENS AND RETURN TO THE BASIC 

57 ’ INTERPRETER, 

58 ’ 


LPS! Valeo! RT=11 MACRO VM@2=89 =L6e0CTe74 01158850 PAGE 8 


i , 
4 3 ROUTINE TO SUPPORT LED COMMAND 
U 
4 ge0722 LEDOUTs 
5S eee722 1227e8 CMPB #°o,RO yo" 2 
600053 
© 800726 601421 BEQ LEOxT sYESs IGNORE 
7 800738 122700 CMPB a? RO VIGNORE BLANKS ALSO 
e00e4e 
8 800734 901416 BEG LEDXT 
9 888736 122700 CMPB #°E,RO LETTER E? 
208105 
18 08742 Ge1432 Bea LEDBAD rYES¢ CAN°T OISPLAY E NUMBERS 
11 08746 122708 CMPB Wo RO sDECIMAL POINT? 
880956 
42 00750 o01411 BEQ LEooT! yYES8s CHECK TO SEE IF ITS THE 
13 ’ FIRST CHARACTER, 
14 00752 642700 are 4177768,RO RID GARBAGE 
177768 
15 08756 110875 LEDSTOs Move RO, eT3(AS) ySAVE CHARACTER 
008062 
16 88762 vena. TNC T3CRS) sBUMP TO NEXT POSITION 
20006 
17 88766 005267 INC Cnt COUNT IT 
177034 
18 08772 680207 LEDXTs RETURN sRETURN TO CALLER 
19 U 
28 06774 112708 LEDOT1: MOVE 420,R8 CHANGE CHAR 10 LED *,* 
888020 
21 91008 822765 CMP MLEORES,T3CRS) sWAS THIS THE FIRST CHARACTER 
800030" 
200e02 
22 ’ RECEIVED? 
23 01806 001763 BEQ LEDSTO vYES: STORE AS SINGLE CHAR 
24 B101@ 205365 oEC T3CRS) BACK UP 1 CHAR POSITION IN ORDER 
880062 
25 81014 152775 8186 #28,0T3(RS) ’ TO INSERT THE DECIMAL POINT, 
e08020 
eeeg6ee 
26 81022 05265 INC T3CRS) 
2aee6e 
27 @1826 200207 RETURN sRETURN TO CALLER 
26 ' 
29 01830 12767 LEDBAD: MOV #7,CNT TINDICATE THAT NUMBER IS TOO LARGE 
800007 
176778 
38 81236 200207 RETURN ' TO HANOLE ANO RETURN, 
31 , 


LPS! 


euswNeN 


7 001040 
6 ea1aua 


9 Baiada 


91058 


81856 


@1a62 
81064 


e107e 
O1074 
01100 


VOL~e1 


9040737 
8008006 
843783 
2000006 


042737 
eoeeue 
9800886 
105737 
2800006 
081906 
005037 
0008806 
105037 
8080006 
000137 
0800006 
32767 
2000128 
176712 


001418 
016702 
176674 
216762 
176702 
eeeadu 
11262 
seoeae 
888756 


Q16746 
176662 
016782 
170658 
Q04737 
9800006 
032767 
80ce04 
176646 
1411 
005237 
@eeeoeG 
105737 
@80000G 
100375 
813703 
0800006 
004737 
8220826 


RTeiy MACRO VM@2939 
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’ eSBTTL A/D INTERRUPT PROCESSING ROUTINE 


U 
ITI ed Ld Ld ddd 


, 
1 A/D INTERRUPT PROCESSING ROUTINE 


’ 

AOCINTS 
J 
MOV 
erc 


TST8 


BNE 
aocees CLR 


CLRB 
a0Ce9s = JMP 
aocai: BIT 


BEG 
MOV 


MOV 


MoV 
BR 

’ 

aocess: MOV 
MOV 

acces: JSR 
BIT 
BEQ 
INC 

a0C@os STB 


BPL 
MOV 


JSR 


PC, @MREGSAV 
OMLPSADB,RS 


#40, e8LPSAD 


@aRTSON 


adces 
O*LPSAD 


@wRTSON 
@wRESTOR 
#18,RTSMOD 


A0CO3 
RTSBUF,/R2 


RTSEND,PUT(R2) 


(R2),GETCR2) 
aoce2 
RTSNSC,@(SP) 
RTSBUF»R2 
PC, @#STODAT 
#4,RT8MOD 
a0cas 
O#LPSAD 
@BLPSAD 


A0C86 
O#LPSADB,RS 


PC,@NSTODAT 


pSAVE R@, R2 AND R3 ON STACK 
READ IN SAMPLE IN CASE WE 

NEED IT LATER, 

sOISABLE "CLOCK OVERFLOW ENABLE" 
yRTS OPERATION IN PROGRESS? 


1YE8 : 
pDISABLE A/D AND EXIT 


(USED PRIMARILY BY DMA OPERATIONS) 
pRESTORE REGISTERS AND EXIT 
yOMA REQUEST FINISHED (IF ONE WAS 


’ 6 PREVIOUSLY STARTED)? 

aN 

yOMA 18 DONE, ALLOW ARRAY TO BE 
’ ACCESSIBLE, 


DISABLE A/D AND EXIT 
|NBR OF POINTS TO PROCESS 
JWHERE TO STORE RESULTS 
}STORE 187 SAMPLE 

}DUAL SAMPLE AND HOLO? 


WNO 
7YESe READ IN 2NO SAMPLE AND STORE IT 
sWATT FOR IT 


1GET A/D RESULT 
ySTORE IT 


Err a ’ 
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35 61176 885316 ADCOS: OEC (SP) 

Be 01280 ee3u11 BLE AOCa7 

37 1202 262737 aod #6401, @8LPSAD 
200401 
8800006 

38 1210 105737 adCoBs TSTB @#LPSAD 
2000006 

39 @1214 100375 BPL aoces 

4O @12i6 013703 MOV @#LPSADB,RS 
0880006 

41 81222 B88746 BR aoceg 

ve ! 

43 81224 085726 ADCa7s TST (SP)¢ 

44 1226 085367 oEC RTSNPT 
176568 

4S 01232 003714 BLE a0ce2 

We @1234 016737 MOV RTSCSR,@MLPSAD 
176564 
2200006 

47 @1242 800714 BR anced 

48 ’ 

ag ’ 

5@ o@00e1? END 


01858350 PAGE 9+ 


ALL SAMPLES TAKEN? 
1YES: TERMINATE THIS SET 
7GO0 TO NEXT CHANNEL AND START CONVERSION 


pwAIT FOR IT 


yGET RESULT 
pSTORE IT 


}CLEAN UP STACK 
PALL POINTS TAKEN? 


sYESs STOP EVERYTHING THEN 
pRESTORE A/D STATUS REGISTER 
PRESTORE GP, REGISTERS AND EXIT 


HEND OF MODULE #1 


LPS1 Ve1~0! 
SYMBOL TABLE 


aoc BOAKSARG 
aocee Qb1LOUR 
a0ceas BO1176R 
a0ces Oe12 aR 
aoce BOCCedR 
BEG = enever 
CKCMGNS exeaene G 
CNT BeHE2OR 
DORSNPT2 senene 
ENTERPS wanene 
ERRARGS eutaee 
EVAL & settee 
FLOAT = wennew 
GETBUFS seenee 
GETV = senene 
INT 3 savene 
LEDoAD wr le guR 
LEORES unvezar 
LED! eevo22k 
LEOu avvooek 
LPSAD = seeene G 
LPSOR 2 senene G 
MAXA veavgar 
NUMSGNS #eteee G 
POLRETS ePul3sa 
REGSAVsS weeeee G 
RETURNS araea7 
RTSCSR vewBrZaER 
RTSNPT g@eertaR 
RTSSC OVVE Lok 
RTS@2 = BLASUOR 
RTSAaS aehutar 
RTS@6 eveseek 


nNannagaAD 


RO sxauure 
R3 severed 
SAVERQ=S seenee G 
SP Stereree 


STOMATS weevene G 
TABLE = tenner G 
COMMAS weeeee G 


« ABS, euAKEY 
valeus 
ERRORS DETECTECS 


FREE COPE: 14459, 


pLPss_PSt 
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van 
eul 


wORDS 


AOCINT B81¥4aR 
aocas @@1130R 
a0CG6 @81160R 
aocug BeLe7aR 
Bad = aeonie 
BLANK = gRauuaR 
CKCOMAS seater 
CONBCDS exenee 
ORSON & eetner 
ERBUF = seeeen 
ERRPOLS seerer 
FacCi = a@d0ue 
GeT = aevAae 
GETOATS seewee G 
GETVARe «# 2 G 
INTST = eetene G 
LEOOTL aaa774UR 
LEOSTO AvA7TSOR 
LED2 dAdo32R 
LE0S AABEoOR 
LPSADBs seenee G 
LPSIP = seeeee G 
MINUS BOAHUTR 
Pc =X%G00G07 
pS 3 177776 
RESTORS extene G 
RTs AGA1SORG 
RTSEND aaah22e 
RTSNSC VeuH1eH 
RTSHa @euzaerR 
RTSA3 @O0374R 
aTSao @euuauR 
RTSu9 evasuaR 
RY 32020001 
au sZduavaa 
SAVFACS seeeee G 
SSiSavs 9aaBeu 
STORXTs weneee G 
13 = BebH62 
eL PAR = teneetr G 


AQAA 


a0cal 
aocag 
a0co? 
aocy 
BCOON = 
BUFRESs 
CKRPARS 
OEL = 
ENO = 
ERNOR = 
ERPSYNS 
FaCe 2 
GETADDS 
GETNUMS 
HISTON® 
LEO 
LEcourT 
LEOXT 
LEDS 
LEO6 
LPSOMAS 
LPSIvas 
NARWAYS 
POLENTs 
Put = 
RESTR2s 
RTSAUF 
RTSMOO 
RTSON = 
RTSat 
RTSau 
RTSA7 
RTS1@ 
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oariaar 
AariaarR 
@a122uR 
@88132R 
enerae 
erarae 
aerate 
Buaere 
auaaae 
antten 
agevent 
eeoaue 
eeeetae 
kere 
agekae 
ABBS2NG 
oaa722K 
@OA772R 
anaesek 
@vvo7uR 
artnet 
eetene 
atetet 
genes 
agenau 
reeeen G 
aazarer 
aeaa2ar 
eeeeee G 
auas2eR 
Begurer 
aavuour 
@AASSoOR 


aoe 


OO OO 


OQOan 


Re =2000002 
R5 zzauaves 


SAVINTS 
SS2Save 
STOVARS 
vVaRSave 
eRPAR & 


teenes G 


BAAR26 
eenees G 


avadcee 
aeeene G 


LPS2 vei-w} 


CBNTVN ENE 


LPS2 veiw 


OOnovenwne 
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oTITLE LPS2 Vel]9o1 
peSBTTL LPS MODULE #2 


U 
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U 
’ 
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, 
, 
: 
s 
’ 
, 
, 
’ 
, 
’ 
’ 
, 
Ul 
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U 
DECW1LeLBEXA@BaL AS BASIC KERNEL Va2~a} 


COPYRIGHT (C) 1973,1974 


DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASSACHUSETTS 21754 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE #ITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS & COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FUR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON & SINGLE COMPUTER SYSTEM AND 
CAN RE COPIED (WITH INCLUSION OF DEC*°S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS May 
OTHERWISE BE PROVIDED IN WRITING BY DEC, 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
GR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
wHICH IS NOT SUPPLIED BY DEC, 


WHITTEN BY: RICK HULLY FEB., 1973 
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eSBTTL CONTENTS OF MODULE #2 
THE FOLLOWING COMMAND PROCESSORS EXIST IN THIS MODULES 


SETH 
SETC 
HIST 
walt 


TONER tO nes ie Se 


LPS2 Veta! 


i 

2 

3 

a 

s 

6 

7 

8 

9 

18 

a 

t2 

13 

14 

15 

16 

17 

18 

19 

ee 

21 

22 

23 

ri 

2s 

26 

e7 

26 

29 

36 

31 

3e 

33 

34 

35 

36 

LPS2 Ve19@1 

1 

2 

3 200000 

4 080001 

5 800002 

6 280003 

7 2eeeo4 

8 eoe0es 

9 880006 

18 900007 

Mu 

12 

13 

4 177776 

15 000207 

16 080134 

17 

18 

19 

20 oeedee 

ai e0eo2u 

22 oeae2e 

23 000846 

eu eeeade 

es @0eaue 

26 eageee 

27 : 

28 

29 

30 802080 

31 oecede 

32 600804 

33 @eveee 

34 200010 

35 eeoot2 

36 

37 

38 

39 g90e0 800007 

4@ a0ae2 200007 

41 @6004 177777 

42 

43 

aa 

a5 

46 20006 20ce28 

47 Q@0018 020000 

48 

49 g@a1e 88a 
20013 aae 

Se 


Ll til ed eit ee eee 
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~~ ewe 


~~ we 


eSBTTL 


«GLOBL 
eGLOBL 
eGL06L 
eGLOBL 
eGLOBL 


2GLOBL 
oGLOBL 
2GLOBL 
2GLOBL 
2GLOBL 
eGLOBL 
eGLOBL 
oGLOBL 
2GLOBL 
»GLOBL 
»GLOBL 


PROGRAM GLOBALS 


GLOBALS REGUIRED FOR COMMUNICATION WITH THE BASIC 
INTREPRETER, 


ERRPDL, ERRSYN, ERRARG 
EVAL, GETVAR, STOVAR 
INT, .COMMA, »RPAR 
NUMSGN, oLPAR, SIR, SMLR 
SPOLSH 


GLOBALS REGUIRED FOR COMMUNICATIONS WITH THE VARIOUS 
LPS MODULES. 


TABLE, NARRAY, FLOAT 
POLENT, GETAOD, GETNUM 
CKCMGN, INTST,GETV 
GETBUF ,REGSAV,ERNOR 
STORXT, CKRPAR, ERBUP 
CKCOMA,ENTERP, STODAT 
GETOAT,RTSON, ORSON 
SAVER2, SAVFAC,RESTR2 
RESTOR, HISTON, BCOON 
CONBCD, BUFRES, ORSNPT 
SAVINT, ORSBUF 


iy 
7 GLOBALS REQUIRED FOR COMMAND PROCESSORS 
, 


eGL08L 


SETR,SETC, HIST, WAIT 


U 
) GLOBALS FOR DEVICE ADDRESSES 
s 


eGLOBL 


LPSCKS,LPSP8,LPSORS,LPSOIB 


U 
y GLOBALS FOR INTERRUPT PRIORITY AND VECTOR DEFINITION, 


eGLOBL CKLIVA,CKLIP 
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, eSBTTL REGISTER ASSIGNMENTS AND EQUATES 
’ 
RO s xe 
Ri a M1 
R2 s x2 
R3 2 x3 
RG s aq 
RS s xs 
SP a xo 
pc 3 x7 
’ 
+ GENERAL EQUATES 
’ 
PSs 3 =2 PS s PROCESSOR STATUS WORD 
RETURN #8 207 9207 = RTS PC 
POLRET 8 134 3134 8 JMP O(RU)e 
’ 
+ BASIC USER*S EQUATES 
’ 
VARSAV 8 22 VAR SAVE FOR ASSIGNMENT 
SSiSav s 24 9881 SAVE FOR ASSIGNMENT 
SS2Sav s 26 9$$2 SAVE FOR ASSIGNMENT 
Fach . ag SHIGH ORDER FLOATING VALUE 
Face s 42 #LOW OROER FLOATING VALUE 
RiSAVE # 46 RY SAVE LOCATION 
3 s 62 ySHORT TERM TEMPORARY 
’ 
} BUFFER DESCRIPTOR EQUATES 
, 
BEG 2 Q VOFFSET TO BEGINNING OF BUFFER POINTER 
END 2 2 sOFFSET TO END OF BUFFER POINTER 
PUT a 4 VOFFSET TO PUT OATA POINTER 
GET s 6 sOFFSET TO GET DATA POINTER 
Bad 2 18 VOFFSET TO BAD DATA FLAG 
DEL s 12 OFFSET TO OISPLAY DELTA X 
, 
ys LIMIT TEST 
’ 
MAXCs WORD 7 7 
eWORD 7 7 
«#ORO 177777 165535 
’ 
, 
+ NON@REENTRANT VARIABLES 
, Hi 
HSTNPT3s WORD @ yHIST COMMAND (NBR OF POINTS) 
MSTBUF: ,WORD a yHIST COMMAND (BUFFER DESCRIPTOR 
' ADDRESS) 
CKSTFG: ,BYTE 8.8 HCLOCK/ST#1 FLAGS FOR WAIT COMMAND 


’ 


eS8TTL 
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"SETR" COMMAND PROCESSOR 


, 
SOOOOOOEEOO OOOOH SO OOOO OOOO EE OOOO OOOOH OOOO OOOOH OOOOH ROOOO® 


, 
U 
s 
' 
U 
, 
U 
U 
' 
U 
U 
' 
' 
U 
’ 
5 
' 
, 
' 
U 
, 
U 
s 
5 
' 
’ 
U 
U 
U 
‘ 
' 
' 
’ 
U 
U 
5 
U 
’ 
’ 
8 


ETR 


BASIC FORM 
PURPOSES SET 


MOV 


MOV 


MOV 


JSR 


’ 
*SETR® COMMAND PROCESSOR 


CALL "SETR* (RATE, MODE, PRESET) 


CLOCK RATE WILL SET THE CLOCK RUNNING AT THE 
DESIGNATED "RATE" AND IN THE SPECIFIED 

"MODE", THE "PRESET" VALUE IS THE CLOCK COUNTER 
VALUE, THE INTERRUPT ENABLE WILL ALWAYS BE 

SET TO A ONE, 


VALUES OF *RATE® 

@ NO RATE SELECTED 

1 1 MHZ 

2 180 KHZ 

3 10 KHZ 

@ 1 KHZ 

S 100 HZ 

6 SCHMITT TRIGGER #1 (MEANINGFUL ONLY 

FOR HIST OPERATIONS), 

7 LINE FREQUENCY (5@ HZ OR 6@ HZ) 
VAL 

@ 


UES OF "MODE" 
SINGLE INTERVAL MODE, COUNTER COUNTS FROM 
PRESET VALUE TO OVERFLOW AND STOPS, 

1 REPEATED INTERVAL MODE, COUNTER COUNTS FROM 
PRESET VALUE TO OVERFLOW, TRANSFERS 
pur eR rReeey TO COUNTER, AND BEGINS 

AIN, 

2 EXTERNAL EVENT TIMING MODE, THE COUNTER IS 
FREE RUNNING, ANO A PULSE FROM ST #2 WILL 
TRANSFER CONTENTS OF COUNTER TO BUFFER/ 
PRESET AND THEN CONTINUE COUNTING, 

3 EVENT TIMING FROM ZERO BASE MODE IS THE 
SAME EXCEPT THAT WHEN THE TRANSFER OF THE 
COUNTER TO THE BUFFER/PRESET IS DONE, 

THE COUNTER IS CLEARED AND THE COUNT BEGINS 
FROM ZERO, 
MODE+@ START CLOCK ONLY WHEN ST#1 FIRES, 


sENTRY POINT TO PROCESSOR 


WCKLINT, OMCKLIVA pINTERRUPT ENTRY POINT, 


#200, O8CKLIP PROCESSOR PRIORITY, 
#MAXC,T3CRS) sFOR LIMIT TESTS ON RATE, MODE, AND 
AND PRESET, 


' 
PC, @MPOLENT yENTER POLISH MODE AND CHECK 
’ FOR ENOUGH AREA TO WORK 
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SETRis 


LPS2 VO1901 

1 

2 

3 

a 

5 

r 

7 

8 

9 

1e 

Mw 

12 

13 

14 

15 

16 

17 

18 

19 

20 

at 

22 

23 

ra) 

es 

26 

27 

28 

29 

38 

31 

32 

33 

34 

35 

36 

37 

38 

39 

48 

a1 

42 

43 

au 98014 

45 08014 012737 
eeesue* 
02800006 

46 @ee22 012737 
eee2ue 
0008006 

47 90030 812765 
8e0ece’ 
2eeee2 

48 

49 08836 004737 
ee0agec 

td 

LPS2 VOt#o1 

St 

Se 

53 00042 aoce0eG 

S4 ee844 Bee008G 

SS 00046 aa0geeG 

56 40050 aseeeeG 

37 

58 00052 cagg006 

59 90054 9000006 

68 08056 ae000e6 

61 88860 aeeaeeG 

62 28062 626064" 

63 80064 205037 
eoeeees 

64 @0078 BeSueS 
eegaue 

65 @8A74 016537 
eeease 
80¢ea0G 

66 

67 88102 012600 

68 8104 wi2ed2 

69 88186 206302 

7@ 20118 200300 

71 08112 852700 
Oea1a1 

72 @@116 8327280 
ee200e 

73 @0122 B814eu 

74 80124 Q427208 
e02001 

75 00130 052700 
a20ene 

76 00134 

77 @0134 105067 
177652 

78 00148 e5eee2 

79 @8142 010237 
e20geeG 

82 80146 000137 
eeegeeG 

81 

62 

83 


+GETNUM 
+INTST 

oSAVINT 
*CKCMGN 


#INTST 
#SAVINT 
+CKCMGN 
+INTST 
ote 


CLR 


NEG 


MOV 


MOV 
Mov 
ASL 
SwaB 
BIS 
BIT 


BEO 
BIC 


BIS 


CLRB 


81s 
MOV 


Me 


' WITH ANO THAT FIRST TOKEN 
’ IS INOEED A LEFT PARENS, 


1GET "RATE® IN COMMAND 
pINTEGERIZE IT AND TEST <a7 
pSAVE IN ON THE STACK 
yCHECK NEXT TOKEN EQUAL TO A COMMA 
’ AND GET NEXT NUMERIC ("MODE") 
pINTEGERIZE IT AND TEST <a7 
ySAVE RESULT ON THE STACK, 
}CHECK NEXT TOKEN EQUAL TO A COMMA 
’ GET NEXT NUMERIC, ANO TEST «#65535, 
PLEAVE POLISH MODE 
ONLPSCKS sTURN OFF CLOCK MOMENTARILY 
Fac2¢R5) sTAKE THO?S COMPLEMENT OF THE PRESET 
FAC2(R5),@#LPSPB y VALUE ANO ENTER INTO THE BUFFER 


’ PRESET REGISTER, 


(SP) 4,RO sGET MODE 

(SP) 4,R2 #GET RATE 

R2 NORMALIZE TO BITS 81°03 OF WORD 
RO yPUT MODE IN LEFT BYTE 

#101,R0 ASSUME NO ST#1 CLOCK STARTS 
#2000,RO y8T wi REQUESTED? 

SETR1 yNO 

#2001,R0 CLEAR OUT ST BIT AND START BIT 
#20000,RO yADD IN REAL ST BIT IN STATUS REGISTER 
CKSTFG CLEAR CLOCK FLAG BEFORE STARTING 
RO,R2 COMBINE MODE + RATE + ST#1 @ START 
R2,ONLPSCKS NOW START UP CLOCK 

@aCKRPAR CHECK LAST TOKEN EQUAL TO A RIGHT 


' PARENS AND RETURN TO THE BASIC 
’ INTERPRETER, 


LPS2 VOl=0} 
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1 ’ sS8TTL "SETC® COMMAND PROCESSOR 
2 ’ 
3 FOCOOROO OOP OOOSH OOOO OHO HSER EOOE RESO HOCOROER REEL OO ODEO EEE OEOOR 
4 ’ 
5 ) "SETC" COMMAND PROCESSOR 
6 y 
7 1 BASIC FORME CALL "SETC"(RATE, TIME) 
8 ’ 
9 } PURPOSES SET CLOCK TO THAT SPECIFIED BY "RATE® AND "TIME", 
18 ’ THE CLOCK STATUS REGISTER I8 SET TO "RATE" AND 
a , WILL RUN FOR "TIME" SECONDS, A CLOCK INTERRUPT 
12 ’ WILL THEN OCCUR WHICH MAY BE USED TO INITIATE 
13 , ANY OF THE CLOCK CONTROLLED FUNCTIONS, THE 
14 ' TIME ARGUMENT I8 EVALUATED AS TICKS m# TIME IN SECS 
15 ’ TIMES CLOCK RATE SPECIFIED IN "RATE", E.G, IF 
16 ’ CLOCK RATE WAS 1QKHZ, THEN TICKS =» TIME IN SECONDS 
{7 ’ TIMES 1GKHZ, THE "TICKS" ARE ENTERED INTO 
18 ’ THE CLOCK PRESET/BUFFER REGISTER, THE CLOCK 
49 ’ ALWAYS RUNS IN MODE ZERO, 
20 ’ 
ai ’ LEGAL VALUES OF RATE ARES 4, S, AND 7 (SEE SETR 
22 , FOR EXPLANATION OF MODES), 
23 ’ 
24 00152 SeTce yENTRY POINT TO PROCESSOR 
25 00152 012737 MOV SCKLINT, OMCKLIVA 
e0esue* 
eeeeeeG 
26 90160 012737 MoV #200, e8CKLIP 
avezue 
080000G 
27 20166 012765 MOV SMAXCo2,/T3(RS) FLIMIT TESTING OF "RATE" AND "TIMER 
eeeeee* 
000062 7 
26 00174 eger3? | JSR PC, OMPOLENT VENTER POLISH MODE ANDO CHECK 
88000 
29 ’ FOR ENOUGH AREA TO WORK 
30 ’ WITH AND THAT FIRST TOKEN 
3 ’ 18 INDEED A LEFT PARENS, 
32 e82e0 eocgesG @GETNUM #GET "RATE" FROM COMMAND 
33 ee2e2 aeoaees oINTST pINTEGERIZE ANO TEST <w 7 
34 20204 8200006 +SAVINT sSAVE RATE ON STACK 
35 @0286 ganeeeG #CKCMGN sCHECK NEXT TOKEN EQUAL TO A 
36 ’ COMMA AND GET NEXT NUMERIC 
37 » FROM COMMAND STRING, ("TIME"), 
38 e021e oee2i2° 02 sEX2T POLISH MODE 
39 ge@212 010165 MOV RI,RISAVE(RS)  jPERSERVE Ri 
e20046 
4@ ea216 005037 CLR OLPSCKS yTURN OFF CLOCK MOMENTARILY 
eegeees 
41 e@222 021627 cup (8P),4 JRATE MUST BE MODES 4,5, OR 7 
eoeoeu 
42 0226 0824051 BLT ERARG HILLEGAL RATE SPECIFIED 
43 09230 021627 cmp (SP) ,#6 IRATE OF © IS ALSO ILLEGAL 
egeeae 
44 08234 e81446 BEQ ERARG 
45 20236 286316 ast (SP) yRATE @ RATE * 2 (TO POSITION IN PLACE 
46 ’ FOR THE CLOCK STATUS REGISTER), 
LPS2 val-e) RT@11 MACRO VM@20¢9 1O*0CT<74 G2:00238 PAGE be 
47 28240 Q11602 MOV (SP),R2 sCONVERT CODE TO A FLOATING POINT NUMBER 
48 880242 BBSoue CLR @(SP) y2ND HALF OF FP IS ALWAYS ZERO 
49 88244 Bio246 MOV FPNBR@1Q9(R2),°(SP) 
800346°% 
S® ae25e aheene MOV FAC2(R5),e(SP) PUT "TIME" ON STACK 
80804 
Si 00254 o165u6 MOV FACI(RS),=(SP) 
8eeo40 
S2 9026e a61005 BNE SETC! 1TIME IS ALREADY FLOATED 
53 00262 005726 TST (SP)¢ sFLOAT "TIME® 
54 @8264 904437 JSR RU, @NSPOLSH 
88000006 
$5 98270 oeveces oSIR 
56 00272 eao27u’ 2 sEXIT POLISH MODE 
57 @8274 BQ4u37 SETCi# JSR RU, @NSPOLSH 
eeeeeeG 
58 80300 de0000G #SMLR SMULTIPLY "TIME" # FRATE® 
59 68302 a00304° ee2 yEXIT POLISH MODE 
6@ 80324 012665 MOV (SP)+,FACA(RS) yPUT RESULT IN FAC 
@200ue 
61 00318 612665 MOV (SP)o,Fac2crs) 
eeegue 
62 08314 0040737 JSR PC, @NENTERP 
2808006 
63 88320 BeegeesG *INTST SINTERGIZE AND NEGATE NUMBER 
64 A8322 885465 NEG Fac2crs) 
eeegue 
65 e326 eee) mov FAC2(RS),OMLPSPB yPUT INTO BLOCK BUFFER/PRESET 
80094 
800080G 
66 ) REGISTER, 
67 00334 a126e2 MOV (SP)4,R2 1GET "RATE® 
68 00336 aires MOV #101,R8 ICLOCK # INTERRUPT ENABLE 81TS 
1 
69 00342 016501 MOV RISAVE(RS),R1 PRESTORE RY 
O20046 
78 88346 parle) JMP SETRI ySTART UP CLOCK ANO CHECK LAST 
"1 ’ TOKEN EQUAL TO A RIGHT PARENS, 
72 } «THEN RETURN TO THE BASIC 
a3 ’ INTERPRETER, 
, 
7S @@352 000137 ERARG: JMP OwERRARG HILLEGAL ARGUMENT 
000ec8G 
16 ’ 
77 00356 042572 FPNBR? ,WORD 42572 SFLOATING POINT 1900 
78 00362 o41710 «WORD = 41718 SFLOATING POINT 198 
79 00362 avoene eWORD Q HFLOATING POINT @ 
80 eIFNOF cYCS@ 
81 88364 auisia MORO 841510 sFLOATING POINT 60 
Be eENOC 
63 oe TFOF cycse 
64 sWORD 041S¢e8 JFLOATING POINT S@ 
re eENOC 


LPS2 Valeo! 


RTe1i MACRO VMB2009 16"OCT@74 82900838 PAGE 7 


1 1 aSBTTL "HIST" COMMAND PROCESSOR 
2 ’ 
3 TITTIES L Ly 
4 , 
s » "HIST*® COMMAND PROCESSOR® 
6 ’ 
7 1 BASIC FORM: CALL "HIST" (QUF,NPTS) 
8 ’ 
9 y PURPOSE! HISTOGRAM © TIMED SCHMITT TRIGGER, THE HIST FUNCTION 
18 ’ INPUTS "NPTS® VALUES FROM THE CLOCK PRESET/BUFFER 
i ’ INTO THE SPECIFIED BUFFER, BUF, WHEN ST #2 FIRES, 
te ’ THE CLOCK MODE MUST BE PUT IN 2 OR 3 TO BE MEANINGFUL, 
13 ’ THE ROB FUNCTION I8 USED TO RETRIEVE THE DATA, 
4 ’ THE BUFFER IS ALWAYS CIRCULAR AND THE DATA POINTERS 
a ’ INITIALLY RESET BEFORE THE SAMPLING BEGINS, 
6 ’ 
17 08366 WISTS JENTRY POINT TO PROCESSOR 
18 88366 012765 MoV WMAXCOG,T3CRS) yFOR LIMIT CHECKS ON NPTS 
eeegeu" 
800062 
19 80374 105067 CLRB HISTON TURN OFF ANY PREVIOUSLY INITIATED 
ae0ee0G 
20 HISTOGRAM SAMPLING, 
21 80488 004737 JSR PC, @MPOLENT JENTER POLISH MODE AND CHECK 
eeeees 
22 ’ FOR ENOUGH AREA TO WORK 
23 , WITH AND THAT FIRST TOKEN 
24 ’ IS INDEED A LEFT PARENS, 
25 08404 eoe0006 +GETBUF yGET BUFFER ADORE8S FROM COMMAND 
26 ’ ANO CHECK IT AGAINST THE 
e7 7 , OEFINITION TABLE, 
28 08406 8000006 *BUFRES PRESET BUFFER POINTERS 
29 89418 a000086 oSAVER2 SAVE BUFFER ADORESS 
38 88412 gee80eG +CKCMGN sCHECK NEXT TOKEN EQUAL TO & COMMA 
34 '’ ANO THE NEXT NUMERIC FROM 
32 ’ FROM THE COMMAND, ("NPTS®) 
33 80414 g000086 oINTST VINTERGIZE RESULT ANO TEST <s65535 
34 e416 Bee4u20" ot2 LEAVE POLISH MODE 
35 80420 016567 Mov FAC2(RS),HSTNPT pSAVE ®NPTS® 
eoveue 
177368 
36 88226 812667 MOV (SP)¢,HSTBUF GET BUFFER DESCRIPTOR ADDRESS 
177356 
37 00432 125267 INCB HISTON ARM TIMED SAMPLING 
8000006 
38 98436 200137 SMP @aCKRPAR CHECK NEXT TOKEN EQUAL TO RIGHT 
8000086 
39 ’ PARENS AND RETURN TO THE 
48 ’ BASIC INTERPRETER, 
a ’ 
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: ’ eSBTTL "WAIT™ COMMAND PROCESSOR 
’ 
3 TITS ty) 
4 ’ 
5 y "WAIT" COMMAND PROCESSOR 
6 ’ 
7 » BASIC FORM: CALL PWAIT®(N) 
8 ’ 
9 ) PURPOSE! OISABLE FURTHER PROGRAM EXECUTION AND WAIT UNTIL 
18 ’ THE SPECIFIED EVENT "N® OCCURS, "N® IS DEFINED 
i } AS FOLLOWS: 
12 ’ 
13 ’ Ns@ WAIT FOR CLOCK OVERFLOW 
i4 ’ Nal WALT FOR 8T #1 TO FIRE 
15 ! Ne2 WAIT FOR Nw@ OR Ne} 
16 ' Ne@,1,2 RETURNS IMMEDIATELY 
17 ’ 
18 @04u2 WAITS % ENTRY POINT TO PROCESSOR 
19 @a442 B12765 MOV MMAXCeU,T3CRS) yFOR LIMIT TESTS ON N 
eeegaus 
800062 
28 08458 204737 JSR PC, @#POLENT ENTER POLISH MODE AND CHECK 
0020906 
21 ’ FOR ENOUGH AREA TO WORK 
22 1 WITH ANO THAT FIRST TOKEN 
23 ’ IS INDEED A LEFT PARENS, 
24 98454 goveoeG +GETNUM 1GET "NS 
25 80456 adegeec *INTST PINTEGERIZE IT 
26 28468 B60402° at2 dLEAVE POLISH MODE 
27 80462 826527 cmp Fac2(R5) ,#2 yN>2 ALWAYS RETURNS IMMEDIATELY 
eeeaue 
oeegae 
28 06478 181015 BHI WAITS 
29 g0472 eieiae MOV SCKSTFG,R2 PADDRESS OF CLOCK/ST FLAG 
eaeare? 
3@ 00476 a165ae Mov FAC2(RS),RO yGET #N® 
@88aue 
31 08582 01412 BEQ WAITY yN@i MEANS CLOCK OVERFLOW 
32 00584 aa5202 INC Re dASSUME ST FOR NOW 
33 80596 aeeaee ROR RO yN@1 MEANS ST OVERFLOW 
34 88518 103407 acs WAITS 
35 @@512 085767 WAIT3s: TST CKSTFG mN@2 MEANS ST OR CLOCK OVERFLOW 
177274 
Bo @@516 81775 BEQ WAITS 
37 20520 e05067 CLR CKSTFG CLEAR ALL FLAGS NOW 
177266 
38 80524 000137 WAITGS SMP @aCKRPAR sCHECK NEXT TOKEN EQUAL TO A 
eeooeec 
39 ’ RIGHT PARENS ANO RETURN TO 
40 ’ THE BASIC INTERPRETER, 
41 00530 105712 wAITin STB (Ra) yWAIT POR SPECIFIED FLAG ONLY 
42 80532 001776 BEG WAITS 
43 88534 185012 CLRB (Re) CLEAR FLAG FOR NEXT TIME 
44 80536 800772 BR walta 
45 ’ 
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CY ee oe 


7 000540 
8 080540 804737 
8eeeeec 
9 280544 9142708 
eesele* 
18 80550 105737 
0000006 
11 88554 180001 
12 86556 eeS2e0 
13 00S5e@ 1527128 
880083 
14 00564 832737 
o0i4c0 
00ee08G 
$5 88572 001903 
16 00574 042737 
001717 
00000086 
17 08602 185767 
0000086 
18 @06¢6 9014613 
19 80632 013703 
0800086 
28 80614 a16702 
377178 
21 08620 004737 
2000006 
22 08624 805367 
177156 
23 806030 a01002 
24 086032 185067 


0880006 


25 08636 105737 
8080006 
26 20642 100023 
27 606408 952737 
008002 
eeceees 
28 a@652 013703 
eeceess 
29 98656 105737 
9008006 
38 00662 o010e2 
31 00664 004737 
eeeeeeG 
32 00679 013702 
@0e00eG 
33 00674 004737 
0000086 
34 @8700 005337 
8000006 
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35 80704 a01002 
36 08706 195037 
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’ eSBTTL LPS CLOCK INTERRUPT ROUTINE 


' 
POOOOOR OOOO RO OOOO OSE ROEDER ORO; R SSO O ROR E RRO EERE R ORR ORR RROOeOLS 


U 
3s LPS CLOCK INTERRUPT ROUTINE 


, 
CKLINTS 
JSR PC, OmREGSAY 
Mov #CKSTFG,RO 
TSsTs ORLPSCKS 
BMI CLKe 
INC Re N 
CLK@s 6188 i, (RO) 
BIT #1400, OHLPSCKS 
BNE CLKa 


are BI7TL7, OMLPSCKS 


CLKGS TST8 HISTON 
BEQ CLKS 
MOV OeLPSPB,RS 
MOV HSTBUF,R2 
JSR PC, ensTODAT 
oec HSTNPT 
cukeNTSTON 
CLKIs TsT8 O#ORSON 
BPL CLK2 
ers #2, OMLPSORS 
MoV O#LPSDIB,R3 
TSsT8 @#BCOON 
un Pes ewcONBeD 
CLK3t MOV OBORSBUF,R2 
JSR PC, enSTODAT 
oEC ORORSNPT 
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BNE CLK2 
CLRB @#ORSON 


: 2800006 

37 O@712 860137 CLKa2s JMP @WRESTOR 
0800086 

38 ’ 

39 oeeear? eENO 


s8AVE RO, R2, AND R3 ON STACK 
sSET ST/CLOCK FLAG 

WAS THIS A CLOCK OVERFLOW? 
vYESs SET CLOCK FLAG 

gSET 8T FLAG 

9SET APPROPRIATE FLAG 

yMODE ZERO OPERATION? 

yNO 

yYESt OISABLE CLOCK THEN 
PHIST OPERATION IN PROGRESS? 


NOs TEST ORS THEN 
DREAD PRESET/BUFFER REGISTER 


yGET HIST BUFFER ADDRESS 
sSTORE DATA IN USER*S BUFFER 
YALL POINTS TAKEN? 


yNO 
sCLEAR HIST DONE FLAG 


HORS OPERATON IN PROGRESS? 


NOs EXIT 
READ DIGITAL INPUT REGISTER 


sCONVERT TO BCO?P 


gNO¢ TREAT AS A PURE BINARY NUMBER 


CONVERT TO BCD 

9GET ORS BUFFER ADORESS 
WSTORE OATA IN USER*S BUFFER 
gALL POINTS TAKEN 


02100138 PAGE 9 
yNO 
CLEAR DRS DONE FLAG 


pRESTORE REGISTERS ANO EXIT 


ENO OF MODULE #2 
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SYMBOL TABLE 


BAO =-8 200812 BCOON & wanane G BEG 88 800000 
BUFRESS eannen G CKCMGNS seewee G CKCOMAS enanee G 
CKLINT 988540R CKLIP @ eannew G CKLIVAS eeanee G 
CKRPARS saneen G CKSTFG geee12R CLKO @8a5eeR 
CLKA 820636R CLKa 80e712R CLKS 200670R 
cLKG eagegaR CONBCD® resane G CEL == eeeei2 
ORSBUFR weeenn G ORSNPTs aenene G DRSON = taennn G 
ENO s ee00d2 ENTERPS weenne G ERARG 000352R 
ERBUF © aeeene G ERNOR & nanene G ERRARGS waxnne G 
ERRPOLS sewnen G ERRSYNS wennne G EVAL & eaeeee G 
FaCi # 800040 Fac2 & G88042 FLOAT © sanene G 
FPNBR @OS3SOR GET 8 600806 GETADDS saanne G 
GETBUFS eannne G GETOATS aeanew G GETNUMS senene G 
GETV 8 weenee GC GETVARS wawene G HIST B@G366RG 
HISTONS waenne G HSTBUF 000010R HSTNPT B80006R 
Int B eeenne 6 INTST & annene G LPSCKSs waxnwe G 
LPSOIGm sannae G LPSORSs auanne G LPSPB = waenan G 
MAXC @ageoeR NARRAYS aannan G NUMSGNS weneee G 
PC 8%080007 POLENTS anenee G POLRET= 000134 
PS 8 177776 PUT 8 00004 REGSAVS eaenen G 
RESTORS wanene G RESTR2s sennne G RETURNS 000207 
RTSON & enenee G RO 8% 080080 RY 83000001 
RiISAVER Bege46 R2 8x000002 R3 8%800003 
RQ sxgoeces RS 3xX900005 SAVER2S senane G 
SAVFACe senene G SAVINTS sannan G SETC 8G0152RG 
SETC1 8ee274R SETR @6O01 ORG SETRI 8801354R 
sp 8X000006 SSiSAVs goge24 SS2SAV8 828026 
STODATS eeenee G STORXTs eunene G STOVARS tannee G 
TABLE = wannun G 3 B 200062 VARSAVS 880822 
WALT CeGGu2RG WAITS 888530R WAITS @aosi2R 
WAITa B@eeS24uR SIR B auenen G SMLR 8 wanene G 
SPOLSHs sewane G eCOMMAR aeawan G eLPAR @ eeanee G 
eRPAR w aaeeee G 
+ ABS, Be0000 eee 

200716 081 


ERRORS DETECTED: @ 
FREE CORE: 18167, WORDS 


oLPrsLPse 
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1 eTITLE LPS3 Voto! 
2 seSBTTL LPS MODULE #3 
3 ’ 
: y DEC#11°LBEXAeBoL AG BASIC KERNEL V@29a1 

’ 
. 1 COPYRIGHT (C) 1973,1974 

’ 
8 ) DIGITAL EQUIPMENT CORPORATION 
9 } MAYNARD, MASSACHUSETTS 01754 
1@ ’ 
it y THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
12 } CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
13 y AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
14 1 DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
1s } MAY APPEAR IN THIS DOCUMENT, 
16 ’ 
17 } THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
18 } LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
19 » CAN BE COPIED (WITH INCLUSION OF DEC°S COPYRIGHT 
20 y NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
a1 } OTHERWISE BE PROVIDED IN WRITING BY DEC, 
22 ' 
23 1 DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
24 y OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
25 } WHICH IS NOT SUPPLIED BY DEC, 
26 ’ 
cs y WRITTEN BY$ RICK HULLY FEBey 1973 
2 ’ 


37 
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LPS3 V@lnes 


OesneNewne 
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OIR 
bor 
ORS 
REL 


www wwe wen 


RTeit MACRO VM@2999 


2SOTTL 


INTREPRETER, 


ew we 


»GLOBL 
oGLOBL 
oGLOBL 
oGLOBL 


LPS MODULES, 


eGLOBL 
eGLOBL 
oGLOBL 
2GLOBL 
oGLOBL 
«GLOBL 
eGLOBL 
eGLO8L 
eGL06L 
oGLOBL 
GLOBL 


~w we 


’ 
1 GLOBALS REQUIRED FOR COMMAND PROCESSORS 
‘ 


/GLOBL 


eSOTTL CONTENTS OF MODULE #3 
THE FOLLOWING COMMAND PROCESSORS EXIST IN THIS MODULES 


PROGRAM GLOBALS 


GLOBALS REQUIRED FOR COMMUNICATION WITH THE BASIC 


ERRPDL, ERRSYN, ERRARG 
EVAL, GETVAR, STOVAR 
INT, ,COMMA, »RPAR 
NUMSGN, ,LPAR 


GLOBALS REQUIRED FOR COMMUNICATIONS WITH THE VARIOUS 


TABLE, NARRAY, FLOAT 
POLENT» GETADD, GETNUM 
CKCMGN, INTST,GETY 
GETBUF,REGSAV,ERNOR 
STORXT, CKRPAR, EROUF 
CKCOMA,ENTERP, STODAT 
GETDAT,RTSON, ORSON 
SAVER2,SAVFAC,RESTR2 
RESTOR, HISTON,BCDON 
CONBCO, BUFRES,ORSNPT 
SAVINT, ORSBUF 


OIR, DOR, ORS, REL 


U 
+ GLOBALS FOR DEVICE ADORESSES 


, 
oGLOBL 


5 
1 GLOBALS FOR INTERRUPT PRIORITY AND VECTOR ADRESS, 


LPSORS,LPSOIB,LPSOOR 


eGLOBL ORSIVA,ORSIP 
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LPS3) VO1901 RTets MACRO VMG2009 

| ! 

2 ’ 

3 200000 RO s bt) 

4 eoeeear Ri s xt 

S eeeaae Re s x2 

6 808003 R3 . x3 

7 @00004 RY s “a 

8 eeeoes RS s xs 

9 e@eeea6 SP 3 x6 

18 @80007 PC s x7 

uv ’ 

12 1 GENERAL EQUATES 

13 ’ 

14 177776 PS s e2 

15 @00207 RETURN #@ 207 

. @80134 POLRET 8 134 

1 

18 1 BASIC USER*’S EQUATES 

19 ’ 

20 @80022 VARSAV 3 22 

at e9ee24 SSiSavV 8 2a 

22 @0e026 SS2sav 2 26 

23 @800G0 FACi s 4a 

2a @0eeu2 Fac2 . 42 

25 200056 T1 2 56 

26 @eeea6ee Te 2 60 

27 eeuge2 T3 2 62 

28 ’ 

29 } BUFFER DESCRIPTOR EQUATES 

30 ! 

31 @80008 BEG 8 ) 

32 @@0002 END a 2 

33 800004 PUT s a 

34a 080006 GET s 6 

35 eeee1e BAD 8 18 

36 Be0012 DEL s 12 

37 , 

38 s LIMIT TEST 

39 ’ 

4@ 20000 177777 MAXOs WORD 177777 

41 8882 Beeae2 MAXRS ,WORD 2 

4e ’ 

LPS3 Va@19=a1 RTeii MACRO VMO2009 

4 ’ eSBTTL 

2 

3 

4 , 

+) 1 "DIR" COMMAND PROCESSOR 

6 ' 

7 1 BASIC FORM; 

8 ’ 

9 PURPOSES READ 

18 ' 

Mi ’ 

12 ’ 

13 ’ POINT NUMBER, 

14 , 

1s ’ 

lo ' 

17 , 

18 , 

19 ’ 

28 20084 OIRs 

21 88004 684737 JSR PC, @#POLENT 
820086 

22 

23 

24 

25 a@a1e eeraaes +GETNUM 

26 aea12 ee0ea0G +SAVFAC 

27 88e14 eeeneeG oCKCOMA 

28 @0016 800086 +GETV 

29 ee020 eeveaeG +CKCOMA 

3a @ee22 aeeees’ o2 

31 00024 052737 8Is M2, O#LPSORS 
eevac2 
0800006 

32 80032 313703 MOV O*LPSDIB,R3 
2800006 

33 08036 B52626 BIs CSP) 4, (SP)o 

34 800460 B8iaGe BNE OIRL 

35 80042 004767 JSR PC, CONBCO 
eoegaaG 

36 80046 O@4737 DIRI3 JSR PC, @MFLOAT 
0209026 

37 @8052 004737 JSR PC, @wSTOVAR 
20ega06 

38 82056 004737 JSR PC, @MENTERP 
oeea0eG 

39 88062 8008006 *GETV 

48 80064 OIR2s 

41 00064 013703 MOV OMLPSDRS,R3 
800000G 

42 00078 DIRS: 

43 88070 804737 JSR PC, @MFLOAT 
eeevadG 

44 20074 B8¢137 MP O@RSTORXT 
8@ueoaG 

45 

46 
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aSBTTL REGISTER ASSIGNMENTS AND EQUATES 


yPS @ PROCESSOR STATUS WORD 
9207 = RTS PC 
134 @ IMP OCRU)e 


yVAR SAVE FOR ASSIGNMENT 
9881 SAVE FOR ASSIGNMENT 
y8S2 SAVE FOR ASSIGNMENT 


. PHIGH ORDER FLOATING VALUE 


yL0W ORDER FLOATING VALUE 
sSHORT TERM TEMPORARY 
SHORT TERM TEMPORARY | 
SHORT TERM TEMPORARY 


yOFFSET TO BEGINNING OF BUFFER POINTER 
OFFSET TO END OF BUFFER POINTER 
OFFSET TO PUT DATA POINTER 

sOPFSET TO GET DATA POINTER 

pOPFSET TO BAO DATA FLAG 

HOFFSET TO DISPLAY DELTA xX 


165535 
v2 
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"OIR® COMMAND PROCESSOR 


’ 
LOCOHOOOOOOOOOOHO OOO OOOOH OOEORO OOO OOOHOOOOOHOOORO RODEO OHORO EOE 


CALL PF OIR"(N,VAR,NEWCSR) 


DIGITAL INPUT REGISTER, IF Nw@, INPUT IS 

FOUR BCD DIGITS CONVERTED TO FLOATING POINT, 
IF N#@, THEN THE BINARY RESULT READ FROM THE 
REGISTER IS DIRECTLY CONVERTED TO A FLOATING 


THE REGISTER READ IS ACCOMe 


PLISHED VIA AN "INTERNAL LOAD" REQUEST AND 
DOES NOT RESPOND TO INTERRUPTS, THE RESULT IS 
PLACED IN "VAR", WHERE @ <m# VAR <w 65535, 


THE NEW CSR REGISTER SETTING IS RETURNED IN NEWCSR, 


sENTRY POINT TO PROCESSOR 
VENTER POLISH MODE AND CHECK 


' FOR ENOUGH AREA TO WORK 

; WITH ANO THAT FIRST TOKEN 

’ 18 INDEED A LEFT PARENS, 

yGET "N" IN COMMAND 

ySAVE FAC ON STACK 

yCHECK NEXT TOKEN EQUAL TO A COMMA 
sCALCULATE ADDRESS OF "VAR" 

}CHECK NEXT TOKEN EQUAL TO A COMMA 
SLEAVE POLISH MODE 

yISSUE AN INPUT LOAD COMMAND 


PREAD DIGITAL INPUT REGISTER 


WAS NG? (I,E, READ BCD?) 

yNOg READ STRAIGHT BINARY 
sCONVERT BCD TO BINARY 

sFLOAT RESULT 

STORE RESULT IN "VAR® 

GET ADDRESS WHERE STATUS REGISTER 
’ WILL END UP, 


1GET STATUS REGISTER 


yFLOAT IT 37 


STORE RESULT, CHECK LAST TOKEN EQUAL 


’ TO A RIGHT PARENS ANO RETURN 
’ TO THE BASIC INTERPRETER, 


wee 


LPS83 


a7 
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COwWFENEUNE 


00190 
00100 


20106 


08112 
Oe114 
08116 
oe1ee 


eete2 
eared 
88126 


80132 
00134 
80136 


80142 
Oe144 


00150 


@0154 
08156 


aeiee 


’ eSBTTL "DOR* COMMAND PROCESSOR 
LL ee LL cL Ld 
"DOR® COMMAND PROCESSOR 
BASIC FORMs CALL "DOR® (M,N, NEWOOR) 


’ 
U 
U 
‘ 
U 
§ PURPOSES WRITE DIGITAL OUTPUT REGISTER, SELECTED BITS IN 

’ THE REGISTER MAY BE SET OR CLEARED, IF Mu@, SET 

’ BITS IN REGISTER, IF M#@, CLEAR BITS IN 

' REGISTER, "N" IS THE BIT PATTERN TO SET OR CLEAR, 
’ THE NEW RESULT IN THE REGISTER 18 RETURNED AS A 

’ FLOATING POINT NUMBER IN NEWOOR, 

, 
0 


ORs JENTRY POINT TO PROCESSOR 
212765 “OV #MAXO,T3CRS) gFOR LIMIT TEST OF PNR 
e8eeeo" 
800062 
004737 JSR PC, @#POLENT VENTER POLISH MODE AND CHECK 
eeeeeeG 
' FOR ENOUGH AREA TO WORK 
’ WITH AND THAT FIRST TOKEN 
’ 18 INOEED A LEFT PARENS, 
0000006 +GETNUM GET "MH" IN COMMAND 
eeeoeeG oSAVFAC y8AVE FAC ON STACK 
eoegees +CKCMGN HCHECK NEXT TOKEN EQUAL TO & 
oeeaees +INTST ’ COMMA AND GET ®N® IN COMMAND, 
’ INTEGERIZE RESULT AND TEST 
’ <6553S, 
80e0008G *CKCOMA yCHECK NEXT TOKEN EQUAL TO A COMMA 
@0@126° o¢2 HLEAVE IN POLISH MODE 
@165@3 MoV FAC2(RS)-R3 yGET PN® 
eeeoue 
052626 BIS (SP) 0, (SP)+ 1MaQ? (I,E, SET BITS IN REGISTER?) 
081003 BNE DORY yBNE MEANS CLEAR BITS 
050337 ers R3,ONLPSOOR 78EQ MEANS SET BITS 
8800006 
eeouse BR Dore 
@48337 DORIS BIC R3,e@WLPSOOR CLEAR BITS 
2000006 
004737 DOR2s Jr PC, OWENTERP sGET ADDRESS OF NEWOOR 
a00eaeG 
8800006 $GETV 
013703 MOV @MLPSDOR,R3 RETURN NEW OUTPUT REGISTER SETTING 
8800006 
000167 UMP DIRS ’ AND CLEANUP, 
177702 


7) 
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7 ! sSBTTL "ORS" COMMAND PROCESSOR 
' 
3 FOCOROR ODOR DOORS DEORE OREO CORED OR RES D OREO SORE COO E SOO; OONDS 
a , 
5 » "DRS*® COMMAND PROCESSOR 
6 ’ 
7 ) BASIC FORM: CALL "ORS" (BUF, MODE, NPTS,M,NEWCSR) 
8 ’ 
9 ) PURPOSES DIGITAL READOUT SAMPLING, SAMPLES THE DIGITAL 
1e ' INPUT REGISTER IN A SIMILAR FASHION AS THE 
it ’ RTS FUNCTION, WHEN Ma@, EACH TIME THE CLOCK 
12 ’ FIRES COR ST, WHICH CAN TRIGGER THE CLOCK), 
43 1 THE DIGITAL INPUT REGISTER IS READ, POSSIBLY 
ia ’ CONVERTED FROM BCD TO BINARY (DEPENDING ON THE 
15 ’ "MODE"), AND STORED IN THE CIRCULAR BUFFER BUF, 
16 ’ THE CIRCULAR BUFFER POINTERS ARE INITIALLY RESET 
17 ! BEFORE THE SAMPLING OPERATION BEGINS, 
18 ’ 
19 ' IF THE ORS IS NOT CLOCK DRIVEN, Me>@, IT MAY BE 
20 ’ ORIVEN BY DIGITAL INPUTS, I.E, WHENEVER A NEW 
rs ’ VALUE 18 RECEIVED BY THE INPUT REGISTER, THE VALUE 
2 ’ 38 READ AND STORED IN THE BUFFER BUF, 
’ 
24 ’ IF THE "MODE"#@, THEN READ BCD OTHERWISE READ BINARY 
2s ’ OIRECTLY. IF "NPTS" I8 GIVEN AS ZERO, DISABLE 
26 ’ THE SAMPLING, 
27 ’ 
28 ' THE NEW SETTING OF THE DIGITAL CONTROL STATUS 
HH ’ REGISTER I8 RETURNED IN NEWCSR, 
' 
31 20166 ORS? : yENTRY POINT TO PROCESSOR 
32 88166 012737 mov WORSINT, OWDRSIVA yINT, ENTRY POINT, 
088446" 
0000006 
33 88174 012737 MoV #208, e@aDRSIP yAND PRIORITY, 
ee0200 
eeogeeG 
34 0202 012765 Mov WMAXD, T3CRS) yFOR LIMIT CHECKS ON "NPTS® 
200800" 
000062 
35 00218 1205037 CLRB @MORSON pSTOP ANY PREVIOUS ORS OPERATION 
8020806 
36 @8214 942737 BIC #108, O#LPSORS 
000100 
0200006 
37 e@@222 004737 JSR PC, ONPOLENT sENTER POLISH MODE AND CHECK 
0000806 
38 FOR ENOUGH AREA TO WORK 


’ 
} WITH AND THAT FIRST TOKEN r 
48 ’ 18 INDEED A LEFT PARENS Civ 
’ 
, 


41 00226 aeeoees oGETBUF GET BUFFER ADORESS FROM COMMAND STRING : 

42 AND CHECK IT AGAINST THE Sal 
43 ’ DEFINITION TABLE, - : 

44 90232 a800006 +BUFRES sRESET BUFFER POINTERS . / 

4S 90232 oeegees +SAVER2 ySAVE R2 ON STACK SINCE IT HAS THE : Sage 
46 ’ BUFFER DESCRIPTOR AODRESS, ad 


47 80234 0000006 +CKCMGN yGET "MODE*® AND SAVE ON STACK 
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48 30236 0000006 oSavFac 

49 08242 8000006 *CKCMGN CHECK NEXT TOKEN EQUAL TO A COMMA 

50 ’ ANO GET NPTS AND INTEGERIZE 

51 00242 de00086 +INTST ’ MAX ALLOWABLE NBR POINTS IS 

S2 ’ 65535, 

53 00244 egegsec *SAVINT SAVE NPTS AS AN INTEGER ON THE STACK 

54 90246 8200006 +CKCMGN CHECK NEXT TOKEN EQUAL TO A COMMA AND 

55 1 GET "Mm, 

Se 80258 9000006 +SavFac WSAVE IT ON THE STACK 

57 88252 0000006 +CKCOMA yCHECK NEXT TOKEN EQUAL 10 A COMMA 

S58 20254 Qa00006 +GETV yGET VARIABLE ADDRESS OF NEWCSR 

59 @8256 200260° ate < sLEAVE POLISH MODE 

68 00268 852626 BIS (SP) 0, (3P)% MeO? 

61 86262 201403 BEQ ORSOL vYES: ORS IS CLOCK DRIVEN 

62 80264 112700 Move #1,RO sSET ORSON ON EXIT EQUAL TO PLUS NONe 
200001 

63 80278 aee4ude BR ORS82 , ZERO VALUE, 

64 0272 miele’ ORS@it MOV #>1,RO yM#8, SET ORS ON EXIT EQUAL TO NEGATIVE 
17777 

65 ’ NON@ZERO VALUE INOICATING DIGITAL 

66 ’ INPUT LOADING, 

67 @8276 B12667 ORS@2: MOV (SP)4,ORSNPT sNBR OF POINTS TO TAKE 
@00000G 

68 80302 201420 BEG ORSOS yIF ZERO, OISABLE SAMPLING 

69 80384 105937 CLRB @a6CDON ASSUME BCO MODE 
8800006 

78 00318 @52626 ars CSP) 4, (SP) 4 GET MODE (BCO/BINARY) 

Ti 88312 BBL4e2 Bea ORSOS 18CD 

72 00314 105237 INCB @NBCOON pREAD BINARY 
0000006 

73 08320 012667 DRSG3: MOV (SP) ¢,ORSBUF sSAVE BUFFER DESCRIPTOR ADORESS 
8208006 

74 @0324 1120037 MOVE RO,@HORSON - #8ET ORS OPERATION GOING 
8060086 

75 00330 100093 BMI ORS@Y CLOCK ORIVEN? 

7o 60332 052737 BIs #100,@MLPSORS YES: ENABLE INPUT INTERRUPT ENABLE 
000108 
2060886 

77 90340 gen ser ORS@Gs MP OIR2 RETURN STATUS REGISTER TO CALLER 
177528 

78 88344 862706 DRSOS: ADD #6,SP CLEAN UP STACK 
000006 

79 @8358 800773 BR ORSOU RETURN STATUS REGISTER TO CALLER 

8a ’ 


LPS3 Val~o3 


eee ee ODEON ME Wwe 


fSunea 


LPS3 V@19e! 


CUNEWNE 


08352 
00352 


20300 


80304 
80366 
90370 
20372 


00374 
Be376 


8eae2 
80004 
00006 
00019 
ee4i2 


8ea14 
98622 
eegaa 


20430 
88032 


00636 


7 @80446 
8 B00bu5 


9 80452 


18 


41 
42 


13 
1a 


is 
16 
17 


18 
19 


20 


21 
22 
23 


a4 
2s 


00456 


20462 
Oa4eu 


00470 
eea7e 


80476 
easee 
08Se6 


eesi2 
@@514 


oes20 


ee526 
90532 


0e54g 


oSOTTL 
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"REL" COMMAND PROCESSOR 


’ ° 
PITTI TTT 


' 

i] 

U 

» BASIC FORM, 

, 

1 PURPOSES 

’ 

, 

’ 

RELt 
812765 MOV 
9eeeee? 
eeege2 
004767 JSR 
8000886 
9800006 *GETNUM 
0800006 oINTST 
08000086 oSAVINT 
0000006 oCKCMGN 
800376" 02 
012703 MoV 
0820006 
12002 MoV 
803416 BLE 
eeeeae ROR 
183401 acs 
205203 INC 
856565 RELI8 ars 
eoease 
200048 
e214e3 BEQ 
152713 8188 
020001 
eeeuee BR 
142713 REL3Ss srce 
000001 
090137 REL2s ume 
8808006 
000137 ERARGs JMP 


0000006 
’ 


eSBTTL 


"REL® COMMAND PROCESSOR 


CALL *REL*(8,0IR) 


CLOSE OR OPEN RELAY "S*, THE COMMAND OPENS RELAY 


"S" (8 @ 1 OR 2) IF *"DIR® IS EQUAL TO ZERO, 
OTHERWISE IT CLOSES IT, 


VENTRY POINT TO PROCESSOR 
#MAXR, TSCRS) sFOR LIMET CHECK ON "8" 


PC,POLENT sENTER POLISH MODE AND CHECK 


’ FOR ENOUGH AREA TO WORK 

’ WITH ANO THAT FIRST TOKEN 

’ 1S INDEED A LEFT PARENS, 

sGET NUMERIC FROM COMMAND ("8") 
SINTEGERIZE AND TEST <a2 

sSAVE "8" ON THE STACK 

sCHECK NEXT TOKEN EQUAL TO A COMMA 
U AND GET NEXT NUMERIC FROM 

U COMMAND STRING, 

WLEAVE POLISH MODE 


#LPSORS,R3 PADORESS OF LPS DIGITAL 170 
’ STATUS REGISTER, 
(8P)o,R2 GET RELAY NUMBER ("8") 
eaane PARG ERROR RELAY NUMBER NOT 1 OR 2 
2 
RELS sRELAY #1 SELECTED 
R3 RELAY #23 POINT TO LEFT BYTE IN 


’ STATUS REGISTER 
FAC2(RS),FACI(RS) SET OR CLEAR FLAG? 


REL3 CLEAR 

#150R3) NSET RELAY *3® 

REL2 

#4,0R3) RESET RELAY "3° 

OaCKRPAR JMAKE SURE LAST TOKEN 18 A") 
} AND RETURN TO THE BASIC 
) __ INTERPRETER, 

@WERRARG ARG ERROR 
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ORS INTERRUPT ROUTINE 


‘ 

POCO ORO OOS R OER E SOO L DOR OREO ROO OS OR OR RE HORE SOOO ORES OROORO® 
U 

y ORS INTERRUPT ROUTINE 


U 

ORSINTS 
008737 
0900006 
0137203 
20029006 
105737 
2020006 
083414 
185737 
00000086 
281902 
004767 
0820006 
@167@2 ORSis 
0000006 
004737 
082008G 
085367 
0800086 
081007 
185037 DRS4s 
0800086 
042737 
200100 
2000286 
000137 ORS33 
bev00e8G 
052737 ORS2s 
ovetae 
0000006 
000772 


’ 
600001° 


JSR 
MoV 
TST8 


BLE 
TSTB8 


BNE 
JSR 


“OV 
JSR 


* DEC 


BNE 
CLRB 


Bic 


IMP 


PC, OWREGSAV ySAVE RO, R2, AND R3 ON STACK 
OBLPSOIB,RS pREAD OIGITAL INPUT REGISTER 
@#ORSON ORS OPERATION IN PROGRESS? 

ORSG 1NOt OISABLE INTERRUPTS ANO EXIT 
@#BCDON CONVERT TO BCD? 

ORS1 yNOt TREAT AS A PURE BINARY NUMBER 
PC, CONBCD CONVERT BCD TO BINARY 

ORSBUF ,R2 ySTORE DATA IN USER*S BUFFER 

PC, eNSTODAT 

ORSNPT PALL POINTS TAKEN? 

oRs2 yNO 

@#ORSON CLEAR ORSON DONE FLAG 


#180, 0MLPSORS DISABLE DIR INTERRUPT ENABLE 


O#RESTOR PRESTORE REGISTERS AND EXIT 
4108, 0#LPSORS PRE@ENABLE INTERRUPT ENABLE BIT 


ORS3 RESTORE REGISTERS ANO EXIT 
sEND OF MODULE #3 


LPS3) Valee@l RTett MACRO VM@2089 LOsOCT©7G B2rG2ei1 PAGE 9% 
SYMBOL TABLE 


BAD = 000010 BCOON © sennne G BEG =s 800000 
BUFRESs entane G CKCMGNS seneen G CKCOMAS seenee G 
CKRPARS suenes G CONBCO® euenes G DEL «8 Ba0e12 
DIR CBQCG4RG OIR @BOSGER OIR2 800864R 
OIR3 8@e070R DOR @80100RG OOR1 @0e144R 
ooRe 8@81S50R ORS 088166RG ORSBUFS sxeeee G 
ORSINT @a@4uoR ORSIP = weannn G ORSIVAR aunnee G 
ORSNPTs aeeaee G ORSON & saenwe G ORS@1 ea0272R 
ORSG2 @80276R ORSO3 @00320R ORseG @80340R 
ORSGS 88034UR ORS! 000476R oRs2 800532R 
ORS3 08e526R ORSG 000514R END 8 gocea2 
ENTERPS weeane G ERARG eoaugaR ERBUF = wennee G 
ERNOR & eeenne G ERRARGS neanee G ERRPOLS xeawen G 
ERRSYNw axtane G EVAL & weanen G FAC) = O00040 
FaC2 #8 eogeue FLOAT = annene G GET 8 000006 
GETADDS anenee G GETBUFs sewene G GETDATS aawnen G 
GETNUMS seenee G GETV © aeanee G GETVARS weanee G 
HISTONS enteee G tnt B wearer G INTST ao exanne G 
LPSOIBs eenwew G LPSOORS eennee G LPSDRSe suaene G 
MAXD eeaeoeR MAXR eeoeeer NARRAYS aanene G 
NUMSGNe wennen G ec 8X002007 POLENTS weanne G 
POLRETs 200134 es 8 177776 Pur os 
REGSAVs weneee G REL 88O352RG RELI 
REL2 O8B436R REL3 680432R RESTORS 6 
RESTR2= seenee G RETURNS 000207 RTSON 8 weenee G 
Re 5X000008 RL 8%000003 Ra ax000a02 
RS 8%000003 Ra sxo000o4 RS sxoogdes 
SAVER2a ennenne G SAVFACS ananen G SAVINTS ananeaw G 
sp B%808006 SSiSAVe Be0024 SS2Save 900026 
STODATS wxnane G STORXT#® ananen G STOVARS xnenee G 
TABLE & wanwen G v1 8 800056 Te = 800000 
3 2 ee8ee2 VARSAV® 800022 sCOMMAR tenene G 
eLPAR & eawawe G eRPAR & auanen G 
« ABS, 800200 0008 

oeesue 9e1 


ERRORS DETECTED: @ 
FREE CORE: 37906, WORDS 


LPS3,LPsaLPS3 
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1 eTITLE LPS4 VoteoaL 

2 reSBTTL LPS MODULE #a 

3 ' 

4 1 DEC*11°LBEXA@BeLAS BASIC KERNEL V@2=Q) 

5 ’ 

6 s COPYRIGHT (C) 1973,1974 

bf ’ 

8 1 DIGITAL EQUIPMENT CORPORATION 

q » MAYNARO, MASSACHUSETTS 01754 

18 ’ 

it } THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
12 } CHANGE WITHOUT NOTICE AND SHOULO NOT BE CONSTRUED 
13 y AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
14 } DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
15 y MAY APPEAR IN THIS DOCUMENT, 

16 ’ 

17 } THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
18 ) LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO 
19 y CAN BE COPIED (WITH INCLUSION OF DEC*S COPYRIGHT 
20 y NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
at } OTHERWISE BE PROVIDED IN WRITING BY DEC, 

22 ’ 

23 } DEC ASSUMES NO RESPONSIBILITY FOR THE USE 

24 9 OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 

25 } WHICH IS NOT SUPPLIED BY DEC, 

26 ’ 

27 s WRITTEN BYS RICK HULLY FEB,, 1973 

28 ’ 
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eSBTTL CONTENTS OF MODULE #4 
THE FOLLOWING COMMAND PROCESSORS EXIST IN THIS MODULE! 


CLRO 
PUTO 
ors 
FSH 
OXY 


Cer eNeune 
ee ey 


LPS VOt~@1 RTe1$ MACRO VM@2~a9 1OsOCT=7G G2sO3031 PAGE § 


4 ' sSBTTL PROGRAM GLOBALS 

Uy 
3 } GLOBALS REQUIRED FOR COMMUNICATION WITH THE BASIC 
4 1 INTREPRETER, 
5 ' 
6 eGLOBL ERRPOL, ERRSYN, ERRARG 
7 eGLOBL EVAL,GETVAR, STOVAR 
8 eGLOBL = INT,,COMMA,,RPAR 
9 : eGLOBL NUMSGN, ,LPAR, SIR 
18 eGLOBL = SMLR,SOVR, SPOLSH 
is eGLOBL OISPLY 

U 

13 } GLOBALS REQUIRED FOR COMMUNICATIONS WITH THE VARIOUS 
a ) LPS MODULES, 
iy ’ 
16 »GLOBL TABLE, NARRAY, FLOAT 
17 eGLOBL POLENT,GETAOD, GETNUM 
18 sGLOBL CKCMGN, INTST, GETY 
19 sGLOBL GETBUF, REGSAV, ERNOR 
2e eGLOBL STORXT,CKRPAR, ERBUF 
21 sGLOBL CKCOMA,ENTERP,STODAT 
22 sGLOBL GETOAT,RTSON, ORSON 
23 eGLOBL SAVER2,SAVFAC,RESTR2 
24 eGLOBL RESTOR, HISTON, BCDON 
2s eGLOBL CONBCD,BUFRES,ORSNPT 
26 eGLOBL SAVINT 
27 ’ 
28 9 GLOBALS REQUIRED FOR COMMAND PROCESSORS 
29 ’ 
308 +GLOBL CLRO,PUTD,OIS,FSH, OXY 
31 ’ 
32 1 GLOBALS FOR DEVICE ADDRESSES 
3 ’ 
as »GLOBL LPOISS,LPOISX,LPOISY 
3 ’ 
36 HGLOBALS FOR INTERRUPT VECTOR AND PRIORITY, 
37 »GLOBL LPSIVA,LPSIP 


LPSG VOl9o1 

1 

2 

3 800000 

a oeaee1 

5 e0c0ce 

6 980003 

7 beceas 

8 800005 

9 288086 

18 000007 

41 

12 

13 

16 177776 

15 800207 

16 000134 

{7 

18 

19 

20 eeee22 

21 eoaee4 

22 880026 

23 200048 

ea eeeaue 

es beegau 

26 o80e46 

e7 200050 

26 eeeese 

29 200056 

38 200068 

31 o8eee2 

32 

33 

34 

35 200000 

36 eeeeee 

37 @o0004 

36 000006 

39 eeeels 

48 oeeeie 

41 

LPS& VOleo1 

1 

2 

3 

4 200000 

5 oeceae 

6 

7 202004 

8 000006 

9 800010 

18 eoeate 

uu oecets 

12 o0ea15 

13 8e0016 

14 b00028 

15 200022 

16 eeoees 

17 oeee2e 

18 

19 

20 

21 

22 80000 800800 
2002 e00000 
20804 200000 
98006 200000 
08010 aeve00 
88012 200000 

23 00814 eevead 
08816 980008 
98028 200008 
ea022 Beeeee 
88024 200000 
88e26 Boeeoe 

24 

25 

26 

27 80032 eeeece 
88032 aeeeee 
28034 gee000 
90836 oeee00 
88049 seeoae 
@eeu2 200000 

28 80044 eseaad 
20046 ae0eae 
20050 seegae 
20052 a880eae 
98854 oaoaa0 
98856 Ae00e0 

eg 

30 

31 

32 00068 047777 

33 88062 007777 

34 00064 177777 

35 
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' eSBTTL REGISTER ASSIGNMENTS AND EQUATES 

! 

RO s xe 

R1 s a1 

R2 s x2 

R3 a x3 

RG s “4 

RS s x5 

SP s Xe 

PC s x7 

, 

y GENERAL EQUATES 

bs s <2 yP8 = PROCESSOR STATUS WORD 
RETURN & 207 9207 & RTS PC 

POLRET #8 134 134 Bw SMP O(RU)e 

’ 

y BASIC USER*S EQUATES 

’ 

VARSAV 8 22 VAR SAVE FOR ASSIGNMENT 
SSiSav os 26 1881 SAVE FOR ASSIGNMENT 
SS2SaAv 8 26 882 SAVE FOR ASSIGNMENT 
Fact s 4a PHIGH ORDER FLOATING VALUE 
Face s 42 yLOW ORDER FLOATING VALUE 
ROSAVE 8 aa yR@ SAVE LOCATION 

RISAVE 8 46 oR1 SAVE LOCATION 

R2SAVE = 3e R2 SAVE LOCATION 

R3SAVE S2 sR3 SAVE LOCATION 

T1 s Se gSHORT TERM TEMPORARY 

Te s 60 SHORT TERM TEMPORARY 

T3 s 62 SHORT TERM TEMPORARY 

U 

» BUFFER DESCRIPTOR EQUATES 

’ 2 

BEG 2 8 OFFSET TO BEGINNING OF BUFFER POINTER 
END . 2 yOFFSET TO ENO OF BUFFER POINTER 
PUT a a OFFSET TO PUT DATA POINTER 
GET s 6 OFFSET TO GET DATA POINTER 
Bad s 18 OFFSET TO BAD DATA FLAG 
OEL s te OFFSET TO DISPLAY DELTA Xx 
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U 
y DISPLAY TABLE EQuaTes 


’ 
OSTyY s ® BUFFER START ADORESS FOR Y 
OSTX 2 2 " sBUFFER START ADDRESS FOR X OR 
’ X POSITION ON FACE OF CRT, 
OPTY s 4 BUFFER POINTER FOR Y 
DPTX s 6 BUFFER POINTER FOR X OR X INCREMENT 
OTNPTS a 10 yNBR OF POINTS (TOTAL) 
OLNPTS te yNBR OF POINTS (RUNNING) 
OS® . 14 sOISPLAY ON/OFF SWITCH 
oSx 2 1s ySWITCH FOR X INCREMENT OR X BUFFER 
ONPTI 8 16 pINITIAL "N® (NBR OF POINTS PER CALL 
ONPTR s 20 yRUNNING VALUE FOR "N® 
OISINC #8 22 1Y/(X) BUFFER INCREMENT ON DATA 
DENOY s 24 yEND OF ARRAY Y 
DENOX s 


26 yEND OF ARRAY Xx 
, . 


' 

1 DISPLAY TABLE FOR "DIS" AND "OXY" COMMANDS 
} 

RESOISs: ,WORD @,8,0,8,8,8 


ORD Br 0e8,8,008 


U 

y DISPLAY TABLE FOR "FSH® COMMAND 
U 

NONRES: ,WORD 0,8,8,8,0,8 


WORD 818-0,8,8,8 


, 
s LIMIT TESTS 


' 

MAXDS eWORO 8=7777 14095 
MAXCE WORD 1777 14095 
MAXPY eWORD = 177777 165535 


’ 


LPSa Vel~eal RToii MACRO VM@2-89 = Lo@0CT©7G G2803831 PAGE © 
: ’ sSBTTL "CLRO*® COMMAND PROCESSOR 
, 
3 POOCOC RCO R EROS ROSE COREE OREO RECO ROO RESO E ROR ORR ECO OOOO O REO SOS 
a ’ ‘ 
5 y "CLRD® COMMAND PROCESSOR 
6 ’ 
7 1 BASIC FORMs CALL "CLAD" (BUF, SIZE, SCALE) 
8 ’ 
q } PURPOSES DEFINE DISPLAY BUFFER HAVING FIXED DELTA X VALUES, 
1@ ’ "BUF" IS THE NAME OF THE BUFFER TO BE DISPLAYED, 
il ’ AND CONTAINS SINGLE WORD VALUES, VALUES WHICH 
12 ’ FALL IN THE RANGE G@9S >= VALUE >e @ ARE DISe 
43 ’ PLAYED WHILE VALUES OUTSIDE THIS ARE NOT, 
14 ’ THE "SIZE" OF THE BUFFER IS THE NUMBER OF Y 
15 ’ POINTS TO DISPLAY AND MUST BE <# TO THE NUMBER 
16 ’ DEFINED IN THE USE AND DIM COMMANDS, THE DELTA x 
17 ’ TS CALCULATED AS 4O96/"SIZE" AND MAY BE FRACTIONAL, 
18 ’ 
19 ’ IF "SCALE® = 8, CLRO WILL SET ALL SUFFER VALUES 
20 ’ TO ©1 CNON@DISPLAYABLE VALUES), IF "SCALE" DOES NOT 
rs ’ 8G, CLRO DOES NOT CLEAR THE ARRAY AND THE ORIGe 
22 ’ INAL DATA [8 MULTIPLIED BY "SCALE", IN EITHER CASE, THE 
23 ’ PUTD POINTERS ARE RESET TO POINT TO THE . 
2a ’ BEGINNING OF THE ARRAY, OATA I8 ENTERED INTO THE 
2s ’ ARRAY THROUGH THE PUTO FUNCTION, HOWEVER, A 
26 ’ CLRO MUST BE ISSUED BEFORE DATA I8 INITIALLY 
27 ’ TRANSFERRED TO THE ARRAY, 
26 ’ 
29 ’ A CLRO MUST BE ISSUED AT LEAST ONCE BEFORE 
Hy ’ ISSUING THE PUTO, DIS, OR FSH FUNCTIONS, 
’ 
32 eeee CLROe pENTRY POINT TO PROCESSOR 
33 00066 012765 MoV aMAXC,TSCRS) sPOR LIMIT TESTING OF "SIZE" 
eeea02° 
290062 
34 88074 004737 JSR PC, @MPOLENT yENTER POLISH MODE AND CHECK 
eeoeaes 
35 ’ FOR ENOUGH AREA TO WORK 
3o ’ WITH AND THAT FIRST TOKEN 
37 ’ 18 INDEED A LEFT PARENS, 
38 88100 eececes oGETBUF JGET BUFFER ADDRESS FROM COMMAND STRING 
39 ’ AND CHECK IT AGAINST THE 
4e ’ DEFINITION TABLE, 
41 @0102 seooaes oBUFRES pRESET BUFFER POINTERS 
42 90104 eaeeees oSAVER2 ySAVE R2 ON THE STACK 
43 08186 saoesec oCKCHGN #CHECK NEXT TOKEN EQUAL TO A COMMA 
aa ’ ANO GET NUMERIC FROM COMMAND ("SIZE") 
G5 00110 eeoeees +INTST VINTERGIZE RESULT AND TEST <# 4095, 
Ge 89112 ev0ae8G oSAVINT ySAVE "SIZE* 
47 08114 ooeeeaG @CKCHGN WCHECK NEXT TOKEN EQUAL TO A COMMA 
a8 ’ ANO GET NUMERIC FROM COMMAND ("MODE") 
49 80116 aoegees SAVFAC ySAVE "SCALE" ON STACK 
S@ 08120 000122° ate JLEAVE POLISH MODE 
51 e@122 012665 mov (8P)o,T2(R5) NGET "SCALE" AND SAVE IT 
eeeeo 
S2 00126 012665 MoV (SP) 6,71 (RS) 
aeeese 
LPSG Vei9e1 RTett MACRO VM@2909 = 1680CT@7G O2903131 PAGE 66 
53 08132 212600 Moy (8P)+,RO yGET "SIZE" 
54 20134 o83420 BLE CLROS gSIZE «ws @ IS ILLEGAL 
55 00136 o12602 MOV (SP)6,R2 sR2 POINTS TO BUFFER DESCRIPTOR ADORESS 
56 08140 011203 MOV CR2),R3 yGET START AODRESS OF BUFFER 
57 @8142 erceee MOV RO,ROSAVE(RS) SAVE RO THRU RZ FOR LATER USE 
eeua 
58 08146 o10165 MoV R1,RISAVECRS) 
esegue 
S9 90152 e10265 MoV R2,R2SAVE(RS) 
eeceso 
6@ 00156 010365 MoV R3,R3SAVECRS) 
ee0ese 
61 88162 ginees Mov ENO(R2),<(SP) ;CALCULATE SIZE OF BUFFER 
62 B0166 160316 sus R3, (SP) #CEND ADORESS = BEGINNING ADDRESS) /2 
63 08170 age2te « ASR (SP) 
64 88172 B20026 cmp RO, (SP)¢ s"SIZE® <m BUFFER SIZE? 
6S @8174 ee3ue2 BLE CLROL VYESs CONTINUE 
66 08176 880137 CLROB! MP @BERNOR p*SIZE" TOO LARGE 
ee00eG 
67 @@202 e20027 CLRDI: CMP RQ, 840%, HIS SIZE" >u wage? 
@10000 
a" a8206 183028 BHIS CLROS yYESt SET DELTA X #1 AND FRACTION 
' 26, 
7@ 88219 212746 Mov #0896,,0(S8P) 94096 POINTS ON X SCALE OF SCOPE 
810000 
71 00214 0040437 JSR RG, ONSPOLSH ICALCULATE (4896,/"SIZE*) a8, 
aeceoes 
72 B822e eocgaec oSIR IFLOAT 4896, 
73 @8222 weedee’ +PUSHRO yNOW PUT "SIZE" BACK ON STACK AND 
74 ’ FLOAT IT, 
75 00224 geeaeec oSIR 
76 80226 o8000eG *$OVR y(BUF SIZE/"SIZE") 
77 @0238 @eou74° oPUSHB yPUSH & FLOATING POINT 8, ON STACK 
78 88232 Beeaaes oSMLR 108, 
79 80234 geeusu? +TRAFAC s TRANSFER RESULT TO THE FAC 
88 08236 aeecacs +INTST PINTEGERIZE RESULT IN FAC 
81 e249 eee2ue’ oe2 HLEAVE POLISH MODE 
62 Be242 o16500 Mov FAC2(R5) RO yIF INCREMENT 20, SET a1 
eoegue 
83 20246 Beige BNE CLRO2 
84 oe25a auzres CLRO3! MOV #8, )RO ySET INCREMENT sf (186, WITH A FRACTION 
eeee1 
as ’ OF ZERO) 
86 e254 gieete CLRD2t MOV R2SAVE(RS),R2  ySAVE DELTA X FOR THIS BUFFER 
2ase 
87 8260 o1aae2 Mov R@,DEL(R2) 
eeee12 
88 ee2e4 otc MOV T2CRS),@(SP) yPUT "SCALE" FACTOR ON STACK 
89 88270 816546 MoV TA(RS),@(SP) 
‘ ss ee8ese 
@ 00274 ge1005 BNE CLROG FAN INTEG 
91 80276 eosves 187 tapes Ps INTEGER, FLOAT RESULT y 
92 00380 g04437 Jr RG, @NSPOLSH sPLOAT "SCALE" FACTOR 
eeeeees 
93 ea3e4 eeegeds EIR 


LPS 


94 
95 


96 


97 
98 
99 


100 
184 
102 


103 
106 
105 


106 
187 
108 


189 


11@ 
it 
M12 
113 
114 


415 


116 
417 


116 
119 
128 


tet 


122 
123 
12a 
125 


126 
127 
126 


LPS 


129 
130 


131 
132 
133 


134 
135 
136 
137 


136 
139 


14¢ 
141 


a Vb169881 


88306 
08312 


ee3i4 
ee320 
eo322 
e326 
0332 
8336 
e342 
0344 
a346 
e352 
8384 
8356 
8308 
0370 
6372 
g374 


8376 
2400 


0406 


e414 
e420 
Q426 
0430 
e432 


e436 


e442 
e444 


8452 
@4s4 


4 VOle01 


2460 
e464 


8466 


e472 
au7a 
esee 
os5e4 


8506 
@S1a 


8e0310° 
816646 CLROG 
eeees2 
@16646 
e00eee 
erase 


817503 
eeees2 
004737 
eeegaes 
a16546 
aoegu2 
B165d6 
geeaue 
001905 
805726 
204437 
2800806 
e0o0eeG 
880356" 
812765 CLROT! 
oe0ged? 
aeoge2 
204437 
2820006 
gaegees 
peousue 
e0gge0G 
eeeuad’ 
816575 CLROGI 
aeeoue2 
agees2 
062765 
eacade 
geaes2 
a16502 
eeease 
820562 
ga0es2 
aveve2 
101738 
022626 
o165a1 
aoegd6e 
000137 
0009006 


U 
B22626 CLROS! 
012765 
177777 
200042 
000752 

, 
012665 TRAFACs 
096040 


012665 
200042 
008134 


’ 
016546 PUSHROSs 
000044 


@80134 


’ 
@16746 PUSHES 
@e0010 
016746 
oeeude 
600130 

’ 
041000 FPBs 
080000 


RTeil MACRO VMG2009 


ate 
MOV 


MOV 
BEG 
MOV 
Jsr 
MOV 
MOV 
BNE 
Ts? 
JSR 
SIR 
ot2 
MoV 
JSR 
#SMLR 
+TRAPAC 
#INTST 


22 
MOV 


400 


MOV 
CMP 
BLOS 
CMP 
MoV 


JMP 


cmp 
MOV 


BR 
MOV 


RTe11 MACRO VMG2=09 


MOV 
POLRET 
MOV 


POLRET 
Mov 
MOV 
POLRET 
eWORD 


2(SP), (SP) 
2(8P) 0 (SP) 
CLROS 
ORSSAVECRS) »R3 
PC, OMFLOAT 
FAC2(RS)s0(SP) 
FACICRS) 50 (SP) 
CLROT 


(SP)o 
RG, @HSPOLSH 


sMAXP, T3(RS) 


RG, ONSPOLSH 


16"0CT#78 


@2103531 PAGE be 

JLEAVE POLISH MODE 

pSAVE A 2ND COPY OF "SCALE" ON 

) THE STACK, 

y"SCALE*® FACTOR WAS EQUAL TO ZERO, 
) CLEAR OUT ARRAY, 

WMULTIPLY DATA BY "SCALE" FACTOR 
SFLOAT IF DATA IS 16 BITS, 

JPUT DATA ON STACK IN STANDARD 

) FLOATING POINT FORM, 


sOATA ALREADY FLOATED 
FLOAT NUMBER 


gRESET INTEGER TEST 


sENTER POLISH MODE 


MULTIPLY DATA BY "SCALE" FACTOR 
sTRANSFER RESULT TO THE FAC 
VINTEGERIZE IT 

LEAVE POLISH MODE 


FAC2(RS),OR3SAVE(RS)) SAVE NEW DATA 


#2, R38AVEC(RS) 


R2SAVECRS) »R2 


sPOINTS TO NEXT DATA POINT 


yARRAY DESCRIPTOR ADDRESS 


RSSAVE(R5),ENO(R2) yEND OF ARRAY? 


CLRDG 
(SP), (SP)% 
RISAVECRS) RI 


OMCKRPAR 


(SP) 4, (SP)4 
Bot, Fac2(RS) 


CLRDS 
(SP), FACI(RS) 


(SP), FAC2(RS) 


yNOt CONTINUE 

CLEAN UP STACK 

pRESTORE Ri 

MAKE SURE LAST TOKEN IS A ")* AND 

’ RETURN TO THE BASIC INTREPRETER, 


IGNORE "SCALE" ON STACK 
ySET OATA ELEMENT set (NON OISPLAYABLE) 


POLISH ROUTINE TO TRANSFER STACK 


1oeOCT@74. 2103831 PAGE b+ 


OATA TO FAC, 


pRETURN IN POLISH MODE 


ROSAVE(RS),@(SP) ;POLISH ROUTINE TO PUSH R@SAVE (SIZE) 


FP842,*(SP) 
FP8,0(SP) 


041008,0 


’ ON THE STACK, 
PRETURN IN POLISH MODE 


yPUSH FLOATING POINT 6, ON STACK 


pRETURN IN POLISH MODE 
WFLOATING POINT 8, 


YT 


LPS VOle8! 


Ree OSneMNewWne 


20512 
ge5i2 


00520 


ees24 
80526 
0eS3a 
20532 
00534 
08536 
90540 
eesaa 


90550 


812765 
0880640" 
eedee2 
004737 
8080006 


280000G 
2000806 


8020086 
eooeaes 
200540" 
016503 
eoegse 
004737 
2000006 
000137 
08000086 


LPSG Vat~e! 


COneUN Sune 


eessa 
eessq 
e0Se2 
20566 
00572 
88576 
ee6¢2 
2060 
80612 
aee12 
20616 
80620 
08629 
aeoe4 
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’ eSOTTL "PUTO" COMMAND PROCESSOR 

| O00eeeeoeeeecererovaceconercceneooonecooseososccososeoooooeee 
} "PUTD" COMMAND PROCESSOR 

' BASIC FORMS CALL "PUTO" (BUF,Y) 

; PURPOSE! PUT DATA POINT "Y" INTO BUF IN SEQUENTIAL ORDER, 


s 

’ WHERE 65535 >s Y ># @, THIS FUNCTION DOES NOT 
' INITIATE A DISPLAY, BUT RATHER JUST ENTERS & 

’ “ DATA POINT INTO THE SPECIFIED ARRAY, 

I 

PUTDS VENTRY POINT TO PROCESSOR 


MOV @MAXP,T3C(RS) sFOR LIMIT TESTING OF "Y" 


JSR PC, @MPOLENT VENTER POLISH MODE AND CHECK 


’ FOR ENOUGH AREA TO WORK 

' WITH AND THAT FIRST TOKEN 
‘ IS INDEED A LEFT PARENS, 
' 
U 


*GETBUPF GET BUFFER ADDRESS FROM COMMAND STRING 
AND CHECK IT AGAINST THE 
' OEFINITION TABLE, 
*SAVER2 ySAVE R2 ON THE STACK 
#CKCMGN sCHECK NEXT TOKEN EQUAL TO A COMMA 
' AND GET NUMERIC FROM COMMAND (*Y") 
+INTST PINTEGERIZE RESULT AND TEST <s 65535, 
eRESTRE PRESTORE R2 
2t2 yEXIT POLISH MODE 
MoV FAC2(RS) RS STORE RESULT NOW 
JSR PC, @eSTOOAT 
JMP @NCKRPAR MAKE SURE LAST TOKEN 18 A ")* AND 


' RETURN TO THE BASIC INTREPRETER, 
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’ i eSBTTL "OFS" COMMAND PROCESSOR 


’ 
seenccee 


POoC CORO ROO ROOD EDO O SOR DOSE RE SODELESOSOROOSOOROOOOOLS 
, 
9 "DIS" COMMAND PROCESSOR 
’ 
BASIC FORM: CALL "OLS" (BUF,N, I) 


4 
$ 
y PURPOSES OISPLAY DATA FROM BUF WHENEVER BASIC IS IDLE, THE 

’ POINTS DISPLAYED START WITH THE NTH POINT IN 

’ THE BUFFER ANO PROCEED IN INCREMENTS OF I, 

' IF Ist, CONSECUTIVE POINTS STARTING WITH THE NTH 
’ ONE IS DISPLAYED, IF Im2, EVERY OTHER POINT 

’ 1S DISPLAYED, ETC., 

u 
0 


18s sENTRY POINT TO PROCESSOR 
812765 MOV #OTS),TICRS) gRETURN PC FOR ARGUMENT PARSER 
o0es72° 
e0eeaSe 
8050605 CLR T2CR5) SINDICATE "DIS" ACTIVE 
ecegee 
800167 JMP OISPaR yNOW PARSE LINE 
0216 
612703 OISis MOV #RESDIS,R3 SETUP OISPLAY TABLE 
aeegae? 
004767 JSR PC, OSETUP 
eeee78 - 
885723 TST (R3)6 PRISR3¢2 
@12713 MOV #4,(R3) VASSUME 4 POINTS PER CALL TO 
eeeeas 
’ DISPLAY ROUTINE 
012323 MOV CR3) 0, (R36 
She MOV FAC2CRS) 5 (R3) yGET Y INCREMENT BETWEEN CHANNELS 
@ 
@66313 biss as €R3) sCONVERT TO A WORD OFFSET 
' 
0627206 A00 a4,SP yCLEAN UP STACK 
wovoey 
000137 ump ORCKRPAR sMAKE SURE LAST TOKEN IS A ")® 
eeveees 


’ AND RETURN TO THE BASIC 
’ INTERPRETER, 
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1 , eS8TTL "FSH" COMMAND PROCESSOR 
2 ! 
3 FOPCO COCR ROOD EEO R ORR R ORES OCR OEE OCC R OOS OO ReoRoe ooo oeROROOOOCeS 
a , 
5 } BASIC FORMS CALL "FSH" (BUF, NT) i 
¢ ’ , 
7 } PURPOSE: IDENTICAL TO DIS EXCEPT THE DATA POINTS IN BUF ARE 
a 1 DISPLAYED ONLY ONCE, THE NEXT BASIC STATE® 
9 } MENT IS THEN EXECUTED, 
1a ' 
11 a@63e FSH JENTRY POINT TO PROCESSOR 
12 28630 012765 mov #FSHL,TLCRS) | RETURN PC FOR ARGUMENT PARSER 
202646" 
808056 
13 09636 905065 CLR T2¢Rs) pINDICATE "FSH" ACTIVE 
800860 
14 00642 300167 JMP OISPAR yNOW PARSE LINE 
ebe142e 
15 08646 012703 FSHis MOV WNONRES,RS pSETUP DISPLAY TABLE 
@80030° 
16 08652 204767 JSR PC,OSETUP 
888214 
17 80656 205723 Ts (R376 JR3GR3¢2 
18 28660 016313 Mov =6(R3) 5 (R3) JDISPLAY ENTIRE SWEEP ON EVERY CALL 
177772 
19 ) TO THE DISPLAY ROUTINE, 
28 aaeed a12323 mov (R3) 4, (R3)¢ 
21 ee6e6 016513 Mov FAC2(RS),(R3) GET Y INCREMENT BETWEEN CHANNELS 
GeveGe 
22 00672 206313 ast (R3) }CONVERT TO A WORD OFFSET 
23 90674 at2702 Mov SNONRES,R2 }NOW FLASH UP A COMPLETE SWEEP 
080630° 
24 80700 204767 JSR PC,OSPLY 
888266 
25 ee7e4 eee74s ar D183 GET Y INCREMENT BETWEEN CHANNELS, 
26 ’ CLEAN UP STACK, DISPLAY DATA, 
27 ' AND RETURN BACK TO THE BASIC 
28 H INTERPRETER, 
29 ’ 
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: , eSBTTL "OXY" COMMAND PROCESSOR 
’ 
3 JOPOOORO DORE O OODLE DERE DOOR O RODEO DEORE SOR L ROB R ROR E OREO NOONE 
4 ’ 
5 + BASIC FORM: "OXY" (BUF1,BUF2,Ny I) 
6 ' 
7 3 PURPOSE: DISPLAY DATA FROM BUF} AND BUF2, S8UF1 AND BUF2 
8 ’ HAVE THE X AND Y VALUES RESPECTIVELY, NO DELTA 
9 ’ X 18 USED FROM THE CLARO, OTHERWISE 
18 ’ OXY IS IDENTICAL TO DIS AND FSH, 
a ’ 5 
12 00706 Oxy! dENTRY POINT TO PROCESSOR 
13 00706 @12765 MOV *#OXY1,TACRS) RETURN PC FOR ARGUMENT PARSER 
200724" 
oeeese 
14 ga714 e1Bse3 MOV RS,T2CRS) VINDICATE "OXY" ACTIVE 
200060 
15 80720 080167 JMP OTSPAR yNOW PARSE LINE 
ea2ee4 
16 02724 812703 OXY1s ©=MOV WRESDIS,R3 sSETUP OISPLAY TABLE 
eeeea0" 
17 88738 024767 JSR PC, DSETUP 
B@0136 
18 08734 052723 A BIs #488, (R3)+ 9SET D8X ACTIVE 
800408 = 
19 @a74@ e12713 MoV #4,(R3) pASSUME 4 POINTS PER CALL TO 
Bevaeu 
28 88744 612323 MOV CR3)o, (R36 ’ OISPLAY ROUTINE 
21 88746 616513 MOV FAC2(R5),(R3) GET Y INCREMENT BETWEEN CHANNELS 
ebeg4ue 
22 08752 006313 ASL (R3) CONVERT TO A WORD OFFSET 
23 08754 816602 MoV 4(SP),R2 GET X BUFFER DESCRIPTOR ADDRESS NOW 
B80084 
24 28760 216263 MOV ENO(R2),4(R3) END ADORESS OF ARRAY X 
e00ee2 
aacoau 
2S 80766 162783 sua #28,R3 RESET TABLE ADORESS 
oeeeeo 
26 88772 e11213 MOV CR2),(R3) FINITIAL START ADDRESS OF X ARRAY 
27 88774 061613 aod (SP), (R3) ADD IN STARTING CHANNEL ©} 
28 88776 005313 DEC (R3) 
29 81000 611363 MoV (R3),4(R3) 
oeeeeu 
38 819046 205726 TST CSP)¢ sPOP OFF TOP STACK ELEMENT, 
31 01086 e00704 8R Ors3 ’ REST I8 CLEARED OFF IN DIS 
32 ’ ROUTINE, 
33 ’ 
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1 ’ eSBTTL OLSPLAY COMMAND PARSER FOR O38, FSH, AND OXY 
2 ’ ; 
3 » ROUTINE TO PARSE COMMAND LINE FOR DIS, FSH AND THE DXY COMMANDOS, 
4 ' 
5 y CALLS 
6 , MOV @RETURN, TI(RS) x, 
7 , CLR T2CRS) * gFOR OLS ANDO FSH, MOV RS,T2(RS) 
8 , ’ POR OXY 
9 , JmMe OISPAR 
18 PRETURNG NEXT INSTRUCTION 
PS! , 
12 91010 OISPARs 
13 01810 012765 MOV #MAXD, T3CRS) sFOR LIMIT TESTS ON N AND 7 
800060" 
200062 
14 81016 004737 JSR PC, @#POLENT VENTER POLISH MODE AND CHECK 
8080086 
15 , FOR ENOUGH AREA TO WORK 
16 . i) WITH AND THAT FIRST TOKEN 
i7 ' 18 INDEED A LEFT PARENS, 
18 81822 9200006 +GETBUP GET BUFFER ADORESS FROM COMMAND 
19 r] ANO CHECK IT AGAINST THE 
ee , OEPINITION TABLE, 
21 81024 eeegees oSaVER2 ySAVE R2 ON STACK 
22 81026 001056" #TSTOXY sTEST FOR OXY COMMAND 
23 61038 ea80eeeG *CKCOMA sCHECK NEXT TOKEN EQUAL TO A COMMA 
24 01032 se0ceRG +GETBUP GET NEXT BUFFER ADORESS AND CHECK IT 
25 01034 8080086 oSAVER2 sSAVE IT ALSO 
26 81936 8000006 #CKCMGN CHECK NEXT TOKEN EQUAL TO A COMMA 
7 ’ ANO GET NUMERIC FROM COMMAND, 
28 81049 99080086 *INTST VINTEGERIZE RESULT AND TEST <27777, 
29 01092 98090086 oSAVINT s8AVE ONE 
3@ 81004 BeeeeeG oCKCMGN yCHECK NEXT TOKEN EQUAL TO A COMMA 
3: ’ AND GET NUMERIC FROM COMMAND, 
32 81046 8000006 wINTST PINTEGERIZE RESULT ANO TEST «#7777, 
33 8305@ 801052" ete WLEAVE POLISH MODE 
34 81052 906175 Jmp OTICRS) RETURN TO CALLER 
886856 
35 ’ 
36 01056 285765 TSTOXYs: TST T2cRS) OXY COMMAND? 
280068 
37 81062 e81002 BNE TsT1 sYESa RETURN IMMEDIATELY 
38 81064 g627046 ado #6,R8 SBYPASS ANOTHER BUFFER PROCESSING 
e0e8e6 
39 81678 G00134 TSTis POLRET pRETURN IN POLISH MODE 
ao ’ 
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: , eSBTTL SETUP DISPLAY TABLE 
, 
3 s ROUTINE TO SETUP A DISPLAY TABLE 
5 
s 5 CALLE 
6 ' mov SADORESS OF TABLE,R3 
7 ’ JSR PC, OSETUP 
. , R3 ON RETURN POINTS TO DSW IN TABLE 
, 
18 a1072 OSETUPS 
41 1972 Biseea mov 4(SP),R2 1GET BUFFER DESCRIPTOR ADORESS 
12 01076 af1213 mov (R2),(R3) yINITIAL START ADDRESS OF ARRAY 
13 81100 o16263 MOV END(R2),DENDY(R3) SEND OF ARRAY 
eeege2 
eeaged 
14 81186 seoeee a0D 2¢SP),(R3) yA0D IN STARTING CHANNEL «1 
15 01112 005323 DEC (R306 
16 81114 gase23 CLR (R36 yASSUME DIS OR FSH COMMAND 
17 G16 sd MoV @UCR3),(R3)0 RESET BUFFER PONTERS . 
; , 
18 1822 616223 MoV DELCR2),(R3)¢  sDELTA X DEFINED IN *CLRO® 
19 @1126 ae1go2 BNE DSET! 
20 a1130 eeu a7 gmp @WERRARG sZERO VALUE IS ILLEGAL HERE 
820000 
21 a1134 aisers DSETi: MOV ENO(R2),(R3) SCALCULATE NBR OF POINTS TO DISPLAY 
@ 
22 01140 161213 sus (R2),(R3) : 
23 81142 086213 ASR (R3) 
24 81144 912323 MOV (R3) 4, (R3)6 
25 @1146 012713 MoV #4, (R3) sSET DISPLAY ACTIVE 
@80001 
26 81152 900207 RETURN PRETURN TO CALLER 
27 ’ 
28 } ENTRY POINT FROM BASIC DURING IDLE LOOP IN ORDER TO REFRESH 
29 1 THE DISPLAY, 
38 ’ 
31 01154 OrSPLYs 
32 81154 a10246 mov R2,9(8P) pSAVE R2 ON THE STACK 
33 01156 012702, MoV #RESDIS,R2 JRESIDENT OISPLAY TABLE 
ea0e0 
34 @1162 004767 Isr PC,OSPLY }OISPLAY SOME POINTS 
8800040 at 
35 @1166 a126a2 Mov CSP) 6,R2 PRESTORE R2 
ie 01178 @a0207 RETURN yRETURN FROM BASIC’S IDLE LOOP 
, 


LPS4 Vol~o) RTo11 MACRO VMG29@9 foeOCTo74 O2103831 PAGE 13 


} ’ eSBTTL ACTUAL DISPLAY ROUTINE 
U 
3 » ROUTINE TO OISPLAY & SERIES OF POINTS ON THE CRT, 
4 ' 
5 9 CALLS 
6 ’ R2 POINTS TO DISPLAY TABLE 
7 ’ JSR PC,OSPLY 
8 ’ 
9 881172 OSPLYS 
1@ @1172 105762 TSTB OSW(R2) DISPLAY ON? 
oe0e14 
11 @1176 201506 BEG o1 gyNOt EXIT IMMEDIATELY 
12 01208 816262 MOV ONPTICR2),ONPTR(R2) pRESET NBR OF POINTS PER CALL 
@08016 
ee0e20 
13 @1206 Pb bate oSt CMP OPTY(R2),DENOY(R2) HAS Y BUFFER BEEN EXHAUSTED? 
00000 
a2ea24 
14 84214 181102 BHI o7 sYESt IGNORE POINT 
15 81216 817246 MOV @OPTY(R2),0(SP) ,GET NEXT Y VALUE 
900804 
to L222 211637 MOV (SP), OMLPOISY 
0800006 
17 @1226 B66262 ADD OISINC(R2),OPTY(R2) pBUMP TO NEXT Y 
eeoee2 
2000048 
18 81234 105762 TSTB8 OSx(R2) yX INCREMENT OR X BUFFER DATA? 
200015 
19 81240 G0;416 BEG be yX INCREMENT 
20 81242 B26262 cmp DPTX(R2),DENDX(R2) HAS X BUFFER BEEN EXHAUSTED? 
200006 
aooa2e 
21 01250 101018 BHI 09 nYE8t IGNORE POINT 
22 81252 817246 MOV @OPTX(R2),e(SP) sGET NEXT POINT 
eegede 
23 81256 011637 MOV (SP), @M#LPOISX 1X BUFFER DATA 
9000606 
24 BL26e Bo6262 400 OISINC(R2),DPTX(R2) sBUMP TO NEXT X 
200022 
080806 
25 01278 080427 BR 03 
26 81272 885726 D9 1st (SP) PVIGNORE POINT AND CLEAN UP STACK 
27 81274 Ba04S2 BR o7 
28 81276 B16246 Des mov DSTX(R2)e"(SP) yGET X INCREM AND OIVIDE BY 6, 
egeeee 
29 81302 16246 Mov OPTX(R2),0(SP) 
982006 
38 81386 d16246 MOV OISINC(R2),°(SP) sGET INCREM FROM Y AND USE TO 
eeeR22 
Bi O4312 162716 Dies sus #2,(S8P) ’ MODIFY X, 
eeeee2 
32 81316 ad34n4 BLE OM 
33 81328 266266 A00 OPTX(R2),2¢SP) 
260086 
oeoeee 
34 81326 280771 BR bie 
35 01330 085726 Dit: TST (SP)¢ 
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36 81332 Bb2062 400 CSP)o,DSTX(R2) UPDATE X AXIS 
eecoae 
37 G1336 age2te ASR (SP) 
38 81340 BB6216 asR (SP) 
39 81342 age2te ase (SP) 
4@ 81344 811637 Mov (SP),@MLPOISX yNOW TO THE X REGISTER 
2000086 
41 01352 822627 O33 cup (SP)¢,#7777 yX VALUE IN RANGE? 
807777 
42 81354 101020 BHI 012 yNOt IGNORE POINT THEN 
43 01356 22627 CMP (SP) eo, 87777 HOW ABOUT THE Y POINT? 
007777 
44 @1362 1201086 BHI 06 NOt INGORE POINT 
4S 01364 052737 81s #1,@MLPDISS sINTENSIFY DATA POINT 
00001 
eeoones 
46 @1372 105737 Dus TSTB8 O#LPOISS sWAIT FOR POINT TO GET UP THERE 
2000006 
47 91376 100375 BPL oa 
48 01400 aoa? Des oEC OLNPTS(R2) gALL POINTS UP FOR A COMPLETE SWEEP? 
00001 
49 @1484 883406 BLE o7 yYESs RESET COUNT AND RETURN 
5@ 81406 305362 vec ONPTR(R2) W"N® POINTS UP BEFORE RETURNING 
aeeg20 
Si , TO CALLER? 
52 01412 003275 BGT 05 NOt DO ANOTHER 
S53 @1414 e0207 Dis RETURN RETURN TO CALLER 
5&4 01416 805726 Dies TST (SP)¢ SIGNORE POINT ANDO CLEANUP STACK 
55 @1420 000767 8R 06 
S6 @1422 @16262 D7: MOV OSTY(R2),OPTYC(R2) sRESET OISPLAY PARAMETERS AFTER EACH 
eeogee 
eeoge4 
57 , SWEEP, 
58 81438 a16262 MOV OTNPTS(R2) /OLNPTS(R2) 
8200010 
eaeei2 
59 @1436 seeree TSTB OSX(R2) yIF X INCREMENT ACTIVE, SET X AXISeQ, 
88201 
6@ 31442 o01003 BNE 08 yNO 
61 81444 ga5a62 CLR OSTX¢(R2) 
ea00de 
62 21458 980207 RETURN sRETURN TO CALLER NOW 
63 81452 O16262 DS: MOV OSTX(R2),OPTX(R2) sRESET X POSITION 
eaeeoe 
eeeege 
“ @146e0 vacea7 RETURN WRETURN TO CALLER NOW 
6 ’ 
66 eoeeet? END ENO OF MOOULE 4 


LPS& VO19=2) 
SYMBOL TABLE 


ead 3 800018 
BUFRESS seenar 
CKRPARS eusave 
CLROL eea2e2R 
CLROG @0031a8R 
CLRO7? 88G350R 
DENDX.s 880026 
OISINCs 06822 
Orsi 080572R 
ONPTI = 020016 
OPTY ss 200004 
OSETUP @01072R 
OSTX ss 880062 
OSX 8 000015 
OXY ee724R 


On 021330R 
os @01350R 
06 GG148ER 
09 oo1e7ar 


ERBUF = sennne 
ERRPOLs senene 
FAC! s 900040 
FPS @805G0R 
GET 8 698006 
GETOATS eaneee 
GETVARS tenane 
INTST 8 venene 
LPOISYs senwen 
MAXC 8880e2R 
NARRAYS weenen 
pc 8%000007 
Ps = 177776 
PUT = gee084 
RESOIS ageaeeR 
RETURN® 900207 
ROSAVES BG0004 
R2 8%0e0002 
R3SAVEs 900052 
SAVER2s senene 
sp 85008086 
STODATS snewne 
TABLE 8 enenen 
TST1 @61070R 
13 8 088062 
SIR B aereen 
eCOMMAS eenene 


» 468, 920080 
881462 
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BCDON 8 ennene G BEG == egeee0 
6 CKCMGN® eeeanen G CKCOMAS wawenn G 
G CLRO OOBGEORG CLRO® 000176R 
CLRO2 g80254R CLROS) «= BBB2SER 
CLROS  @884G2R CLRDOG §=6gee4eeR 
CONBCOs suneee G DEL «== geee12 
DENOY & goag24u ors BeeSS4RG 
DISPAR @a1910R DISPLY @81150RG 
ors3 @ee620R OLNPTSs g00012 
ONPTR s 280020 OPTX #8 820006 
ORSNPTS anenee G ORSON @ saenee G 
OSET? 803134R OSPLY 901172R 
OSTY s 990000 OSw = 300014 
OTNPTSs 980018 Oxy 880700RG 
O1 @O14G1GR 018 @81416R 
b12 0@1312R o2 @a1276R 
oa 001372kR 0S 001206R 
07 O81422R 08 ea14sar 
END 8 800002 ENTERPS sennee G 
6 ERNOR @ ERRARGS eanene G 


6 ERRSYNS 
Fac2 28 
FSH 


EVAL & eeneee G 
FLOAT & aeanne G 
Fshy G8G0G0R 
GETADOS GETBUPS sennee G 
GETNUMS GETV & aeeeen G 
MISTONS eaeane G6 INT & wenmen G 
LPOISSs senren G LPOISXs sneeene G 


aoog 


LPSIP = waenne G LPSIVAS anawane G 
MAXO @e0ceaR MAXP O88G6GR 

G NONRES 900030R NUMSGNS® eaneen G 
POLENTS sennne G POLRETS 080134 
PUSHRE @80G66R PUSHE O8aa7aR 
PUTO 88OS512RG REGSAVS aenene G 
RESTORE anenae G RESTR2e asenen G 
RTSON 8 auneen G RO #x000000 
Ri aX000001 RISAVER Oa004u6 
R2SAVEs 000050 R3 8%800083 
Ro sxeeoega RS 84900865 

6 SAVFACS sannee G SAVINTS annane G 
SSi1SAV= 990024 SS2SaVe 000026 

G STORXTs sannen G STOVARS weenee G 

6 TRAFAC @08454R TSTOXY @01856R 
T1 = 000056 T2 = 080068 
VARSAVS 908022 Sovr wenan G 

G SMLR © ennene G SPOLSHa sennew G 


6 eLPAR © eanene G sRPAR w wannen G 


eee 
eet 


ERRORS DETECTED: @ 
FREE CORES 17734, WORDS 


LPSG,LPsaLPsa 


PERPAR == PERIP 


C@e4n~TMNEWN& 


33 880008 


37 eeegne 


4e 900000 
47 200000 
48 200000 
49 b00008 


53 oeeeae 
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CHANGE WITHOUT NOTICE ANO SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DEC*°S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS May 
OTHERWISE BE PROVIDED IN WRITING BY DEC, 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC, 


ee ee ene ee ee ne ee ne ee we we ee we te ee we 


THE CONOITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEMBLY 
OF THE FUNCTION TABLE MOOULE "FTBL,MAC", 

TO OBTAIN THE DESIRED CONDITIONAL DEFINITION(S), 

REMOVE (USING AN EDITOR) THE 


9 SEMI@COLON APPEARING BEFORE THE CONDITIONAL, 
pSDISKs@ DEFINE FOR RT#=11 
elFNDF SOTSK 
SSTRNGSO #00 NOT DEFINE FOR PTS BASIC WITHOUT 
ISTRINGS,* DEFINED FOR PTS V@i WITH STRINGS 
oENOC 5 
SLPSaQ OEFINE FOR LPS 
oIFOF SLPS 
+SV30 JOEFINE FOR LPS WITH VECTORS STARTING 
’ ’ AT 380, DEFAULT SETTING IS VECTORS AT 
’ ] 340, SET SV = ANY OTHER DISPLACEMENT IF 
’ ' VECTORS START AT DISPLACEMENTS 
, ’ OTHER THAN @ OR 4@ FROM 
’ ’ VECTOR 308 
Sa0cee VINCLUDE A/D ROUTINES, 
SCLKa@ PINCLUDE CLOCK ROUTINES, 
SOrOse VINCLUDE DIGITAL I0 ROUTINES 
SOISa@ VINCLUDE DISPLAY ROUTINES, 
oENDC ySLPs 
U 
s 
SVT118@ 1FOR GT4@ (GT44) 
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58 
so 
68 
61 
62 
64 
65 
66 
67 
68 
69 
78 
7 
72 
73 
74 
75 


116 
117 
118 


120 
121 


123 
124 
125 
126 
127 
128 
129 
13@ 
a3t 
132 
133 
134 
135 
136 
137 
138 
139 
14a 
141 
142 
143 
{aa 
145 
14e 
147 
148 
149 
158 
151 
152 
153 
156 
155 
156 
187 
156 
199 
160 
161 
162 
163 


eIFOF = SVTI4 
SCLOCKs@ aFOR SYSTEM CLOCK (KWEIL) 
sENOC 


€or 
e TITLE ST6 V@1~981 BASIC @ GT ROOT MODULE 


OEC = 11 = LePGB © A @ LA BASIC KERNEL VO20Q1 
GTB,MAC TAPE 1 OF 4 


THE INFORMATION IN THIS LISTING IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING, 


THIS SOFTWARE IS FURNISHED TO THE PURCHASER UNDER A LICENSE 

FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 

INCLUSION OF DIGITAL*S COPYRIGHT NOTICE) ONLY FOR USE IN 

etree EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY 
Ale 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT I8 NOT 
SUPPLIED BY DIGITAL, 


COPYRIGHT (C) 1973,1974, BY DIGITAL EQUIPMENT CORPORATION, 


ee ee ee ee we 


AUTHORS OR, STEPHEN R, ALPERT AUGUST 1973 
vIFOF © S0ISK 

eSBTTL GLOBALS, EQUATES 

sENOC 


SLPSsO 9 TAKEN CARE OF BY GTNLPS 
eIFOF =6SLPS 

eGLOBL = NARRAY, TABLE, FLOAT 

eENDC 

eIFNOF = =6SOEPTH 

SOEPTHE1Q, 9 184 CALLS DEFAULT 
oe ENOC 


» GLOBAL FROM BASICH OR BASICL FOR INTERRUPT 
2GLOBL USRAREA 


y GLOBALS FROM BASICL 


+GLOBL OSTOP,DISEND, ACTENO, BEG 
sGLOBL DCRASH,WO1,W02,0LDMOD 
eGLOBL ,COMMA,,LPAR, »RPARy EOL 
sGLOBL EVAL, ERRSYN, ERRARG, INT 
sGLOBL GETVAR,STOVAR 

+GLOBL NUMOUT, MSG 

sIFOF © SOISK 

sGLOBL IGNORE 

sENOC 


y GLOBALS FROM FPMP 
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eGLOBL SIR, SMLR, SOVR, SADR, SSBR, SERVEC 


1 GLOBALS FOR INTER*MODULE COMMUNICATION 
»GLOBL NSTSK, INSRTF,TAG1,ACTST,DISEND 

»GLOBL SCAL,VECT, ROOT, APNT, STAT, TEXT 

eGLOBL ON, OFF,NOSC, TAGEND, AOSTK, BUFTST 

+GLOBL SUBP,ESUB,LPEN, TRAK, ERAS, CONTA, CKEOL 
sGLOBL INIT, INITA,DSTP, STOPA,CONT, XGRA, YGRA, AGET, APUT 
sGLOBL FIGR,FPUT,FIX@,FIXSP,FIX 

»GLOBL OPC, 0SR,DISX,DISY,GTVECT 

eIFOF = SCLOCK 

+GLOBL TIME, TIMR 

sENOC 

eIFOF © SDISK 

+GLOBL SAV2U,SAVERT, CLOSALL, FREEG, FREE 

vENOC 

+GLOBL SC,USC, TAGSRH,SCL,X,SCL,Y, ABS, F 


» EQUATES FROM BASIC USER AREA 


aeeeee VARSAVS22 
eeeeed SS1SAVE24 
@ee0e26 SS2SAVz26 
260040 Fact aaa 
geeaue FaCesu2 
008010 ARRAYS810 
oeceie HIFREES12 
eoeats LOFREEsta 
O8oe44 ROSAVERBGY ) FOR FRPSAV, FPPRES 
THE FOLLOWING DEFINITION PAIR IS LEGITIMATE (IE, NOT 
YIN THE VECTOR DEFINITION MODULE ["PERVEC")) SINCE THEY 
ARE FIXEO, THEY CANNOT FLOAT, 
oe IFOP SCLOCK 
900108 LKV=100 sCLOCK INTERRUPT AORESS, 
177546 LKSB177546 CLOCK STATUS REGISTER 


eENOC rSCLOCK 


, THE FOLLOWING I$ TO INSURE THAT THE ORIGINAL 

’ STACK POINTER DOESN°T CLOBBER ANYTHING IMPORTANT 
a TFOF SOISK 
eASECT 
de 
«WORD OCRASH+4ea y REPLACE 2400@ IN BASIC 
oCSECT 
sENOC 


aT FOF SOISK 


ao 


GT 


OOneuNeune 


10 


GTB 
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o0eee4 


80086 
80006 


eoete 
86016 


00829 
aee22 


20026 
@ad26 


00032 
08036 
26048 
20040 


eeoGa 
28046 


eaese 


eeas4 
20056 


eeceeo 
eoeeet 
eeegne 
e02oe3 
8e2e04 
880005 
080006 
000007 


177776 
280207 
000134 
882200 
080348 


16¢080 
173408 


@16546 
e2eeqae 
000134 


004767 
0880086 
085765 
oeegue 
001001 
000134 
000167 
0000006 


@12467 
eeeg2e 
010467 
80ee20 
200134 


005367 
eoea18 
003402 
@16704 
200004 
000134 


880008 
800008 


SAVINTS 


INTEGRE 


INTEG@s 


’ 
PLOOPs 


ELOOP: 


ELOOP@s 


LOOPCTs 
LPAORS 


eSBTTL ASSIGNMENTS 
eENOC 
AeeneneteaenarenenerennatannenenaennenNe 


9 REGISTER ASSIGNMENTS 


ROSX8 

Riaz 

R2ax2 

R38x3 

Rasxs 

RSsxs 

SPaXo 

PCax7 

9 MISCELLANEOUS ASSIGNMENTS 
PSnne2 y PROCESSOR STATUS WORD 
RETURNS207 y 3 RTS PC 
POLRETS134 ym SMP @O(RG)e 
PR4S200 » PRIORITY & 
PRIB340 y PRIORITY 7 
OJMPs169000 y DISPLAY JMP 


SOINTS1734Q@ ©»: STOP OISPLAY AND INTERRUPT 11 
eIFOF © SOI8K 
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eSBTTL MISCELLANEOUS ROUTINES 

ENOC 
eSorrrTTTTerTTTTTTTTTreri Titi irri y tT 
» MISCELLANEOUS ROUTINES 


MOV FAC2(RS),e(8P) 3 SAVE {eWORD INTEGER 
POLRET 9 8 JUMP @(RO)e 
RAARAAEARARN EERE AAA AAERRAEE RARER AREA 

y ROUTINE TO INTEGERIZE THE FAC TO A SINGLE WORD 


y INTEGER, WILL CRASH IF ARGUMENT TOO LARGE 
y RESULT ALSO IN FAC, DESTROYS RO 


JSR PC,INT 1 GO TO *INT® OF BASICL 

Tst FACI(RS) 9 DID WE SUCCEED? 

BNE INTEGO 1 BR IF > 32767 

POLRET 

JMP ERRARG y ARGUMENT ERROR, TOO LARGE 


RAARAARAAAEAAARRAREAAREAERATRARERNAR REA 


MOV CRG) +, LOOPCT 9 GET COUNT, JNOT REENTRANT] 
MOV Ra, LPAOR y SAVE LOOP ADDRESS 

POLRET 

oec Looper » DECREMENT LOOP COUNT 

BLE €L00Pa » BR IF DONE 

MOV LPAOR,RU 9 GET LOOP ADORESS 

POLRET 

pa ; ehh oh ee thom 


vi) 


A 
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3 } RHAAAAARARARERERERARARARERERER ERE R EEE 
3 e00ee0 SETNECS 
4 980060 porary CLR OPARGF 9 CLEAR OPTIONAL ARG, FLAG 
@ 
S @ee0es 000134 POLRET 
6 280006 SETOPTS 
7 80066 010667 MoV SP, OPARGF 9 SET OPTIONAL ARG, FLAG 
eeeoae 
eeeo72 220134 POLRET 
i 0@074 @889G0 OPARGF:s ,WORD @ 9 OPTIONAL ARGUMENT FLAG (83 IF OPT) 
7 , AARAARERARAERARAERARAERERRAAREERARARHAE 
1 
14 » ROUTINE TO CK "," AND GET NEXT ARGUMENT INTO THE FAC 
1s » IF OPTIONAL ARGUMENT FLAG I$ SET AND ARGUMENT I$ NOT 
16 1 PRESENT, @ WILL BE RETURNED, 
17 y BECAUSE OF "EVAL" FROM BASICL, USES ALL REGISTERS 
18 1 ON ENTRY? Ri MUST POINT TO WHERE COMMA SHOULD BE, 
19 y see NOTE THAT RG HERE IS POLISH PC AND NOT THE 
oF ’ STACK SIZE THAT EVAL EXPECTS13 
22 80076 GETNUME 
23 80076 112102 Move (R1)0,R2 9 GET NEXT TOKEN? 
24 80100 120227 cMPB R2,#,COMMA 9 18 IT A COMMA? 
eee00G 
25 06104 go1414 BEQ GETONE y YESe GET A NUMBER 
26 80186 gente? TST OP ARGF } NOw WAS ARG, OPTIONAL? 
17776 
27 08112 81415 BEG GETSYN 9 NO# ERROR 
28 00114 120227 CMPB R2,#,RPAR » YESe 18 IT a)" ? 
eeeeeaG 
29 e0128 aaio12 BNE GETSYN y NO» ERROR 
38 08122 805301 DEC Rt § YESe POINT AT IT 
31 08124 9@5a65 ZERNUM: CLR FACi(RS) 
eeeade 
32 08138 285065 CLR Face2¢rs) 9 PUT @ INTO FAC 
eeeeue 
33 08134 a00134 POLRET 
34 88136 GETONE? 
35 80136 004767 gsr PC, EVAL y EVALUATE EXPRESSION 
0e0008G 
36 08142 103403 acs GETARG 9 ERROR TF STRING 
37 00144 B00134 POLRET 
38 Q0146 080167 GETSYN: JMP ERRSYN ) SYNTAX ERROR 
eo0eeeG 
39 80152 000167 GETARGs JMP ERRARG y ARGUMENT ERROR 
eeaaees 
ae 
at , RAEARARERAARARAAAKEARRARRRARREEEREHER ERED 
42 
43 ) IMMEDIATE POLISH FOR ONE ROUTINE 
4g 
45 20156 ENTERPS 
46 80156 012704 Mov #RETURP, RU 
000166" 
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47 0162 017687 MoV @(SP),PC 1 GO TO ROUTINE 
200000 
4B B@166 BABI 7O°RETURPS ,+2 y RETURN HERE FROM ROUTINE 
49 @8178 262716 aod #2, (SP) 9 ADJUST FOR POLRET 
e00002 
= @0174 980207 RETURN 
1 
Se , REAAREKEARARAAARAAREEAEAARERAEARAEREREE 
53 
54 B0176 NEGSTKt 
SS @0176 @62716 aod #108008, (SP) ) NEGATE STACK 
180000 
as @0202 000134 POLRET 
58 ! RERRARERAAAAARAERARAAEERAAERRERERRAKE RAD 
59 
68 y ROUTINE TO TEST IF BUFFER ALLOCATED 
ot 
62 @8204 012746 BUFPOL: MOV #POLENT,#(SP) » FAKE JSR PC 
eee27a° 
63 00210 BUFTST! 
64 88218 005767 1st OCRASH 1 BUFFER ALLOCATED? 
810376 
65 80214 eoiuou BEG BUFTO + NOe 00 IT 
66 88216 026727 CMP DISEND, Wat y INIT BEEN DONE? 
- 0R@414 
477777 
67 g@224 aAtone BNE oto » YESe BRANCH 
68 88226 004767 BUFTOs JSR PC,INITA y INIT ANO ALLOCATE BUFFER 
ebe252 
69 00232 200207 RETURN 
78 
71 0@234 PUSHES 
72 08234 w1eS46 Mov FaC2(RS),@(SP) 
eageu2 
73 80240 016546 Mov FACI(RS),/=(SP) 4 PUSH FAC TO STACK 
eeoa4e 
74 08244 aoa134 POLRET 
75 80246 PUSHES 
76 08246 805006 CLR 2(SP) 
77 @@25@ 2127406 MOV #40208,°(SP) p PUT 1,0 ON STACK 
e4a200 
78 82254 900134 POLRET 
79 80256 POPE 
68 AB256 212665 MoV (SP)o,FACI(RS) 
e2ooua 
81 80262 812665 MOV (SP)¢,FAC2(RS) 49 POP STACK TO FAC 
aeoese 
82 80266 200134 POLRET 


% 
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1 , AREAAHTRAAARAARAERERARRARRERAAEARERAHAED 
2 
3 » ROUTINE TO START POLISH AND CHECK POR LEFT PAREN, 
4 
S eve27e POLENTS 
6 e@e278 B12006 MoV (SP) o,RO » SET UP POLISH PC 
7 e0@272 ouaee? CLR OP ARGF 1 SET ARG, NECESSARY FLAG 
177576 
8 @88276 122127 CKLPAR: CMPB (RI) o, BL PAR y FIRST TOKEN A "(* 2 
eeeoeas 
9 gep3e2 a¢1001 BNE CKLSYN » NOe ERROR 
1@ 883e4 020336 POLRET 
11 88386 802167 CKLSYN: JUMP ERRSYN § SYNTAX ERROR 
geeeers 
i2 
13 90312 QIKPous 
14 80312 Gi26e0 MOV CSP) o,R4 » SET UP POLISH PC 
15 80314 900134 POLRET 5 AND ENTER POLISH MODE 
16 
17 , RRARARAAARAAARRERAEATARREREARRERHRARAEEN 
18 
19 » GENERAL EXIT ROUTINE WHICH CHECKS FOR RIGHT PAREN 
- » CALLED BY ¢ UMP CKRPAR 
1 
22 80316 CKRPARY 
23 e316 122127 cope CRI) o, 8 RPAR 9 A RIGHT PAREN? 
eeoeees 
24 a0322 o819040 BNE CKRPA® » BR IF NOT 
25 60324 CKEOLS 
26 60320 121127 * CMPB (R1), 8, EOL » AND END@OP LINE? 
eeceoes 
27 @033@ 961901 BNE CKRPAS y NO ERROR 
26 @0332 GETOUT: : 
29 eIFOF © SDISK 
38 18st (SP)6 y CLEAN STACK 
3 MOV (SP) 4,R5 
32 MOV (8P)¢,Ra 
33 MoV (8P)o,R4 ) RESTORE BASIC REGISTERS 
34 JMP IGNORE p EXIT THRU BASICR 
35 sENDC 
36 alFNOF = SOTSK 
37 80332 eee207 RETURN 
38 oENOC 
39 80334 020167 CKRPAG! JMP ERRSYN » SYNTAX ERROR 
evogees 
ao 
a , RERAARARARRAREEARERRAARAHERARERARNRERARE 
a2 
a3 » ROUTINE TO SKIP AN ARGUMENT IN CALLING SEQUENCE 
aa 9 RL POINTS TO FIRST TOKEN OF ARGUMENT AND ROUTINE LS. 
4s } SEARCHES FOR & ",COMMA", EXIT POINTING TO *,* C Ye 
a6 a 
47 8340 SKPARG! 
G8 0@34a B10046 mov RO,=(SP) 1 SAVE RO ON STK oF 
49 80342 aeSee0 CLR Re } ASSUME NO PARENTHESES a 
S@ @0344 v@570@ SKPA3: TST Re y ANY PARENTHESES YET? : 
51 00346 o01003 BNE SKPAY » YES* BRANCH i 
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S2 08350 121127 CMPB (R11), a, COMMA 9 DIO WE FINO A COMMA? 
2000006 
S53 08354 ab1u16 BEQ SKPAQ y YES= EXIT 
S54 00356 121127 SKPAG: CMPB (RI), Mo LPAR pa ncne 
eeeeeeG : 
SS 00362 e01¢01 BNE SKPAY 9 NO KEEP LOOKING 
So 80364 985200 INC RO y YESe INCREMENT NEST DEPTH 
57 @0366 121127 SKPAL$ CMPB (RL), #@eRPAR pA RM? 
eoeeoes 
S8 80372 o810e2 BNE SKPA2 9 NO= BRANCH 
59 80374 005300 EC RO 9 DECREMENT NEST COUNT 
60 80376 100405 BMT SKPAQ 9 BRANCH IF EXTRA ")® 
61 08408 122127 SKPA2s CMPB CR1)o,#, EOL 9 ENO OF LINE ? 
0000086 
62 @0404 201357 BNE SKPA3 9 NOe LOOK SOME MORE 
63 20406 900167 JMP ERRSYN 1 YESe ERROR 
8000006 
64 @8412 212628 SKPAG: MOV (SP)o,RO s RESTORE RO 
65 804614 900134 POLRET y RETURN IN POLISH 
66 
67 
68 ’ POLISH REGISTER SAVE ANO RESTORE 
69 y FPPSAV CALLED BY JSR RY 
78 ) FPPRES CALLED IN POLISH MODE 
11 
72 09416 FPPSAVS 
73 00416 62705 400 WROSAVE,RS 9 POINT TO SAVE AREA 
edequu 
74 @8422 210025 MOV ROACRS)¢ 
75 89024 010125 MOV Ris (RS)> 
76 @0426 o10225 MOV R2,(RS)o 
77 08430 010325 Mov R3,(RS)¢ 
78 80832 812625 MOV = (SP) 6, (R5S)% 
79 00434 162785 sua BROSAVES12,R5 
200056 
80 88440 200134 POLRET y ENTER POLISH MODE 
bt 
82 Beuu2 FPPRES? 
83 @0442 862705 aod MROSAVE,RS 
Geeeus 
84 80446 B125200 MOV CRS) oy RO 
8S 20450 o12501 MOV CRS)o,R4 
86 98452 a125a2 MoV CRS) o,R2 
87 a04S4 a12533 MOV (RS) ooR3 
88 08456 012546 Mov (RS) o,0(SP) 
89 2046 162705 sua WROSAVES12,R5 
000056 
7 eo4o4 goe2e4 RTS RG y RETURN IN EXEC MODE 


92 sIFOF © SOISK - 


Ib 
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ete DONTE We 


euneo 


6T8 


at 
ue 


43 
4a 


as 
4e 
a7 
48 
49 
50 
St 
Se 
53 
54 


80466 
20466 


Beary 
Ba476 


00504 
88506 
eesie 
ee512 
80516 
20520 
80522 
ees24 
88526 
00534 
00540 
gesua 
8aS46 
00550 
eesse 


8aSS6 


86564 


8es7e 
oes72 


8aS76 
oeee2 


80606 
80618 


V@ted1 BASIC = GT ROOT 


26614 
88616 


@8622 
@8626 
88632 
00634 
28636 


00648 
00642 


eSBTTL STOP OSSPLAY INTERRUPT ROUTINE 
oENOC 


RARAAAAAHARAEAAERRERARARARERHERANEH EERE 
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} ROUTINE TO PROCESS "SDINT® FROM DPU 
) CASE is CALL TO SUBPICTURE, THEN CONTENTS OF x 
} CIN DPC) ARE GREATER THAN Xe2 
} X IS THE ADDRESS OF THE WORD AFTER "SDINT* 
} CASE 22 EXIT FROM SUBP, THEN CONTENTS OF X = Q 
} CASE 33 ADD ON AT END OF FILE, THEN 
’ CONTENTS OF X «< Xe2 
DISINTS 
022767 CMP sOSTOP,0PC ) DID WE STOP IN TIGHT LooP? 
810610" 
a00e00G 
oe1ee4 BNE orse ) NO# CONTINUE 
012767 mov SDJMP,OSTOPe2 7 RESTORE FILE 
160000 
818102 
oepece ATI ) YES= DON*T RESTART IT, EXIT 
010946 DI8@s MOV RO, = (SP) 1 SAVE RO 
e1e2d6 Mov R2,°(SP) 1 SAVE R2 
016700 Mov OPC, Re ) WHERE DID DPU STOP? 
oeeeees 
012002 mov (RO) +,R2 ) R2 CONTAINS CONTENTS OF x 
} R@ CONTAINS Xe2 
eei14i4 BEQ suee 1} BR IF CASE 29 END OF SUBPICTURE 
e20002 CMP RO,R2 1} COMPARE Xe2 WITH (X) 
101022 BHI suB2 1 BR IF CASE 34 ADD TO OPY FILE 
862767 ty) #2, ADSTK ) INCREMENT DPY ADR STK PTR 
eeoeee 
Be2ez6 
810077 Mov RQ, PADSTK } STORE Xe2 IN STACK 
eave22 
811967 mov (RQ), PC y START DPC GOING IN SUBPICTURE 
0800086 
@izea2 SuUBis MOY (SP)o,R2 ) RESTORE R2 
012600 MOV (SP)6,RO } RESTORE RG 
eeease RTI 1 AND RETURN FROM INTERRUPT 
017700 suse: MOV @ADSTK RO 1 PUT Xe2 INTO RO 
asesou 
162767 sua #2, ADSTK ) DECREMENT OPY ADR STK PTR 
eveeee 
280576 
014907 mov ©(R@),0PC 1 PUT (X) INTO OPC 
eeoeaes 
000765 aR suBi AND EXIT 
016740 SUB2t MOV WO2,=(RO) INSERT WORD 2 
080146 
016740 mov WOt, 0 (RO) INSERT WORD 3 
000136 
016720 mov DISEND, RO } GET NEW END OF DPY FILE +2 
000030 
ees74a Tst =(R@) } POINT AT ACTUAL END 
210067 Mav R@, ACTENO STORE IT 
eeoee4 


005748 
810867 
eo0e14 
005067 
eecece 
884767 
862236 
800744 


800008 INSRTFs 
177777 DISENOSs 
@8@000 ACTENOs 
@@0008 ACTSTs 


MOO 
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TST #(R@) y POINT TO NEW DISEND 
MOV RB, OISEND y STORE IT 
CLR INSRTF » CLEAR INSERT PENDING FLAG 
JSR PC, INITS y RESUME THE DPU 
BR Subs p ANDO EXIT 
WORD O y INSERT PENDING FLAG (WHEN SET) 
eWORD #1 y POINTER TO NEW SLOT IN DPY FILE 
aWORO O 9 POINTS TO END OF RUNNING OPY FILE 
WORD @ y LO#END OF DPY FILE 
3 PRECEDED By 1 OR 2 WORDS 
y (2 IF SOISK DEFINED) 
a TFOF SOISK 


5 / 
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4 serTk INSERTION INTO DPY FILE ROUTINES 
N 
3 , deaewcaadedcadesssdaaasensaadadengsesad 
4 
5 ) ROUTINE TO INSERT WORDS INTO OPY FILE, THE FIRST TWO WORDS 
6 } ARE SAVED IN WO%, ANO WO2, TO OVERLAY THE LAST TWO ENTRIES 
7 1 IN THE RUNNING DISPLAY FILE, 
8 } CALLED BYs JSR PC,PUTWO 
9 1 WORD TO BE INSERTED MUST BE IN Re 
18 
11 
42 80644 NEWPUTS 
13 @@644 a95¢67 cLR OLDMOD ) SO NEXT SGM WILL BE INSERTED 
ov1ii4 
14 e0050 PUTWOE 
15 eg65e g1e2d6 MOV R2,0(8P) SAVE R2 ON STK 
16 @@e52 o12782 PUTS! MOV ADISEND, R2 } GET CURRENT ENO OF OPY FILE 
200636" 
17 0656 B26712 cup DCRASH, (R2) ) END OF DPY FILE 
807730 
18 aa6e2 123003 BHIS = PUTT 1) NO@ CONTINUE 
DFOERR: 
1944080 TRAP 
sIFNOF  SLONGER 
104 sASCIT /0FO/ 
106 
117 
eENDC : 
vIFDF — SLONGER 
cASCIE /DISPLAY FILE OVERFLOWS 
eENDC 
eee .BYTE @ 
EVEN 
29 aGe72 085767 PUTTS TST INSRTF 1 38 THERE AN INSERT PENOING? 
; 177736 
30 09676 201375 BNE put7 } YESe WAIT UNTIL IT IS FREE 
31 98708 a26712 PUTos CHP ACTEND,y (R2) ) HAVE WE INSERTED ANY WORDS YET? 
177734 
32 00704 101907 BHI Puts 1 NO= STORE IN WO4 
33 ga706 201411 BEG put2 1) YESe ONE® STORE IN WO2 
34 ge710 10072 mov RQ, e¢(R2) } MORE THAN TWO, PUT IT IN LINE, 
ovegee 
35 9e714 ae27i2 PUT3s ADD #2,(R2) 1 INCREMENT DPY END PTR 
eeege 
36 98728 a12002 MOV (SP) o,R2 y RESTORE R2 
37 e722 oee207 RETURN » EXIT 
38 90724 910067 PUTIs MOV RO,nOt y STORE IN WORD 1 
oege1e 
39 08730 000771 BR puT3 AND EXIT 
4@ e732 @10067 PUT2: MOY RO, Woz 4 STORE IN WORD 2 
evoga4 
41 00736 Bee7e6 eR PUTS » AND EXIT 
a2 
43 @@74@ o@eeae WO1s WORD @ 1 FIRST TEMPORARY WORD 
44 ge742 ageeee WO2t =, WORD @ 1 SECOND TEMPORARY WORD FOR DPY FILE 
45 
cy) , RAERAAAAARARRERRAARRARRAAAAAARARRAARE EE 
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47 

ua 9 ROUTINE TO SET UP THE INSERT INTO THE OPY FILE, 

ag 9 THIS ROUTINE WILL BE CALLED BY EACH ROUTINE AFTER IT 

58 9 HAS DONE ALL OF ITS *PUTWOR, IT IS USUALLY FOLLOWED BY 

He y & JUMP TO CKRPAR, CALLED BY: JSR PC, INSERT 

S53 ga744 INSERTS 

$4 88744 895777 TST ONSTSK 9 WOW ARE WE DOING ON SUBP? 
e004u42 

$5 @075@ 8@1015 BNE INSXIT ) NOT @© STILL IN A SUBP 

S6 88752 012708 MOV WOUMP,RO » PUT DJMP INTO RO 
160000 

57 80756 es JSR PC,PUTWD 9 STORE AT END OF DPY FILE : 
177066 

58 ae762 tienes MOV ACTEND,R2 » GET LOOP ADORESS 
1776 

59 80766 011200 MOV (R2),RO » KEEP THE POINTER TOO 

6@ 80770 oenret JSR PC, PUTWO 9 STORE IT AT NEW END OF OPY FILE 
177654 

61 @a774 o1eee! MOV SP, INSRTF 9 SET INSERT PENDING FLAG 
177634 

62 81000 eee “OV #SOINT,@(R2) » PUT SDINT AT OLD END 
173408 

63 @1004 80207 INSXITs RETURN y= RTS PC 

64 eIFOF = =©6S0ISK 


5% 


GTB 


GTB 
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@1146 
G1146 


84158 


O15) 
@1152 


1153 


@1154 
81160 
@tLo6d 
81166 
01170 
@1174 
1200 
01206 
a1218 
a12e14 
@1222 
1220 
1230 
12346 
@1236 
@1240 


@i2aa 


O84767 
177172 
008136° 
@20086" 
beegeo? 
880066" 
080076" 
280006° 
e800e0° 
881032° 
802002 
20167 
20000086 
816602 
e0eea2 
803773 
004767 
280342 
205700 
O01367 
12700 
173008 
@04767 
177562 
016760 
177544 
062708 
220010 
12602 
011646 
818266 
e8e00e 
eo1ee2 
885020 
062767 
oeege2 
e80272 
@22767 
ee1aie? 
880264 
181407 
@160777 
177502 
eee2sa 
062767 
806002 
177072 
eeeus3 


104400 


ee 
Vee 
Liao 


204767 
177078 
Q04767 
000230 
885700 
@81722 
®160008 
177774 
004767 
177458 
Q160777 
177432 
800238 
812600 
004767 
1774034 
016767 
177416 
Geg2i4 
o25000 
004767 
177414 
OO4767 
177510 
61260280 
Beleae 
804767 
177406 
@a0167 
177006 


SUBPy 


SUBP {3 
SUBPO: 


NSTERR¢ 


SUBP2t 


SUBP32 


eSBTTL 
oENOE 


"SUBP" ROUTINE 


RARAEAARAAAAAARERERAREARARRERRAREREREED 


» ROUTINE TO HANOLES 
CALL "SUBP" (T (,71)) 


JSR 


BGE 
JMP 


MOV 


BLE 
JSR 


T8T 
BNE 
MOV 
JSR 
MOV 
400 
MOV 
MOV 
MOV 
BNE 


CLR 
a00 


CMP 


BLOs 
MOV 


400 


TRAP 
e TFNOF 
ASCII 


sENOC 
»IFOF 
ASCII 
eENOC 
BYTE 
EVEN 
JSR 
JSR 
TST 
BEG 
MOV 
gsr 
mov 
MOV 
JSR 
Mov 
CLR 
JSR 
JSR 
Mov 
BNE 
JsR 
gmp 


a lFOF 


PC, BUFPOL 


+GETONE 
+INTEGR 
*#SAVINT 
*SETOPT 
*GETNUM 
+INTEGR 
oSAVINT 
ote 
suePe 
ERRARG 


2(8P),R2 


SUBP) 
PC, TAGSRH 


Re 

SUBP{ 
WSOINT,RO 
PC,PUTWO 
OISEND,RO 
#10,R8 
(SP)o,R2 
(SP) ,0(SP) 
R2,2¢8P) 
SuBP2 


(ROI¢ 
#2,NSTSK 


#NSTSK,NSTSK 


NSTERR 
OISEND, ONSTSK 


#2,01SEND 


SUBP3 


~~ we we www we 


ENTER POLISH AND CHECK "(* 


GET FIRST PARAMETER 
INTEGERIZE TO 32767 OR LESS 
SAVE INTEGER ON STACK 

Ti 18 OPTIONAL ARGUMENT 

CHK "," AND GET Ti (ELSE 2) 
INTEGERIZE YO 32767 OR LESS 
SAVE Ti ON THE STACK 

ANO EXIT FROM POLISH MODE 
BR IF T1 >a @ 

ARGUMENT ERROR 


MOVE T TO R2 


BR IF T <2 @ 
LOOK FOR T IN FILE, BETTER NOT FIND IT 


y ERRORe TAG ALREADY IN USE 


' 
’ 
U 


PUT IN SOINT FOR SUBP CALL 


AOR OF THE SUBP 

PUT TL INTO R2 

MOVE 7 DOWN ONE PLACE 
PUT Ti BACK ON STK 

BR IF 2 PARAMETER CASE 


ZERO WORD BEFORE SUBP 
ADD 2 TO CALL SUBP PTR 


ARE WE POINTING TO OURSELVES? 


YESs OVERFLOW STACK DEPTH 
NO= SAVE PTR FOR REST=OF=FILE PTR 


BUMP PTR PAST THAT WORD 


CONTINUE 
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@ 
SLONGER 
7INS/ 


SLONGER 


/IMPROPERLY NESTED SUBPICTURES/ 


PC,PUTWD 

PC, TAGSRH 

Re 

SUBP 
#4(RO)/RO 
PC,PUTWD 
DISEND, @TAGEND 
(SP)%,RO 
PC,PUTWD 
DISEND, TAGEND 
Re 

PC,NEWPUT 

PC, INSERT 
(SP)4,RO 

106 

PC,PUTWD 
CKRPAR 


SOTSK 


PTR TO REST OF FILE 

FIND Ti, HOPEFULLY 

FAILED TO FINO ITe ARG, ERROR 
GET START ADR OF SUBP 

PUT ADR INTO DPY FILE 

UPDATE TAG LIST 

GET TaG T 

INSERT IT INTO OPY FILE 

FIX PTR TO END OF LIST 


NEXT TAG PTReQ/ NEW SGM 
INSERT IF 2@PARAM CALL 
GET Ti AGAIN 

2 PARAM, CASE@ BRANCH 
ELSE INSERT A ZERO 


AND EXIT 


ET 
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1 eSBTTL "ESUB" ROUTINE 
2 eENOC 
3 tl AHAARAAARARAAAARAARARERERAREERERRENARRREE 
a 
5 y ROUTINE TO HANOLES 
‘ ’ CALL "ESUB" 
8 201250 ESuBas 
9 081258 806767 JSR PC, BUFTST 9 ANY BUFFER YET? 
176734 
1@ 01254 o127¢8 MOV SSDINT,RO » PUT SOINT INTO RO 
173408 
11 81200 004767 JSR PC,PUTHO p INSERT AT ENO OF OPY FILE 
177306 
12 81264 ga5eee CLR RO 
13 81266 804767 JSR PC,PUTWO s FOLLOWED By A @ 
177356 
14 @1272 010700 MOV OISEND,RO » SAVE OISEND ANO USE IT TOO 
177340 
15 01276 817767 MoV ONSTSK,OISEND 9 WHERE TO PUT IT 
eee1te 
177332 
16 81304 001720 BEQ NSTERR 1 TOO MANY E8U88 IF = @ 
17 81306 084767 JSR PC,NEWPUT » INSERT INTO OPY FILE/ NEW 8GM 
177332 
18 @1312 tease Mov RO, OLSENO y STORE OISEND 
177328 
19 @1316 162767 sus #2,NSTSK » OROP CALL PTR BY 2 
ee0ece 
000966 
28 81324 000767 JER PC, INSERT y CAN INSERT NOW 
1774014 
21 91338 082167 ESXITs JMP CKeOL 9 EXIT TO USER 
1760778 
22 
23 1 THE STACK DEPTH OF SUBP IS AN ASSEMBLY 
2a 3 PARAMETER INSTEAO OF DEFAULTING TO A VALUE OF 16 
2s y #ee IT [8S THE PARAMETER, SOEPTH 
26 9 SOEPTH INCLUDES CALLS TO 2 PARAMETER SUBP 
e7 
28 , AAAARAERERATHAAARATARAAAAARREAAERHAHERERE 
29 
Hh y STORAGE FOR POINTERS IN SUBP AND ESUB 
1 
32 81334 600000 ADBAS: WORD 0 9 WORD TO DETECT BOTTOM OF DPY STK 
33 081362° 23. SDEPTHOSDEPTH 
34 81362 2800800 ADSTKs ,WORD @ » POINTER TO OPY STACK 
35 @1304 @80000 NSBAS: ,WORD @ » WORD TO DETECT BOTTOM OF NEST 
36 ee1ai2° o8e ¢S0EPTHOSDEPTH 
37 81412 080000 NSTSks ,WORD @ 9 POINTER TO NEST STACK 
38 e ITFOF SOISK 
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1 sSBTTL MISCELLANEOUS ROUTINES 

2 »ENOC 

3 1 ARARAATAAAEAAARAERAARERATRAAAERERHRHERE 

a 

5 y ROUTINE TO FINO A GIVEN TAG (PASSED IN R2) 

6 } ON EXIT R@ = O IF TAG NOT FOUND 

7 1 ELSE 

8 ) R@ POINTS TO THE PTR FOLLOWING THE TAG 

9 y R3 POINT TO THE PTR POINTING TO THE TAG 

18 ) CALLED BY JSR PC,TAGSRH 

et » R@ ANO R3 ARE CHANGED, R2 NOT CHANGED 

12 

13 @1414 TAGSRHE 

14 @1414 16708 MOV TAGHED,RO 1 GET START AOR OF TAG LIST 
eaeets . 

15 01420 B22002 TGLOOPs CMP (RO)o,R2 » 00 TAGS MATCH? 

16 @1422 a01403 BEO TAGXIT » YESe EXIT 

17 1424 a19003 Mov RO,R3 1 Rt POINTS TO PTR POINTING TO TAG 

18 1426 olieeo MOV (RO) ,RO 1 GET AOR OF NEXT PTR 

19 01438 001373 BNE TGLOOP } LOOP IF NOT AT END OF LIST 

28 01432 800207 TAGXIT: RETURN 

rat 

22 01434 O1AS14°TAGHEDS ,WORD TAG ) POINTER TO FIRST TAG 

23 81436 o@@Ge@e TAGEND: ,wORD @ 1 POINTER TO PTR AFTER LAST TAG 

24 

25 I REARERARAAERAAAARAAAAEAAAERERERRER eee 

26 

27 ) POLISH ROUTINE TO TEST IF RO < 64 

28 1 XYBIG IS INCREMENTED IF IT IS >@ 60 

29 1 USED IN ARGGET AND OTHER PLACES 

2 ) SAVE IT ON THE STACK 

32 o14490 TSToas 

33 91440 e20027 CMP Re,#100 1 COMPARE WITH 66 
0ee188 

34 @1444 ge2ua2e SLT SAVERG 1 BR IF < 64 

35 01446 005267 INC XY8IG ) INCREMENT COUNTER OF BIG VALUES 
000356 

3e 01452 SAVERG? 

37 O1452 A100406 MOV R@.=( SP) : 1 SAVE R@ ON THE STACK 

38 81454 900130 POLRET y RETURN IN POLISH 

39 eIFOF © SDISK 

4e eE0T 
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eee COON MEW 


GTB 


$e 
51 


Se 
53 
54 
55 
So 
57 
58 
59 


68 
ot 


81456 
@1456 


01462 
B1466 
81470 
B1876 
1502 
@15¢6 
1510 
e1Si2 
1514 


01520 
a1S2e 


81526 
81532 


01534 
@1536 


ee 
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OEC © if = LOPGB © Ae LA BASIC KERNEL V62~=01 
GTB,MAC TAPE 2 OF & 


THE INFORMATION IN THIS LISTING I$ SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING, 


THIS SOFTWARE I8 FURNISHED TO THE PURCHASER UNDER A LICENSE 
FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 
INCLUSION OF DIGITAL®S COPYRIGHT NOTICE) ONLY FOR USE IN 

Cer hei EXCEPT? AS MAY OTHERWISE BE PROVIDED IN WRITING BY 
i) Ale 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIEO BY OIGITAL, 


COPYRIGHT (C) 1973,1974, BY DIGITAL EQUIPMENT CORPORATION, 


AUTHOR? OR, STEPHEN R, ALPERT AUGUST 1973 
eSBTTL "ERAS*® ROUTINE 

eENOC 
SHHNEHERTRARAORANEERHRERA ERAN AER 


y ROUTINE TO HANOLE 
’ CALL "ERAS*® (¢ T)) 
+ IF T IS NOT SPECIFIED, THEN ERASE TRAK 


ERAS? 
204767 JSR PC, BUFTST 9 ANY BUPFER YET? 
176526 
123127 cMPB CR1),#,EOL 1 ENO OF THE LINE? 
8800006 
881005 BNE ERASO y NO » GET T 
012767 MOV wDIMP, BEG } DUMP OVER TRAK 
160000 
907018 
000167 JMP CKEOL y EXIT TO USER 
176622 
ape ERAS JSR PC,POLENT y ENTER POLISH MODE AND CHECK "(F 
176S62 
080136" +GETONE 9 GET T 
880006" *INTEGR p INTEGERIZE TO 32767 OR LESS 
@a1514° 2 9 EXIT POLISH 
816502 MOV FAC2¢RS),R2 1 GET T AS AN INTEGER 
eeeoue 
803002 BGT ERAS2 9 BR IF T LEGAL . 
800167 ERASi: JMP ERRARG y ARGUMENT ERROR IF Te2o 
0000086 
8G0767 ERAS2: JSR PC, TAGSRH » FIND THE TAG IN DPY FILE 
177662 
0057280 TST RO y O10 WE SUCCEED? 
801772 8EO ERASS ) ARG, ERROR IF CAN*T FINO IT 
012760 MOV #OJMP,918(RO) 9 REPLACE SOINT BY DJMP 
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@1544 
01550 


61554 
@1556 
01560 
81562 
815646 
21566 
81572 
1572 


81576 


160000 
177778 
oe5e60 
177776 
@16002 
177772 
aise13 
Ge14ues 
21002 
101005 
011008 
805020 
000773 
810367 
177640 
000167 
176514 


CLR *2¢Ra) ) MAKE THE TAG ZERO © FOR "SAVE" 
MOV 6(RQ) /R2 ) GET AOR OF REST OF FILE 

ERASS! MOV (RB), (RS) MOVE LINK 
Bea ERAS3 BRANCH IF ENO 


’ 
U 
CMP (RO) ,R2 » NEXT SUBP IN REST OF FILE? 
BHI ERASY 9 YESe BRANCH 
MOV (RQ),RB » GET NEXT LINK 
CLR (RO) > y ZERO TAG FOR "SAVE" 
BR ERASS y LOOP 
ERAS3: MOV R3,TAGEND y ADJUST ENO OF LINK 
ERASGs = JMP CKRPAR 9 CK ")" AND EXIT 


a TFOF SOISK 


6/ 


GT8 


@Srtounseuwne 


GTB 


MOM EU 
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LPENS 
804767 
176376 
8816010" 
808767 
eee222 
eese22 
@16712 
800056 
004767 LPENGS 
176338 
901702° 
000767 
Bee2d2 
eese22 
16712 
eeeg2a 
012700 
081678° 
000767 
OB4uuG 
004767 
eeugue 
085067 
808016 
O80167 
176430 


@eceee LPENTs 
@e0e0e LPENX: 
000008 
eeeeee LPENYs 
000000 
Beaeae LPEN.Fs 


pile "LPEN® ROUTINE (NOT INTERRUPT) 
NO! 
Seeesenennnnnannananaenenenanneasenecees 


9 ROUTINE TO HANOLE 
' CALL "LPEN® (Hy, TAG [)X, YI) 
9 DOESN°T CHECK REST OF ARGS IF Hao 


JSR PC, BUFPOL y ENTER POLISH MODE AND CK "(* 
et? 9 EXIT POLISH FOR NOW 
JSR PC, GETAOR 9 GET ADR OF W INTO R2 
CLR (R26 ) CLEAR HI@OROER WORD 
MOV LPEN,P, (Re) 9 STORE HIT VARIABLE 
JSR PC, ENTERP 9 ITMMED, POLISH 
*CKOPCM 9 JUMP BY THE COMMA 
usr PC.GETADR 9 GET AOR OF TAG INTO R2 
CLR (R2)6 y CLEAR HI@ORDER WORD 
MOV LPENT, (R2) 9 STORE THE TAG 
MoV SLPENX RO 9 PUT ADORESS OF SOURCE 
JSR PC,OPTSTR 9 STORE OPTIONAL ARGUMENT X 
JSR PC,OPTSTR 9 STORE OPTIONAL ARGUMENT Y 
CLR LPEN,F ' CLEAR LPEN HIT FLAG 
JMP CKRPAR » CHECK *)" AND RETURN 
«WORD @ 9 LPEN TAG STORAGE 
eWORD 8,0 5 X COORD, OF LP HIT 
NORD 8,8 1 Y COORD, OF LP HIT 
eWORD 6 » LPEN HIT FLAG ( HIT & 1) 


eIFOF §=6S018K 
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8 201702 
9 081702 


18 
iu 


12 
13 


14 
is 


16 
17 
18 
19 
20 
ai 


22 
23 
2a 
2s 
26 
27 


26 
eo 


38 


31 
32 
33 
34 


01704 
@1706 


o1712 
O1714 


@1720 
1722 


@1726 
01730 
81732 
B1734 
81736 
81740 


@1744 
01744 


81750 
01752 


81756 
81762 
01764 


CKOPCMs 
112146 
eoe24) 
121627 
00000086 
081410 
005767 
176454 
001407 
121627 
28089086 
801806 
005301 
080261 
905726 CKOPCOs 
080134 
808167 CKOSYN: 
0800006 


PUTSGMs 
020067 
000814 
0014040 
@84767 
176672 
010067 
28ege2 
O@8207 PUTS: 


080008 OLOMOO: 


eSBTTL MISCELLANEOUS ROUTINES 
ENOC 
seeaeneeaennanneenentensensenesnenanens 


» ROUTINE TO CHECK (POSSIBLY) OPTIONAL COMMA 


» USES R2 
MOVE CRI) o)9 (SP) » GET THE TOKEN IN QUESTION 
cue y ASSUME FOUND 
CMP (SP), @,COMMA 9 COMPARE WITH COMMA 
Eo CKOPCO 9 BR IF A MATCH 
TST OP ARGF y NOT A MATCH, OPTIONAL? 
BEG CKOSYN » NOT OPTIONAL, ERROR 
CMPB (SP),a,RPAR PIS ITA)" 2? 
BNE CKOSYN » NOe ERROR 
DEC Ry » POINT AT *)# 
SEC + FLAG COMMA NOT FOUND 
Ts? CSP)¢ » CLEAN STACK 
POLRET 9 AND EXIT 

, 


JMP ERRSYN SYNTAX ERROR 


» ROUTINE TO SET*GRAPHICeMODE FROM RO 
9 CHECKS TO SEE IF SAME AS PREVIOUS MODE 


cmp RO, OLDMOD » DIFFERENT MODE? 

BEQ PuTse ¥ NOe BRANCH 

JSR PC,PUTWO 4 YESe INSERT IT 

MoV R®.OLDMOD y SET "NEW" OLOMOD 

RETURN 9 EXIT 

MORO @ 4 VALUE OF PREVIOUS OLD SETeGem 


eIFOF §=6SOISK 


GH 
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i 

2 

3 

a 

5 

6 

7 

8 

9 

128 

i 

12 

13 

44 

15 

16 01766 

17 81766 012667 
800034 

18 81772 885967 
eae032 

19 81776 800767 
176266 


20 82002 200136° 
2 82004 004770° 
22 02006 2014400" 
23 82010 a00076° 
24 G2812 BeSeaue* 
25 82014 od1uag’ 
26 82016 003050° 
27 @2020 ee2e22° 
28 G2822 006177 

208008 


38 @2026 800000 
31 02830 820800 
32 82032 200000 
33 @2034 200000 


ARGGETS 


GETSAVS 
XYBIGS 
XSIGNS 
YSIGNS 


oSBTTL 
eENOC 


ARGUMENT GET FOR APNT,ROOT ANO VECT 


RRAARARRAAAHERAEANRREREREAERTAERERAR HE 


y ROUTINE TO SUPPLY ALL ARGUMENTS FOR "VECTS, 
s "APNT® AND "ROOT" 
y ON EXIT? 


’ 
, 
’ 
U 
i 
U 
U 


MoV 
CLR 
JSR 


sme 


«WORD @ 
WORD @ 
oHORD OB 
eWORD BO 
a TPOF 
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OOn~eNEUNne 


13 82036 
14 82836 B10046 
15 92040 112102 
16 82042 100535 
17 @2044 B003¢82 
18 @2046 152102 
19 82858 e61502 
28 M2052 621227 
177776 
21 82056 083070 
22 82068 @10246 
23 820602 604767 
6290006 
24 82066 ai2ede 
25 82870 @22227 
177775 
26 82074 Q01457 
27 82876 826227 
800004 
177776 
28 62104 a@3uo1 
29 82186 885742 
38 @2118 a16500 
eeee2s 
31 @2114 @16503 
080026 
32 A212 B20062 
200004 
33 82124 a03040 
34 82126 205703 
35 02138 1004627 
36 G2132 g85762 
900806 
37 62136 100433 
38 G2140 G20362 
200006 
39 B2144 101038 
48 82146 016246 
eegaes 
41 @2152 a05216 
42 82154 010346 
43 82156 812746 
e00020 
4G 82162 066383 
4S 82164 406366 


GETADR: 


LCLOOP: 


eSBTTL 
eENOC 


ROt BITS 10128 OF SET@GRAPHIC=MODE 

(SP)y VALUE OF Y , 
2¢SP)% VALUE OF X 

XYBIG# NO, OF ARGS, (X,Y) EXCEEDING 63 

XSIGNS BIT 13 ON IF X NEGATIVE 

YSIGNS BIT 6 ON IF Y NEGATIVE 


CALLED VIAs JSR PC,GETARG 


($P)o,GETSAV 9 SAVE RETURN AOR OFF STK 
XvOIG y ASSUME X,Y < 64 
PC,POLENT y ENTER POLISH ANO CK *¢* 
*GETONE y GET X OR DX 
*SCALEX 9 SCALE IT 
oTST6a » CHECK IF < 68 AND ONTO STK 
@GETNUM 9 CK "," AND GET Y 
*SCALEY » SCALE IT 
*TST6G 9 TST IF < 64 AND ONTO STK 
LIFT 9 GET Ly Ip Fe T 
ot2 y EXIT FROM POLISH 
OGETSAV 7 RETURN TO CALLER 

9 RETURN ADORESS 

y VALUES > 63 

p BIT 13 ON IF X NEG 

y BIT © ON IF Y NEG 
SOISK 
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ADDRESS CALCULATION ROUTINE 


AREREAAAARARRRAANRAEREHEORERARARERTH ERD 


ROUTINE TO FETCH ADDRESS FOR STORING VARIABLES 
IN ARRAYS, IF SS2em1 (1,E, XGRA,YGRA, OR FIGR ) 


USES 


Ri, R2, R3, SAVES RO 


CRASHES IF CALLED WHEN R1 POINTS TO CONSTANT 
DESTROYS THE FAC IF SUBSCRIPTS INVOLVED 


MOV 
MOVB 
BMI 
SWAB 
BISB 
aod 
CMP 


BGT 
MOV 
JSR 


MoV 
CMP 


BEO 
CMP 


BLE 
TST 
MOV 


MOV 
cme 


BGT 
TST 
BMI 
TST 


BMI 
CMP 


BHI 
MOV 


INC 
MOV 
MOV 


ASL 
ASL 


U 
U 
} THEN ONLY ONE WORD ENTRIES ARE ASSUMED, 
’ 
' 
’ 


RO,=(SP) s SAVE RO 

CRI), R2 1 BUILD WORD OFFSET 

GETADS 1 CK IF OPTIONAL ARGUMENT 

R2 

(R17) o,R2 § GET SECOND HALF 

(RS) ,R2 9 A400 PTR TO USER AREA 

(R2), #02 9 18 IT A SCALAR OR ARRAY? 
ADRARG 9 ARGUMENT ERROR IF STRING 
R2,e(SP) s SAVE R2 

PC, GETVAR 1 GET AOR AND SUBSCRIPTS 

(SP) e,R2 y RESTORE R2 

(R2) 6,403 9 WAS IT A SCALAR? « 
GETAO@ y YES@ BRANCH 

4CR2), #02 9 IS S82 FLAGGED FOR XGRA ETC,? 
GETADS y YESe BRANCH 

@(R2) 9 FIX UP R2 


SSISAVC(RS) RO 1 SET UP S31 
SS2SAV(RS),R3 » SET UP SS2 


R@,4¢R2) ) S81 > SS1MAX? 
ERSS3 ) YESe ERROR 

R3 } 2 DIMENSIONAL? 

LocNnoz ) NO BRANCH 

6(R2) 1 YESe IS IT DIMENSIONED OKAY? 
ERSS3 1 NO= ERROR 

R3,6(R2) ) $82 > SS2Max? 

ERSS3 } YESe ERROR 2 
4(R2),*(SP) + PUT SS2MAX ON STK 

(SP) 

R3,=(S8P) 

#28,0(SP) 

R3 

2(8P) 


GTB V@t=a1 BASIC = GT ROOT MOD RT#11 MACRO VHG2069 $oeOCT=74 02106807 PAGE 15¢ 


eeeeee 
46 @2178 103002 
G7 @2172 060003 
eegee4 
48 G2176 885316 
49 @220@ 203370 
S@ @2202 262706 
008006 
Si 02206 060320 
S2 02210 905208 LOCNO2s 
S3 @2212 806300 
S4 92214 086300 
55 82216 016202 
oeeede 
$6 e2222 aevgee 


57 e2224 egeues 

$8 2226 ERSS33 

59 G2226 106488 

68 

oi 82230 123 
02231 417 
2232 102 

62 

63 

os 

66 82233 000 

o7 


68 02234 212608 GETADGs 
69 82236 000207 
7® @224@ 000167 ADRARGS 
2000006 
71 82248 080167 AORSYNE 
0000006 
72 02250 012203 GETADI1 
73 @2252 B22323 
74 @2254 Be5712 
7S 02256 001014 
76 G2260 010302 
717 @2262 @22227 
~  $680808 
78 @2266 001375 
79 @2278 B112e2 
80 a2272 ee5742 


82 62274 e82005 
83 02276 011267 
204012 
64 g23e2 a12702 
006314" 
65 82306 aeSui2 
86 82310 GETADTS 
87 @2318 B26512 GETADES 
eeoges 
88 @2314 003344 
89 82316 016502 
eede24 


acc 
a00 


bec 
ect 
400 


400 
INC 
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9@ 82322 100403 

91 82324 006302 

92 02326 0600302 

93 02330 800741 

94 02332 810302 GETAD2s 

95 82334 000737 

96 02336 OB5767 GETADSs 
175532 

97 82342 881748 

98 2344 120227 GETADSS 
2000006 

99 82358 801335 

10@ 2352 005303 

181 2354 20502 . 

182 2356 200726 

103 


ooo ‘ 
4(SP),R3 


(SP) cae) 
LCLOoP 

#6,SP ’ 
R3,RO 

RO 

RO , 
Re i] 
2¢R2),R2 


RO,R2 
GETAO® ’ 


SLONGER 
7808/ 


SLONGER 
/8UBSCRIPT OUT OF 


8 

(SP) 4,RO 
ERRARG 
ERRSYN ’ 


(R2)o,R3 ’ 
CRE) o,(R3)% ’ 
(R2) ' 
GETAD6 i] 
R3,R2 ' 
(R2) 4%, HOTMP ’ 
0d i] 
(R2),R2 ' 
o(R2) ’ 
SLPS 

GETAOT 
(R2),SCLSAV 


aSCLSAV,R2 
(Ra) 
SSISAVC(RS),/CR2) 9 


ERSS3 ’ 
SSISAV(RS),R2 9 


MULTIPLY S82 BY SSiMAX 


ANO ADD S83 
CLEAN STK 


2 BYTES/WORD 
2 WORDS/ENTRY 


AND GO TO EXIT 


BOUNDS/ 
t 


RESTORE RO 
ExT 
ARGUMENT ERROR 


SYNTAX ERROR 


PUT BASE AOR INTO R3 
POINT R3 AT ACO) 
SS1MAXBO? 

NOe BRANCH AND USE IT 
POINT AT ARRAY 

A DJMP AT ENO? 


NOew LOOP “TIL FOUND 


POINT AT AOR IN OPY FILE 
POINT AT S81 IN OPY FILE 


S81 > SSIMAX? 


YESe ERROR 
GET 881 
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GETAD2 
R2 
R3,R2 
GETAO® 
R3,R2 
GETADS 
OPARGF 


~~ ewe en 


AORSYN 
R2,#,RPAR 


AORSYN 
Ry 

Re 
GETAD® 
SOISK 


~~ ewe 


BR IF NO SUBSCRIPTS 

ADDOUNT FOR WORDS NOT BYTES 
GET ADORESS 

ExtT 

IF NO SUBSCRIPTS GET JUST A 
EXIT 

SEE IF ARG IS OPTIONAL 


NOe SYNTAX ERROR 
is ira "je ? 


NOe ERROR 

YESe POINT AT IT 
MAKE AOR 8 @ 
EXIT 


G7 


—_—-s 
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THEW 


7 002360 OSTP: 
8 802360 B12746 


oee32ue 


9 B82304 STOPAS 


18 
1 


12 
13 


14 
{5 


16 
17 


18 


19 
28 


ei 
22 


23 
24 
25 
26 
e7 
28 
29 


30 
3x4 


GTB 


42 
a3 


aa 
4s 


46 
a7 


48 
a9 


5a 
Si 


$2 
33 


Su 
55 
56 
57 


@2304 812667 
800054 
02372 085737 
0000006 
82374 ae1seo 
82376 805767 
0000006 
@2ue2 B01415 
82404 005767 
880036 
62418 B81418 
02412 012767 
173408 
886166 
@2428 805767 STOPCs 
0808086 
@2424 202375 
B2426 822767 
160000 
086152 
82434 801371 
92436 885067 STOPS: 
980004 
82442 080207 


@2444 G80008 STOP,FS 
B2446 BOGGG0 RUN.FE 


82458 CONTE 
@2458 012746 
000324" 
e24sa CONTAS 
G24S4 005767 
177764 
G24e0 801403 
Q2462 805067 
177756 
G2466 00520 
82478 800287 CONTOS 


02472 084767 RESTR? 
00172 
82476 aevese 


02500 INITE 
62588 @12746 
eo0324" 


eSOTTL 
sENOC 


"OSTP*, "CONT", 


AND "INIT" ROUTINES 


PRAREREHARARHAAEAAARAAARARERE RTE EA AAR 


s ROUTINE TO HANOLE *OSTP", "CONT®, ANO "INIT" 


MOV 


MOV 
1st 


BEQ 
TST 


BEG 
rst 


BEQ 
Mov 
TST 
BGE 
CMP 
BNE 
CLR 
RETURN 
eWORO O 
WORD 
MOV 


TST 


BEG 
cur 


BR 
RETURN 


JSR 
RTI 


MOV 


BCKEOL, @ (SP) 


SP,STOP,F 
OnGTVECT 


sToPa 
orc 


SToPB 
RUNGF 


STOPBe4d 
#SOINT,OSTOP=2 
OSsR 


aed 
#OJMP, DSTOP=2 


STOPC 
RUN,F 


#CKEOL, © (SP) 
STOP,F 
cCONTe 
STOP ,F 
INITS 


PC, INITS 


aCKEOL,@ (SP) 


» NORMAL PROGRAM EXIT 


9 SET STOP FLAG 
y VECTORS BEEN SET? 


9 NOe EXIT NOW 
9 DPC CLEARED? 


9 YES 

y CURRENTLY RUNNING? 
5 NO 

1 LOAD STOP 

y STOPPED YET? 

9 NO@ LOOP SOME MORE 
s BACK TO REGULAR? 


y NOe WAIT SOME MORE 
y SIGNAL STOPPED 


y STOP FLAG (#1 FOR STOP) 
$ FLAG TO INDICATE RUNNING 


y EXIT FOR CALLER 

» WERE WE STOPPED? 

» NO# THEN DON*T START IT 
9 CLEAR STOP FLAG 


» CLEAN SUBP STK AND START UP 


3 FIX STACK ANDO START DPU 


» NORMAL ENTRY 
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82504 INITAS 
82504 804767 
177654 
1 oem 
82518 012700 
0880006 
82514 962700 
eeeere 
62520 812702 
200200 
82524 a10210 
@2526 B12748 
ee2u7e° 
02532 819240 
02534 012748 
003240° 
82542e a1024e 
@2542 a12748 
880466" 
@2546 085067 
177212 
92552 605067 
176856 
82556 305067 
600130 
@2562 085067 
177112 
@2566 005067 
177652 
} tea M 
@2572 012767 
160000 
885706 
) tee M 
82688 005767 
@06006 
@2604 201004 
B2o06 INTTet 
B2606 810446 


@2610 884767 
0800006 
@2614 g12604 
@2616 816708 INIT: 
176020 
@2622 010067 
085762 
@2626 010067 
176096 
82632 212720 
160000 
02636 012718 
10506" 
@2642 010067 
175772 


JSR 


PC, STOPA 


y ENTRY FROM BUFTST 
y MAKE SURE DISPLAY HAS STOPPED 


SET UP INTERRUPT VECTORS HERE 


MOV 
a00 
MOV 


MOV 
MOV 


MOV 
MOV 


MOV 
MOV 


CLR 

CLR 

CLR 

CLR 

CLR 

AKE SURE 
MOV 
AKE SURE 
YsT 

BNE 

MOV 

a TFOF 
JSR 
oENDC 
JSR 


MOV 
MOV 


MOV 
MOV 
MOV 
MOV 
MOV 


BGTVECT,RO 
#L2I,RO 
#PRUO,R2 


R2, (RB) 
#RESTR,@(RB) 


R2,"(RB) 
MLPNINT, @(RQ) 


R2,0(RB) 
SOISINT,=(RO) 


OLOMOD 
INSRTF 
SCAL.F 
LPEN,F 
STOP,F 

TRAK 1S OFF 
*OJMP, BEG 
END OF DPY FILE 
DCRASH 
INIT! 
RG,e(SP) 
SOISK 

PC, CLOSALL 
PC, FIX@ 


(SP) o,RG 
ACTST,RO 


RB,DSTOP 
RO, DISEND 
HOIMP, (ROD¢ 
wBEG, (RO) 
R@, ACTEND 


) SET UP DESTINATION 
1) OFFSET TO TOP 
) AND PRIORITY 


) PRG FOR RESTR 
y RESTART 


) PRG FOR LP INTERRUPT 
1 &P INTERRUPT 


7 PRG FOR STOP DISPLAY 
y STOP DISPLAY INTERRUPT 


y MAKE SURE MODE CHANGES 

y CLEAR INSERT PENDING FLAG 
9 CLEAR SCALE FLAG 

y CLEAR LP HIT FLAG 

1 CLEAR THE STOP FLAG 


+ MAKE SURE TRAK IS OFF 


TS AFTER PERMANENT STUFF 
» "FIX" BEEN CALLED? 


1 BR IF PRIX" ALREADY CALLED 


p CLOSE ALL FILE 170 
1 GET SPACE 


) SET LOwEND FOR DUMP 

) IT IS A NEW DISEND 

1} PUT A DJMP THERE G5 
) FOLLOWED BY LOOP AOR 

} ACTEND POINTS TO WORD AFTER DISEND 
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17 y tee FIX UP TAG POINTER 
78 @26046 016708 MOV TAGHED/RO 9 GET FIRST TAG ADDRESS 
176562 
79 826052 005728 Ts? (RO)> » BUMP IT BY 2 
68 82654 210007 MOV RO, TAGENO ) MAKE THAT TAGEND 
176550 
81 B2668 B25e10 CLR (RQ) 9 AND CLEAR LAST POINTER 
62 y em PATCH UP AOSTK AND NSTSK HERE 
63 B2662 312767 MOV #NSBAS,NSTSK 9 ADJUST BUILDING STACK 
@e1304° 
170522 
84 826070 12767 INIT35 MOV #0BaS,a08TK » ADJUST RUNNING STACK 
001334" 
176464 
85 62676 Giv0e7 mov SP,RUNSF p SIGNAL RUNNING 
177540 
86 82702 012767 mov #BEG,OPC y START UP DPU 
010506" 
eeoaees 
87 @2718 eee2e7 RETURN y RETURN TO USER 
68 
89 82712 800808 SCAL.F! ,WORD @ 9 SCALE HAS BEEN DONE FLAG 
9 
1 ! ROUTINE TO HANDLE LINKING FOR SAVE AND RESTORE 
92 eo TFOF SOrSsK 
93 SAVERTS 
9a gsr PC, EVAL + GET STRING (BASICX) 
9s acs o+6 y FOUNO A STRING? 
% MP ERRSYN 1 NOe ERROR 
97 CMP (SP), #04 y A NULL STRING? 
98 Beg 2218 1 YESe ERROR 
99 cups CR1) 6, # RPAR ) FOLLOWED BY *)* ? 
180 BNE sete } NO» ERROR 
101 MP saveg y RETURN TO OVERLAY 
182 
183 2 ENOC 
106 aIFOF ©6S018K 
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1 eSBTTL *NOSC*,"ON", "OFF® ROUTINES 

2 eENOC 

3 1 ARAERARARRRAHAAEAERURERENAREREAERERR NEE 

4 s TURN OFF SCALE 

Ss 

6 o82714 NOSCS 

7 002714 98Sa67 CLR SCAL.F y NO MORE SCALE 
177772 

8 802728 200167 MP CKEOL y AND EXIT 
175400 

9 

18 , ARARAAARERREARARARRAERREERRRARRERRE EERE 

ey » ROUTINE TO TURN SUSP ON AND OFF 

12 

13. 02724 ONS 

14 82724 812746 MOV #SDINT,@(SP) y A SDINT 
17300@ 

15 02730 oer ONS JSR PC,POLENT y ENTER POLISH MODE, CK "(" 
175334 

16 82734 880136" *GETONE 1 GET SUBP TAG 

17 @2736 oeeade’ *INTEGR } INTEGERIZE 

18 82740 g02742° ete s EXIT POLISH MODE 

19 82742 016562 Mov Fac2¢R5S),R2 9 GET TAG 
888042 

28 02746 va3a02 6GT 46 } LEGITIMATEe BRANCH 

21 82758 880167 ONOS JMP ERRARG + NO= ERROR 
800006 

22 82754 084767 JSR PC, TAGSRH 9 FIND TAG 
176434 

23 82768 085700 TsT RO y DID WE SUCCEED? 

24 82762 081772 B8EQ ON@ 9 NOe BRANCH 

25 82764 162708 sua #18,R8 » POINT AT SOINT/DJMP 
@8e010 

26 82778 685767 TST INSRTF y AN INSERT PENDING? 
175640 

27 82774 Q01375 BNE on 9 YES= LOOP TIL FREE 

28 82776 o1eies MOV ACTEND,R3 3 GET END OF DPY FILE 
175636 

29 83002 205743 TsT #©(R3) : ¢ POINT TO PREVIOUS WORD 

38 83004 220003 CMP ROR 9 WHERE DOES RO POINT? 

31 83086 ed14a3 Bea ON2 9 TO WOL 

32 83018 212610 MOV (SP)e,eRd 9 STORE WORD 

33 a3a12 aa ON33 JMP CKRPAR y AND RETURN TO USER 
175320 

34 83016 812667 ON2! MOV (SP)o,WwOL + STORE WORD 
175716 

35 93022 000773 BR ONS y AND EXIT 

36 

37 33026 OFF: 

38 63024 B12746 MOV #OJMP41,0(SP) p A OSMP os 
160801 

39 83230 2800737 BR ONY 9 AND CONTINUE 66 

48 ae TFOF SOISK 
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NOUS 


8 883032 
9 003032 


18 63036 
41 @3040 
12 a3e42 
43 
4 


is 
to a304a0 


FIX: 
004767 
175232 
000136" 
200006" 
Besguu" 


200167 
2000006 


FREES 


eSBTTL "FIX" ROUTINE CALLER 
oENDC 
RERRRARERA RARER RRA RR ERR RRE RONEN RAED 


} ROUTINE TO HANDLE? 


; CALL "FIX" CN) 

JSR PC, POLENT ) ENTER POLISH MODE, CK "(" 
+GETONE 1 GET N 
+INTEGR ) INTEGERIZE IT 
ye? 1 EXIT POLISH MODE 

sIFOF © $018K 

Jan PC,CLOSALL ) CLOSE ALL FILE 170 

due FIXSP 1 JUMP TO OVERLAY 


etFOF = =6S0ISK 


JSR PC, CLOSALL 9 CLOSE ALL FILE 1/0 
JMP PREEG 9 GO TO OVERLAY 
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OONTU SUV 


14 23050 
15 03050 


16 83856 
17 83060 


16 83064 
19 83066 
28 03078 
21 03072 
22 03074 
23 83076 
24 83100 
25 03102 
26 a3104 
27 23186 
28 831198 
29 a3112 


38 @3116 
31 03120 


32 03124 
33 a3126 
34 @3130 


35 03134 
36 83136 
37 83140 
38 83142 
39 83144 


4@ 03158 
41 93152 
42 03154 


43 83160 
44 83162 


4S 03166 
46 83170 
47 23172 
48 83174 


LIFTs 
012767 
040008 
060168 
010446 
024767 
175226 
000066° 
oeea2e” 
Q00004 
oB0076° 
aBenee’ 
200000" 
aoea4e" 
003104" 
eeseae 
812602 
203406 
@20227 
280804 
803003 
262782 
eoeeo3 
050200 
12602 LIFTOs 
@O4767 
820060 
058302 
@12682 
G84415 
188003 
085067 
880266 
ee5uee 
eo5302 LIFT2: 
020227 
282010 
02005 
e52702 
8ece1e 
080302 
a06202 
050200 
@i2ede LIFTI: 


eSBTTL ROUTINE TO FETCH Ly I, Fo T 
eENOC 
RERAHARAARAARRAARAAREARER AREER 


y ROUTINE TO HANOLE Ly I, Fy T 
» UPON ENTRY Ri POINTS TO COMMA PRECEDING L 
} UPON EXIT R@ CONTAINS BITS @118 OF SGM WORD 


yp & © LP INTERRUPT ENABLE 

3 I 8 INTENSITY OF LINE 

y F @ FLASH (BLINK) 

y Tw TYPE OF LINE (SOLID, ETC.) 

MOV #4@808,INVIS 9 ASSUME VISIBLE 

MOV Ru,=(SP) + SAVE RG FOR RETURN 

JSR PC, QIKPOL 1 ENTER POLISH MODE 
+SETOPT » SET OPTIONAL MODE 
+PLOOP + POLISH LOOP 
+a 9 4 TIMES 
+GETNUM 9 GET ",LolsFeT" 
+INTEGR » INTEGERIZE EACH IN TURN 
*+SAVINT y SAVE ON THE STACK 
+ELOOP 9 ENO OF POLISH LOOP 
ate y EXIT FROM POLISH MODE 

CLR RO 9 CLEAR DESTINATION WORD 

MOV (SP) o,R2 9 GET TYPE OF LINE 

BLE LIFTS » BRANCH IF NO CHANGE 

CMP R2,eu 9 COMPARE R2 TO 4 

GT LIFTS y IGNORE IF Toa 

apo 3,R2 9 ADD TO GET SET*8IT 

BIs R2,RO » SET T INTO RO 

MOV (SP) o,R2 7 GET F 

JSR PC, BITGET y FeO: @ 

BIS R3,RO 9 F>Os 30, Feds 28 

MOV (SP) o,R2 9 GET I 

BEQ LIFTS 1 BRANCH IF NO CHANGE 

BPL LIFT2 » BRANCH IF. VISIBLE 

CLR INVIS 9 MAKE INVISIBLE 

NEG R2 y MAKE R2 POSITIVE 

oec R2 

CMP R2,818 y COMPARE R2 WITH 8 

BGE LIFTS y IGNORE IF TOO BIG 

BIS #18,R2 y ADO IN 8 

Swae R2 

ASR Re 9 PUT BITS IN CORRECT POSITION 

BIS R2,R0 9 1 18 SET INTO RB 

MOV (SP) 4,R2 1 GET L 


G7 
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eueuUNe 


O3176 


83202 
3200 
23286 
3210 
@32i2 


O32e16 
o3214 
o3216 
3220 
3222 
3224 


03230 
3234 
83236 


7 003240 
8 Be3240 
9 O8324e 


18 
a 


12 
13 
4 
15 
16 
17 
18 


19 
20 


ro} 
22 
23 
24 
25 
26 
27 
28 
29 


30 
31 


32 
33 
34 


35 


36 


37 


e32ua 
83246 


83252 
03256 
@3262 
83264 
03266 
03270 
aser7e 


O3276 
03300 


03304 
3310 
O3314 
03320 
a3320 
03330 
83334 
03340 
O334u 


03350 
03352 


83356 
03360 
83362 


@3366 


O3374 


834uee 


004767 
eeegi2 
006303 
206303 
05e300 
012606 
290134 


eesees 
005702 
001405 
ee2a02 
052703 
eeee18 
852783 
eeeeee 
e207 


O10846 
918246 
@10546 
016705 
8000006 
816746 
2020086 
017788 
176108 
881403 
005728 
811000 
002407 
005767 
176482 
001158 
085367 
176374 
010067 
176356 
816546 
eveeue 
016546 
000040 
016746 
eae3ia 
005065 
eeoe4e 
8167808 
2400006 
062780 
176880 
010065 
eoeoue 
605767 
176338 
202428 
166708 
085146 
206208 
206208 
860067 
025136 
@16765 
005132 
eeogue 
832767 
eeeaua 
O@eaeeG 
061403 


BITGETs 


BITNEGS 
BITZER: 
INVISS 


LPNINTS 


LPINTOS 


LPINTIs 


Jse 


as. 
ASL 
srs 
MOV 
POLRET 


CLR 
TST 
BEQ 
BLT 
ars 


ars 
RETURN 


WORD @ 
oTFOF 


PC, BITGET 


R3 

RS 
R3,Re 
(SP)e,Ra 


R3 
Re 
BITZER 
BITNEG 
#10,R3 


#28,R3 


SOrsK 
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Lae: @ 


Lees 148 
L<@s 120 
LIS SET IN RO. 
RESORE Ra 
ANO EXIT 


CLEAR DESTINATION 
CHECK SIGN OF R2 

BRANCH IF R2 & @ 

BRANCH IF R2 «< @ 

Poss 38 

NEG! 20 

ZERO: 8 


VISIBILITY FLAG (BIT 34) 
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eS8TTL LP INTERRUPT HANOLER 


2 ENOC 


PRAAAARARRARAREAHAAAARERRREARERRERRER HE 


1 ROUTINE TO HANDLE LIGHT PEN INTERRUPT 


MOV 
MOV 
Moy 
“OV 
MOV 
MoV 
B8EQ 
rst 
MOV 
BLT 
Tst 


BNE 
bec 


“ov 
MoV 
MOV 
MoV 
CLR 
MOV 
gre 
MOV 
TST 


aut 
su6 


ase 
asR 
400 


MOV 


BIT 


EO 


RO,=(SP) 
R2,“(SP) 
RS,°(SP) 
USRAREA,RS 
SERVEC, (SP) 
@ADSTK, RO 
LPINTO 
(RO)> 
(RO),RO 
LPINTL 
LPEN,F 


LPEx) 
LPEN,F 


RO LPENT 
FAC2(RS),0(SP) 
FACI(RS) 5 (SP) 
ABS,F,©(SP) 
Faci(RS) 
OISX,RO 
#176000,R@ 
RO, Fac2crs) 
LPEN,F 


LPINT2 
XT RO 


Ro 
RO 
RO,XT 


XT, FAaC2(RS) 


#60,0SR 


LPINT2 


SAVE REGISTERS 

SAVE RS 

SET UP RS TO USER AREA 
SAVE ERROR VECTOR IN FPMP 
GET PTR TO TAG (IF ANY) 
NO TAGe BRANCH 

POINT RO AT TAG 

PUT TAG INTO RO 

HIT MUST BE IN TRAK 
ANOTHER HIT PENDING? 


YESe EXIT 
NO@ MAKE FLAG @ of 


STORE TAG 
SAVE FAC 


AND FLAG TOO 


GET X POSITION 

ONLY FIRST 18 BITS 
PUT IN FAC 

IN TRAK? 

NO# BRANCH 

OlV BY 2 

OIv BY 2 

OLD + (NEW@OLD)/4 

PUT IN SMOOTHED VALUE 


ON THE EDGE? 


NO 
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38 83604 812767 “ov #1800,XT 9 STORE CENTER IN XT 
081008 
easite 

39 83412 010667 LPINT2: MOV SP, ABS eF » SCALE ABSOLUTE 
082222 

4@ 83416 2127200 MOV MUSCL.X,RO 9 UNSCALE MODE 
826362° 

41 83422 B0u767 JSR PC,SC.USC » 00 IT NOW 
eeve72 

G2 @3426 B165u6 MoV FAC2(R5),8(S8P) 
eeeaue 

43 03432 B16546 MOV FACI(RS),0(SP) 5 SAVE UNSCALED X ON STACK 
eeeeue 

44 83436 405005 CLR FACi(RS) 
eeeese 

4S g3442 016700 MOV OI8y,RO 9 GET Y POSITION 
eaeoees 

46 83446 gu27aa BIC #176908,R0 s ONLY FIRST 18 BITS 
176900 

47 834S2 010065 MOV RO, Fac2crs) 9 PUT INTO Fac 
eeeou2 

48 @3456 205767 TST LPEN,F 9 IN TRAK? 
176216 

49 03462 eg2420 BLT LPINTS y NO» BRANCH 

SO 03464 166700 $uB YT,RO 
005036 

51 034679 oee200 AsR RO ys OIV BY 2 4 

52 03472 0060200 ase RO » OIV BY 2 

53 03474 960067 a00 RO,YT 1 OLD * (NEWeOLO) 7/4 
025026 

S4 03500 216765 MOV YT, Fac2(RS) ) PUT IN SMOOTHED VALUE 
eese22 
eeees2 : 

5S 83506 232767 BIT #48,08R » ON THE EDGE? 
000040 
2000006 

S6 83514 01403 BEG LPINTS 1 NO 

S7 @35i6 212767 MOV #600,YT » STORE CENTER IN YT 
200600 
eesaoe 

58 03524 012780 LPINT3: MOV #USCL.Y,RO s VNSCALE Y MODE 
06352 

59 83530 004767 JSR PC,SC,USC 9 00 IT Now 
ee05e 

68 83534 005767 TST LPEN,F 9 IN TRAK? 
176140 

61 03540 go24ua5 BLT LPINTS 1 NO# BRANCH 

62 03542 016780 MoV TRAKX,RO » FROM STK 
O81216 

63 63546 8167282 MOV TRAKY,R2 » FROM FAC 
eo1214 

64 83552 a004u06 BR LPINTS » STORE IT 

65 03554 905467 LPINTG: NEG LPEN,F 1 MAKE FLAG & 1 
176128 

66 8356a o12700 MoV #LPENX,RO + FROM STK 
001670" 

67 03564 212702 Mov #LPENY,R2 9 FROM FAC 
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ae1674° 

68 03572 812628 LPINTS: MOV (SP) 4, (RO)¢ 

69 83572 0126120 MoV (SP) 4, (RB) STORE Xx 

7@ 83574 B16522 MOV FACL(RS)» (R2)¢ 
o00g4e 

T1 03608 216512 MOV FAC2(R5),(R2) 9 STORE Y 
eoegue 

72 03604 @12667 MoV (SP) +, ABS,F ) RESTORE FLAG 
avee3e 

73 @3610 a12665 mov (SP), FACA(R5) 
eeeoue 

74 @3614 012665 Mov (SP)6,FAC2(RS) 4 RESTORE FAC 
oeoese 

75 @3620 @12667 LPEX1: MOV (SP) 4, SERVEC } RESTORE SERVEC 
200@806 

76 83624 912605 MOV (8P)4,R5 ) RESTORE RS 

77 @3626 ai26a2 MOV (SP) 4,R2 

78 33630 a12eoe MOV (SP) 4,R@ } RESTORE REGISTERS 

79 @3632 205267 INC DPC } RESTART OPU 
2020006 

88 23636 oooe02 RTL ) AND EXIT 

al 

82 03648 200000 ABS,F1 ,WORD @ ) ABSOLUTE SCALE FLAG 

a3 sIFOF © SDISK 

cr sE0T 
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Ceanounewn 


GTB 


ss 
So 


57 
58 


@3e42 
O3eue 


O3eue 
9365¢e 
83052 
03654 
03656 
83660 
@3662 
03664 


03678 
83072 


83676 
3700 
83702 
@3704 
03706 
03718 
e3712 


@3716 


004767 
174336 
020130" 
eeveae? 
eeceee? 
eane06" 
900076" 
008006" 
203664" 
016502 
eeegde 
08S4ue2 
088767 
177316 
806303 
086303 
006303 
810300 
e12002 
9e54e2 
884767 
177276 
806303 


OEC © 11 © LBPGB © A @ LA BASIC KERNEL V@2e@! 
GTB,MAC TAPE 3 OF G 


THE INFORMATION IN THIS LISTING [8 SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING, 


THIS SOFTWARE IS FURNISHED TO THE PURCHASER UNDER A LICENSE 
FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 
INCLUSION OF DIGITAL°S COPYRIGHT NOTICE) ONLY FOR USE IN 
aes EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY 
t+) Ake 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL, 


COPYRIGHT (C) 1973,1970, BY DIGITAL EQUIPMENT CORPORATION, 


AUTHORS OR, STEPHEN R, ALPERT AUGUST 1973 
eSBTTL "STAT" ROUTINE 

eENOC 

’ AAAAARARRARTARRARHARERAAERERAAAEER TRAE 


ee ee 


9 ROUTINE TO HANDLE 
’ CALL *STAT®( FONT (, INT] ) 


+ FONT >@s NORMAL, @@8 NO CHANGE, <@¢ ITALICS 
y INT >@8 LP INTENSIFIED, 8@t NO CHANGE, <@t HIT NOT INTEN, 


Svate 
JSR PC, BUFPOL ) ENTER POLISH MODE AND CK *)* 
+GETONE 1 GET FONT 
*INTEGR » MAKE SURE AN INTEGER 
@SAVINT } SAVE ON STACK 
+SETOPT p INT IS OPTIONAL 
+GETNUM 1 CK "," ANO GET INT 
oINTEGR } MAKE SURE AN INTEGER 
22 ) EXIT FROM POLISH ‘e 
Mov FAC2(R5) »R2 9 GET INT 
NEG R2 ) NEGATE SO BITGET RETURNS VALUES 
JSR PC, BITGET 9 POS! 20,NEGs 38, ZEROS @ 
ast R3 
ast R3 
ast R3 9 PO8s 200, NEG: 380, ZERO: @ 
MOV R3,Re » SAVE IN RO 
MOV (SP)o,R2 9 GET FONT 
NEG R2 ) NEGATE SO BITGET RETURNS VALUES 
JSR PC,BrTGeT 
ASL a3 » POSt 4@,NEGt 68, ZEROS @ 
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03728 
@3722 


83726 


858308 
052708 
178800 
000167 
600246 


BIS R3,RO 3 SET FONT INTO RO 
BIS #170000,R8 y SET UP LOAD STAT, REG, A 
sme SOXIT s INSERT TO DPY/ CK ")"/ RETURN 


eIFOF =©6SOISK 


GTB 


GTB 
39 
48 
ay 
42 
43 
4a 


4s 
46 
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@3732 004767 
174252 
83736 825067 
177676 
@3742 204767 
176020 
03746 005767 
176656 
@3752 eB1424 
83754 eS2700 
118000 
83768 004767 
175760 
23764 016600 
eeeee2 
83770 056700 
176036 
03774 904767 
174658 
o4eee 0167280 
176830 
04084 060300 
04886 ed6200 
24918 962600 
Q4812 004767 
174632 
84916 o5016 
84020 oesaue 
a4a22 aeseee 
04024 052700 
132000 
04038 204767 
175718 
04034 Ba5716 
04036 801013 
84a48 205766 
eeoeee 
84804 g01018 
04046 905067 
175762 
@48S2 ai2716 
ITTF 
e4a56 9127280 
600101 
84062 204767 
174562 
84066 816600 
aooee2 
4072 a003ee 
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84874 B26200 
04876 2567200 

177434 
@4182 256700 

175724 
@4186 262680 
@4118 085726 
84112 056708 

175716 
O4116 200438 


ROOTS 


ROOTSE 


ROOTSS 


eSBTTL "ROOT® ROUTINE 
oENOC 
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RARRARAAARARAERAARARERAAAAERAREREERHE RAED 


9 ROUTINE TO HANDLE 


' CALL "ROOT™( OX, OY (yLeTeF,T)) 
JSR PC, BUFTST » ANY BUFFER? 

CLR aBS,F y RELATIVE SCALE 
JSR PC, ARGGET » GET ARGUMENTS 
TST XYBIG y ROOT OR VECT? 
BEQ ROOT) » ROOTe BRANCH 

ars #118008,R8 4 LONG VECTOR 

JSR PC,PUTSGM 1 SETeGRAPHICeMODE 
MOV 2¢8P),Re 9 GET x 

ais XSIGN,RO y SET SIGN (INVISIBLE) 
JSR PC,PUTWD y INSERT IT 

MOV YSIGN,RO » GET SIGN OF Y 
SwaB Re 

ASR RO 9 PUT IN BIT 43 
a00 (SP) 6,RO 9 ADO IN Y 

JSR PC,PUTWO y INSERT IT 

CLR (SP) » MAKE X # @ 

CLR (SP) » MAKE Y 3 @ 

CLR RO » CLEAN BITS 18 © @ 
ars #138008,R0 » ROOT MODE 

JSR PC, PUTSGM y SET@GRAPHICeMODE 
TsT (SP) 1 Y 8 OP 

BNE RDOTS 9 NOe BRANCH 

TST 2(3P) 1 YES= X = Q? 

BNE ROOTS  NO* BRANCH 

CLR YSIGN 3» MAKE Y POSITIVE 
MOV #1, (9P) 9 MAKE Y @ of 

MOV #101,RB 1 MAKE (8,01) ROOT 
JSR PC,PUTWO y INSERT IT 

Mov 2(SP),RO » GET X 

Swap RO ) SHIFT TO LEFT 


ase RO 

ars INVIS,RO 
ars XSIGN,RO 
aod (SP)4,R@ 
TST (SP)¢ 
BIS YSIGN,RO 
BR SOXIT 


alFOF SOISK 


RTei1 MACRO VMG2909 


MOVE TO BITS 7e12 
SET VISIBILITY 


SET SIGN OF X 
aod IN Y 
CLEAN STACK 
SET SIGN OF Y 


TAKE "STANDARO" EXIT 


16*0CT=7& 82:86:07 PAGE 226 


7! 
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1 eSOTTL "APNT® ROUTINE 

2 eENOC 

3 ’ Perr rrrriiiiiiiiyy 

4 

5 9 ROUTINE TO HANOLE 

. ’ CALL MAPNT® ( Xo Y CoboleFoT) ) 

8 804120 APNTS 

9 684128 884767 JSR PC, BUFTST » ANY BUFFER? 
174Q64 

18 @0124 810667 MOV SP,AG8,F 1 FLAG ABSOLUTE MODE 
1775128 

1% 9413@ wee ns JSR PC, ARGGET » GET ARGUMENTS 
1756 

12 84134 a52700 sis #114908,R0 9 SET UP MODE WORD 
114900 

13 84148 084767 JSR PC, PUTSGM 9 SETeGRAPHICeHODE 
178600 

14 @4144 916608 MOV 2¢SP),RO 9 PUT X IN RQ 
oeage2 

1S 415¢ tenes Jgr PC, ENTERP » TMMED POLISH 
17490 

16 04154 g@usia¢ #PO8x 9 MAKE X dag 

17 4156 bide BIs INVIS,RO 9 SET VISIBILITY 
177054 

18 4162 004767 JSR PC,PUTWD 9 INSERT X 
174462 

19 84166 212608 MOV (SP)4,RO 9 PUT Y INTO RO 

20 84178 805726 rst (SP)¢ 9 CLEAN STACK 

21 84172 684767 JSR PC, ENTERP » IMMED POLISH 
173768 

22 06176 804522° *POsy 9 MAKE Y >a@ 

23 84200 204767 SOXIT: JSR PCePUTHO y INSERT IT 
174446 

24 e42a0 eonret SOXITOs: JSR PC, INSERT 1 FLAG INSERT READY 
174534 5 

25 e4210 onere? ume CKRPAR 1 CK ")* ANO EXIT TO USER 
17438 

26 eIFOF = =©6S01SK 
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1 eSBTTL "VECT*® ROUTINE 

2 eENDC 

3 , RRERAHARAAHAARERAARARAAREARRERRARAH HERE 

4 

Ss » ROUTINE TO HANOLE 

6 ’ CALL PVECT™ (DX, DY Colyt,FoT) 2 

7 

8 @04214 VECTs 

9 004214 904767 JSR PC, BUFTST 3 ANY BUFFER? 
173778 

12 @4220 005067 CLR ABS, F y RELATIVE SCALE MODE 
177014 

11 04224 904767 JSR PC, ARGGET ) GET ARGUMENTS 
175536 

12 84230 085767 rst XYBIG y SHORT OR LONG MODE? 
1755746 

13 84234 9019906 BNE VECTS 1 LONG MODE BRANCH 

14 94236 052700 6Is #184008,Re 9 SET SHORT VECTOR MODE 
teagee 

1S @42u2 004767 JSR PC, PUTSGM ) SET@GRAPHIC©MODE 
175476 

16 @4246 080167 JMP ROOTS » FINISH UP IN RDOT ROUTINE 
177614 

17 @4252 052708 VECTes B18 #110000,R0 y SET LONG VECTOR MODE 
110000 

18 @4256 204767 gsr PC, PUTSGM ) SET@GRAPHICH@MODE 
175062 

19 84262 B166a0 MOV 2(8P),RO » GET x 
eeeee2 

28 04266 056700 BIS INVIS,R@ s FLAG VISIBILITY 
176744 

21 a4272 e50700 81s XSIGN,RO 1 FLAG SIGN 
175534 

22 @6276 024767 JSR PC,PUTWO y INSERT X 
174346 

23 94302 816708 mov YSIGN,R@ » GET SIGN OF Y 
175526 

24 84326 vee3ee SWAB Re 

25 84318 206200 asa Re ‘ s MOVE BIT 6 TO BIT 13 

26 4312 262600 400 (SP) o,RO 1 GET VALUE OF Y 

27 84314 805726 TST (SP)4+ 9 FIX STACK 

28 84316 800738 BR SOXIT y EXIT THROUGH APNT ROUTINE 


29 eIFOF = =SOISK 
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1 eSBTTL GENERAL SCALE*UNSCALE ROUTINE 
sENOC 
3 , RERAARAAREAAAAARARETATRAERAAHRARARAA RD 
4 
s 9 ROUTINE TO DO SCALING AND UNSCALING 
6 y VALUE T0 BE SCALED/UNSCALED ANO RESULT ARE IN FAC 
7 ) BE CAREFUL ON REGISTERS SAVED ETC, 
8 9 THIS ROUTINE IS RATSEO TO LEVEL 4 SO A LPEN INTERRUPT 
9 y WON'T CAUSE & STACK OVERFLOW 
18 
tt 
12 04320 SC,USC 
13 94320 905767 rst SCAL,F } 18 THERE ANY SCALING? 
176366 
14 Q4324 gaiaue Bea scuscy § NOw EXIT 
1S 84326 a16746 MOV PSW,=(SP) » SAVE PSW 
177776° 
16 04332 o52767 ars #200,PSW ) RAISE TO PRU 
200200 
177776 
17 06340 210146 MOV Ri,=(SP) » SAVE Ri 
18 @4342 B10246 MoV R2,*(8P) » SAVE R2 
19 94344 O19346 MOV R3,=(SP) 9 SAVE R3 
20 84346 B1duue MOV R4,@(8P) y SAVE RG 
21 84358 @19546 MOV RS, (SP) » SAVE RS 
22 04352 012702 Mov #4,R2 9 SET UP COUNT FOR WORD TRANSFER 
eegeos 
23 04356 085720 T8T (RODS § ADJUST POINTER 
24 84368 014946 SCUSCQs MOV ©(RO),=( SP) » TRANSFER? HI*ORDERsaLQ=ADORESS 
25 04362 05302 oEC R2 y OECREMENT LOOP COUNT 
26 04364 401375 BNE scusce ) BRANCH IF NOT DONE 
27 04366 012767 MOV WERSTAR,SERVEC 9 ERROR VECTOR FOR MULT, 
Oeuuzue 
eeeaees 
28 04374 904767 JSR PC, QIKPOL ) ENTER POLISH MODE 
173712 
29 au4ee eeus7a’ oPUSHF ) FLOAT FAC TO STACK 
3a 24402 ae00006 oSMLR y MULTIPLY : 
31 a44ue4 gauuser oRELABS s RELATIVE OR ABSOLUTE SCALE? 
32 04496 oa00006 #$A0R 1 DO AODITION IF ABSOLUTE 
33 04418 waoese’ +POP 1 PUT RESULT IN FAC 
34 @4432 agduyue et2 3 EXIT POLISH 
35 o4414 @12605 MOV (SP)4,R5 1 GET BACK R5 
36 G4416 212604 MOV (SP) 46,R4 
37 a442e@ 012603 MOV (SP)4,R3 
38 o4422 a12602 MOV (SP) 46,R2 y RESTORE REGISTERS 
39 g4424 Bi2601 MoV CSP)o,R1 
4@ 04426 012667 MOV (SP) 6,PSW » RESTORE PSw 
177776 
41 04432 @e0207 SCUSCI: RETURN 
42 
a3 ; awe GOES QUITE DEEP IN STACK #12 WORDS? 
au . / ah 
4S 04434 ERSTAR? C4 
46 04434 {e440 TRAP @ 
47 94436 117 eASCII /OVF/ . 
04437 126 i\ 
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eugue 126 
48 Guugy 208 sBYTE @ 
49 oEVEN 
SO @4442 B2A027 ERRDOIV: CMP RO, #4808 
804000 
51 @U446 183772 BLO ERSTAR 
52 84450 194400 TRAP ] 
53 auus2 184 ASCII /0VG/ 


@4453 126 
@uusa G68 


S4 @44ss 000 BYTE a 

$s EVEN 

56 

S7 eT FOF SOISK 


72 


ee 
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1 sean MISCELLANEOUS ROUTINES 

2 NOC 

3 , sheecevetnaensaneeanaenaenanesecenenenten 

4 

+) 9 SOME AUXILIARY ROUTINES NEEDED 

r 

7 084456 805767 RELABS: TST ABS,F » RELATIVE OR ABSOLUTE SCALE? 
177156 

8 824462 B214Ua1 Bea RELABO 9 BRANCH IF RELATIVE 

9 BQ4U64u 260134 POLRET y 00 ADDITION STEP IF ABSOLUTE 

18 84466 012665 RELABG@s MOV (SP) o,FACiCRS) 
eoeeue 

11 @0472 012665 MoV (SP)6,FAC2(R5) 7 STORE RESULT IN FAC 
eooeu2 

12 04476 222626 cme (SP) o,(SP)o y CLEAR STACK OF AOO CONSTANT 

13 @4See 200164 oMp (RU) » EXIT PAST ADD AND POP 
enegee 

ia 

15 04504 012767 OIVVECS MOV WERROIV,SERVEC » ERROR VECTOR FOR OIVISION 
ee4uu2? 
2eee00G 

16 06512 000134 POLRET 

17 

18 J SRARRAAARAARAAARAARAAAARARAAEEAREREREREE 

19 

28 9 SOME POLISH ROUTINES (AGAIN) 

at 

22 ea5i4 POSXt 

23 84514 G805767 TST XSIGN 9 CK SIGN OF x 
175312 

24 84528 800482 BR Pose y BR WITH CONDX CODES SET 

25 e4S22 POSYs 

26 84522 805767 TST YSIGN » CK SIGN OF Y 
175306 

27 @4526 egiuel POSes «© BEG POS! 9 BR IF RO mag 

28 aIFOF = SCRASH 

29 SMP ERRAOR + ARGUMENT OUT OF RANGE 

38 eENDC 

31 eIFNOF =SCRASH 

32 64538 eaSeee CLR RB 9 MAKE RO 8 @ 

33 2 ENOC 

34 @4532 980134 POSi: POLRET 

35 

36 B4u534 ERRAORS 

37 04534 194400 TRAP ) 

38 eIFNOF SLONGER 

39 94536 103 eASCIT = /AOR/ 

aas37 417 
e4sae 122 

4e eENDC 

at eo TFOF SLONGER 

42 eASCII /ARGUMENT OUT OF RANGE/ 

a3 oe ENDC 

Qa ga5at eee BYTE @ 

4s EVEN 

do 

47 @4542 810146 SAVERI3 MOV Ri,a(SP) 9 SAVE ONLY R1 ON STACK 
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48 94544 
a9 

$8 Q4uS4u6 
Si a4ss@ 
S2 eusse 
53 @4556 
54 guS62 
55 @4566 
So 04572 
$8 @4s74 
59 gueea 
68 G4ea4 
61 4686 
62 O6618 
63 O4614 
64 84628 
65 o4624 
66 84626 
67 846308 
68 84634 
69 84648 


TL Queue 
72 Ouo4ua 


280134 


012602 REVRSES 
012603 
B1b646 
eecece 
BLeoue 
eevee 
010366 
oeonee 
010266 
oe0006 
000134 


@36546 PUSHF! 
eecede 

@16546 

oeee4e 

01815 

0eS726 

10167 

288826 

010467 

eevees 

004767 

173666 
@00e0eG 
804638" 
@160781 

eoegee 
e167aG 

oee0ee4 

O80134 PSHXITS 


@60008 Mis 
802030 Mer 


POLRET 
MoV (SP)o,R2 
MOV (SP) oeR3 
MOV 2¢SP),°(SP) 
MOV 2¢SP),9(SP) 
Mov R3,6(SP) 
MOV R2,4(SP) 
POLRET 
“OV FAC2(RS)9@(SP) 
MOV FACLCRS) ,=(SP) 
BNE PSHXIT » EXIT IF REAL ALREADY 
TST (SP) 
Mov Rie Mt 
MOV RU,M2 
JSR PC, QIKPOL 
SIR 
e¢2 
MOV MLpRY 
MOV M2,RQ 
POLRET 
eWORD O 
e¥ORD @ 


a IlFOF SOISK 


yt 
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eet kek Ue 


- 
~ 


3 


GTB 


NOU EU 


24646 
@46U6 204767 
3173336 
4652 210067 
176762 
04656 004767 
173406 
C4662 Be4u542" 
84664 000536" 
84666 804770" 
04678 04514" 
84672 veiuse? 
04674 920076" 
24676 BeSoue" 
04708 ae4522° 
@4782 e04704" 
84784 912767 
1ooeee 
003574 
@4712 010067 
203618 
Q4716 012667 
003602 
04722 12601 
04724 Ba4767 
175106 
84738 810267 
000030 
O4734 000767 
173216 
04748 081702" 
84742 204767 
175070 
84746 010267 
200014 


04752 812767 
173400 
803526 

84768 Be%67 
173332 


24764 geeedd 
04766 ae0a00 


eSBITL 
eENOC 


"TRAK® ROUTINE 


SRAARRAAAAARARRENRSETHERARHERRERNNERENEE 


ROUTINE TO HANOLE 


CALL "TRAK® (X,Y) 


’ 
, 
y BECAUSE OF "GETAOR", X AND Y MUST BE 
’ 


VARIABLES, NOT CONSTANTS| 


TRAKE 
JSR PC, BUFTST 1 ANY BUFFER? 
MOV SP,ABS,F 9 FLAG ABSOLUTE MODE 
JSR PC,POLENT 9 ENTER POLISH MODE, CK "(¢* 
SAVERY 1 SAVE PTR To x 
GETONE y GET Xx 
*SCALEX 9 SCALE IT 
#POSx 9 MAKE SURE >8d 
+SAVERG 4s SAVE X ON STACK 
*GETNUM 9 GET Y 
+SCALEY » SCALE IT 
oPOSyY 9 MAKE SURE >a@ 
22 y EXIT POLISH WITH Y IN RO 
MOV #OJMP, BEG » TURN OFF TRAK IF IT WAS ON 
MOV RO,YT ys STORE Y IN TRAK 
MOV (SP)¢,XxT » STORE X IN TRAK 
“OV (SP) o,RY » RESET TOKEN PTR TO x 
Jse PC,GETAOR 4 GET ITS ADDRESS IN R2 
MOV R2, TRAKX y STORE THE AOORESS 
JSR PC, ENTERP » IMMED POLISH 
#CKOPCM 1 CK COMMA 
JSR PC,GETAOR 3 GET ADORESS OF Y 
MOV R2,TRAKY 9 STORE ADORESS OF Y 
y wae START TRAK ANO EXIT 
MOV *SOINT, BEG 5 START TRAK 
JMP CKRPAR + CK ")" AND EXIT TO USER 
TRAKX) ,WORD-@. y ADORESS OF CURRENT X VARIABLE 
TRAKYS ,WORD @ 9 ADORESS OF CURRENT Y VARIABLE 
eIFOF .$0ISK 
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8 884770 
9 004778 205067 


10 


175036 
34774 012700 
@06402" 
@5000 204767 
177314 
85004 004767 
@20000G 
85018 885765 
eeea4e 
@5014 ae1uge 
B5016 G00167 
177512 
@5@22 016500 
800e4e 
05826 a02030 
@503@ a12767 
920000 
174774 
@5036 905400 
05048 yeauesd 
esaue 
@5042 205067 
174766 
85046 912700 
006372" 
85052 @@4767 
177242 
05856 804767 
2880006 
85062 005765 
0000400 
85066 @014e1 
85078 #88752 
85072 816508 
oeeede 
5876 a8eoe4 
85108 B12767 
300180 
174726 
95106 gaS4uae 
85110 828027 
eeeooe 
85114 adeuge 


85116 812708 


SCALEXs 


XSCL2s 


XSCL@t 


xSCLis 


SCALEYs 


YSCLO! 


YSCLi3 


eSBTTL 
a ENOC 


POLISH SCALEX AND SCALEY 


RARARAARARARAARERERRAKRARERER EERE REE 


s ROUTINES (POLISH) TO SCALE X OR Y 
y SCALES FAC, SETS SIGN BIT, MAKE VALUE POS,, CK IF > 1923 


CLR 
MOV 
JSR 
JSR 
TST 


BEQ 
JMP 


MOV 
BGE 
MOV 
NEG 
BR 
CLR 
MOV 
JSR 
JSR 
TST 
BEQ 
BR 
“QV 
QGE 
MOV 
NEG 
CMP 
BLT 
a lFOF 
BR 
a ENOC 


a TFNOF 
mov 


XSIGN } ASSUME X >a @ 
MSCLX/RO } SET UP FOR SCALE x 
PC,S8C,USC } SCALE AS REQUIRED 

PC, INT ) INTEGERIZE 

FACICRS) } DID WE SUCCEED? > 
XSCLa 1) YES@ BRANCH 

ERRAOR } NOe CRASH 

FAC2CRS)»RO ! MOVE RESULT To Re 
YSCLi 1 BRANCH IF >a@ 


#20000,XSIGN y MAKE BIT 13 ON IF NEGATIVE 


RO y MAKE RQ > 9 

YSCLi CHECK RO < 1026 

YSIGN } ASSUME Y os @ 
WSCL,YORO » SET UP FOR SCALE Y 
PC, SC,USC y SCALE IT 

PC,INT y INTEGERIZE IT < 32767? 
FACi(RS) ’ 

YSCLO- 9 YESe BRANCH 

xSCL2 y NO@ CRASH 

FAC2(RS) RO 9 MOVE RESULT TO RO 
YSCLY 1 BRANCH IF >8@ 
#106,YSIGN 9 SET BIT 6 IF NEGATIVE 
RO 7 MAKE RO > O 

RO, #2000 » COMPARE WITH 1924 
YSCL2 » BRANCH IF LESS THAN 
SCRASH 

xSCL2 9 CRASH 

SCRASH 

#1777,R8 9 MAKE @ 1823 


ea 7 
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001777 


41 @5122 282134 YSCL2s 


2ENOC 
POLRET 
eIFOF =6SOISK 
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weenousune 


esi2d 
5124 


05132 


o5140 
aside 
eside 


85150 


85156 
85162 
OSt66 
o5172 
OS5176 


eseee 
e5202 


eSe10 
eS2i2 


@5216 
eS5220 
eS5222 
aS2e4 


85232 
85232 


XGRAS 
012767 
1200008 
280542 
012767 
177776 
880536 
220406 
YGRAg 
812767 
124000 
200524 
612767 
177778 
000520 
0@4767 GRA,as 
173026 
005067 
176452 
005067 
174636 
004767 
173072 
@80136° 
ees2e2° 
026727 
eeeu7e 
177776 
eo141e8 
004767 
173074 
804779° 
eeusiue 
eeSe22ue 
@12704 
@o5262° 
000134 
@04767 GRA: 


SBTTL "XGRA® AND "YGRA® ROUTINES 
Enoe 
Stans heesennssenannnnnenaneneansacneanes 


y ROUTINE TO HANDLE 
' CALL "XGRA" (DY, A [oL,I,F,T] ) 
f] CALL "YGRA" (DX, A ColelyFeT) ) 


ARRAY A MUST HAVE AT LEAST 2 ENTRIES 
IF AN ARRAY I$ USED WITH XGRA OR YGRA, THEN 
THE S$S2 ENTRY IN SYMTAB BECOMES «2, ©3 RESP, 
waNOTE THAY THIS MEANS THAT 
1) ONLY DIMENSIONED ARRAYS MAY BE USED WITH 
THESE ROUTINES, AND 
2) THEY MUST HAVE ONLY ONE SUBSCRIPT 
we AT PRESENT, SINCE THE PLOTTED DATA IS ABSOLUTE, 
AN ARRAY MAY BE USED IN ONLY ONE CALL 
(THIS CAN BE CHANGED WITHOUT TOO MUCH TROUBLE) 


we te ee we ee we 


Mov #128000, MODE ) MODE FOR GRAPH@Xx 

MOV #=2,832TMP ) NEW VALUE OF $82 

BR GRA,@ » BRANCH AND CONTINUE . 

Mov #124880, MODE 9 MODE FOR GRAPHey 

MoV #o3,SS2TMP y NEW S$2 FOR THIS MODE 

JSR PC, BUFTST y ANY BUFFER? 

CLR ABS.F » RELATIVE SCALE 

CLR XvBIG » ASSUME <6a 

JSR PC,POLENT » ENTER POLISH, CK "," 
*GETONE » GET DY OR DX RESP, 
ot2 + EXIT POLISH 

CMP S$S2TMP,H=2 9 XGRA OR YGRA? 

6eQ GRAw1 y BRANCH IF XxGRA 

JSR PC, QIKPOL ) ENTER POLISH 
+SCALEX SCALE OX IN YGRA 


U 
+POSx 9 MAKE SURE >8@ 
2 y EXIT POLISH 

MOV #GRA,3S/RG y NEW POLISH PC 


POLRET . 3 AND CONTINUE THERE 
JSR PC, QIKPOL y ENTER POLISH 
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173054 
42 85236 a8Seu2" oSCALEY » SCALE DY FOR XGRA 
G3 85248 gouse2?’ oPOSy 9 MAKE 990 
44 85242 2@144e°GRA,31 *TSTed ) CHECK IF < 6% AND ONTO STK 
4S a5244 gai7e2° *CKOPCM ) CHECK OPTIONAL COMMA 
46 @5246 gousu2? *SAVERI ) SAVE PTR TO ARRAY 
47 @525¢ 900340 +SKPARG 1 TO GET BY ARRAY 
48 a5252 203050° oUIFT 9 GET Lol,PeT 
49 95254 Q05256" a2 1 EXIT POLISH 
58 85256 256700 ars MODE, RO } ADD MODE TO SGM 
eeeute 
St 85262 10167 MOV Rt, MODE » TEMP, SAVE PTR TO "A" 
280406 
52 85266 gaa7e? gsr PC, NEWPUT ) INSERT IT/ FORCE NEW SGM 
1 
53 as272 o1esae mov 2(8P),Re 1 GET SCALED INCREMENT 
208 
54 25276 avieas BNE GRAL 1 BR IF Rese 
55 85300 GRagt ,IFDF © SCRASH 
S56 JMP ERRAOR ) ARGUMENT OUT OF RANGE 
57 eENDC 
58 eIFNOF SCRASH 
59 o5300 205200 INC Ra ) MAKE R@ ow 4 
68 sENDC 
61 85302 005767 GRALs = TST XYBIG ) EXCEED 63? 
174522 
62 85306 aaiuae BEQ GRA2 ) NO BRANCH 
63 .IFOF = SCRASH 
64 BR GRA 1 CRASH 
65 a ENDC 
66 vIFNOF SCRASH 
67 85318 812700 MoV #77,R8 1 MAKE © 63 
800077 
68 eENDC 
69 a5314 eszree GRAZ: BIS #170100,RB } LOAD STAT, REG, B 
174108 
78 95328 904767 JSR PC,PUTWO ) INSERT IT 
173324 
71 05324 a1270¢ MOV #OUMP, RO ) FOLLOWED BY DUMP 
160ee0 
72 05338 ooure? JSR PC,PUTWO ) INSERT IT 
173314 
73 @5334 812601 mov (SP)o,R4 ) POINT AT ARRAY 
74 05336 205726 TST (SP)+ 1 CLEAN STK 
75 @534a 112102 MOVB (R1)o)R2 
76 @5342 100011 BMI GRASYN 3 SHOULD NOT FIND A TOKEN 
77 @5344 gea302 SWAB oR 
78 85346 iS2ie2 BISB — (R1) oy, R2 
79 @535@ B61Sa2 ADO (RS) ,R2 ) ADR IN SYHTAB OF ARRAY 
8@ 05352 121127 cMPB CRI), Me COMMA ) BETTER BE FOLLOWED BY A *,* 
8000006 
81 05356 ae1ua7 BEG GRAS ) YES= BRANCH 
62 05360 121127 cuPB (R1),MRPAR ) OR MAYBE A #)m / 
2200006 Seek 
83 @5364 aeiuau BEG GRAS 1} YES@ BRANCH 
84 95365 280167 GRASYNE JMP ERRSYN 1 SYNTAX ERROR : 
oeeaees ! —- 
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8S @5372 880167 GRAARG: JMP ERRARG 9 ARGUMENT ERROR 
e0e00aG 
86 85376 822227 GRASS CMP C(R2)o, #02 1 BETTER BE AN ARRAY 
177776 
87 e542 001371 BNE GRASYN + NO# ERROR 
88 25484 812200 MoV (R2)4,RO » GET ADR OF (SCALAR BEFORE) ARRAY 
89 85406 822920 CMP (RB) o, (ROD& ys POINT TO AC@) 
92 @5418 004767 JSR PC, PUTHO } INSERT AFTER DJMP 
173234 
91 85414 811201 MOV (R2),R4 y 18 SSi >0? 
92 05416 803765 BLE GRAARG + NO= ERROR 
93 a5428 212046 MOV RO,=(SP) 1 SAVE AOR 
94 95422 Q10200 MOV R2,RO 
95 85424 GOu767 JSR PC, PUTWO y SAVE AOR OF SS1 
173228 
96 G543a 812600 “OV (SP)o,RO 9 RESTORE R@ 
97 95432 885022 CLR (Rede 9 MAKE SSiag IN SYMTAB 
98 85434 021227 CMP (R2), #91 1 CHECK $S2 « 937? 
177777 
99 05448 981354 BNE GRAARG » NO# ERROR 
120 5442 a16712 MOV SS2TMP, (R2) 1 STORE NEW SS2 
080230 
181 Sdu6 a1egee MOV RB,R2 4 STORE START OF SCALED ARRAY 
1@2 5450 210667 MOV SP,ABS,F 9 ABSOLUTE MODE 
176164 
183 el FOF SLPS 
104 5454 005067 CLR LPS F » ASSUME NOT AN LPS ARRAY 
O@0114 
185 S468 B12704 MOV #NARRAY,RG 1 NO, OF ENTRIES IN BUFFER TABLE 
eoeeouG 
186 5464 vatas3 BEQ GRA? y NOTHING THERE 
107 Su66 012703 MOV #TABLE,RS 1 AOR OF FIRST GeWORD BLOCK 
80v9806 
108 S472 921308 GRA6s = CMP (R3),RO y AOR, MATCH? 
109 S474 go1ee3 BNE GRAIG 1) NO# BRANCH 
118 5476 810667 MOV SP,LPS,F 9 SET LPS FLAG 
200072 . 
114 5502 9eeued BR GRAT y EXIT 
112 5504 062703 GRaie: A00 BL24,R3 9 GO TO NEXT BLOCK 
Ob014 
113 5518 005304 DEC Ra 3 ANY ENTRIES LEFT? 
114 5512 003367 BGT GRAG 1 YES= BRANCH 
1s sENOC 
116 S514 810803 GRATE MOV RO,R3 ) GET START OF UNSCALED DATA 
117 alFOF SLPS 
118 SS16 605767 TST LPSeF 7 AN LPS ARRAY? 
aeeese 
119 5522 o81ua3 BEQ GRATA 9 NO» BRANCH 
120 5524 906301 ASL RY 1 YESe DOUBLE ARRAY ENTRIES 
121 $526 a05ua1 NEG Rt 
122 5538 205201 INC Ri y MAKE eOIMet 
123 5532 GRATAY ,ENOC 
126 5532 a16100 MOV Ri,RO 
125 5534 oeu767 JSR PC,PUTWO y STORE S81 IN OPY FILE 
173118 
126 eo TFOF suPs a on 
127 $54@ 005767 Tst LPS.F 9 AN LPS ARRAY? a 


GT8 
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ssuq 
S546 
5550 


sssa 
$SS6 
S500 
5562 
SSo4 


5570 
ss72 
5574 
5576 
5ee2 


Sede 
5606 


5614 
Sete 
Se22 
Se24 
5626 
5630 
5636 
5636 
Soo 
Sege 


Sodo 
5650 


sese 


Sosa 
5660 
Soo4 
56078 


So74 
5676 
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200038 
ed1a1a 
eeSae1 
085767 GRAD 
ee0020 
ee1418 
012308 
010340 
10003 
0047607 
8080086 
012603 
000405 
000000 LPS.Fs 


@12365 GRALPS 
oeoe4e 
212365 
eeegde 


GRALP Is 

Q26727 
200006 
177776 
081405 
204767 
172070 
eeseue? 
004522° 
e0Seae* 
047607 GRAus 
172456 
004770° 
@eas14° 
eeSeu2" 
852700 GRASt 
eaoeeo 
@1e022 
005301 


882336 


016781 
000018 
12722 SOXITIs 
168000 
G16712 
172746 
000167 
176318 


@28e08 MODE: 
880808 SS2TMPy 


SCAL3 
004767 
172308 
000136° 
Oeu574? 
eeea26* 
eeeede 
200076" 
ee4s74u? 
eo¢e4e" 
004546" 
800076" 
oe4s7ue 
005732" 
016667 
200004 
eveuio 
016667 
000006 
eee4eu 
016667 
eoee14 
eoeuou 
016667 
600016 
eeeuee 
004467 
172438 
@B6234° 
0200086 
200176" 
002256" 
eeeoeeG 
000176" 
oeeaue? 
012667 
000364 
012667 
002302 
612767 
006352° 
008166 
604767 
Cae216 
212667 
000336 
012667 
820334 
@12667 
080302 


BEQ 
NEG 
Tst 


BEQ 
“OV 
“OV 
MOV 
JSR 


MOV 
6R 
WORD 
eENDC 
MOV 


MOV 
o IFOF 


eENOC 
cme 


Sea 
JSR 


JSR 


JMP 


eHORD 
WORD 
eTFOF 


oSBTTL 


a ENOC 


GRALP 
(R3)o,RO 
R3,0(SP) 
ROARS 
PC»FLOAT 


(SP)o,R3 
GRALPL 

t) 
(R3)o,FACICRS) 
(R3)o,FAC2(RS) 
SLPS 
SS2TuP, #02 
GRAG 

PC, QIKPOL 
+SCALEY 
#POSY 
*GRAS 

PC, QIKPOL 
*SCALEX 
oPOsx 

a2 
#48000,RO 
RB (R26 
Ry 

SLPS 

GRAD 


SLPS 
GRALP 


MODE,Ri 
#OIMP, (R2)o 
OISEND, (R2) 
SOxIT@ 

8 


"SCAL" ROUTINE 


~~ wee 
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NOe DON*T NEGATE 

USED >@ HERE 

AN LPS ARRAY? 

NOe BRANCH 

GET DATA 

SAVE R3 

SET UP FOR LPS "FLOAT® 
FLOAT INTO FAC 
RESTORE R3 

AND CONTINUE 
NON@ZERO IF LPS ARRAY 
GET DATA 


AND SECOND WORD 


XGRA OR YGRA? 
BR IF XGRA 
ENTER POLISH 
SCALE IT TO RO 
MAKE SURE >a @ 
CONTINUE THERE 
ENTER POLISH 
SCALE X TO RO 
MAKE SURE >= @ 
EXIT POLISH MODE 
MAKE VISIBLE 


STORE SCALED VALUE 
DECREMENT COUNT 


Loop 


Loop 

RESTORE Ri 

INSERT DUMP 

AND ADORESS 

CK ")" ANO EXIT TO USER 


GRAPHeX OR GRAPH=Y MODE 
NEW VALUE OF SS2MAX 
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RRARAAHANERERARRARRRARNRAERRERNRREERERE 


y ROUTINE TO HANOLE 
CALL "SCAL™CLLX/LLY,URX,URY [,INX,INY)) 


JSR 


“ov 


MOV 


MOV 


MOV 


JSR 


“OV 
MOV 
MOV 


JSR 
MOV 
“OV 
MOV 


PC, BUFPOL 


*GETONE 
+PUSHF 
+PLOOP 
+2 
+GETNUM 
+*PUSHF 
+ELOOP 
*REVRSE 
*GETNUM 
*PUSHF 
a2 
CSP),LLY 


6(SP),LLY¢2 


12.(SP),/LLX 


14, (°SP),LLXe2 


RG, FPPSAV 
oMULVEC 
+$SBR 
#NEGSTK 
*#POP 

*SSBR 
*NEGSTK 
+FPPRES 
(SP) o,Fx 
(SP) o,FXo2 


#USCL.Y,SCPTR 


PC, SCLGEN 
(SP) o,FYL 
(SP) o,8CLY 
(SP)o,IFY 


Se 


ENTER POLISH AND CK "(* 


GET LLXx 

FLOAT TO STK 

POLISH LooP 

TWICE 

GET "/LLY,URX® 
FLOAT TO STK 

END POLISH LOOP 
REVERSE LLU AND URX 
GET URY 

FLOAT TO STK 

EXIT POLISH, CK INK, INY LATER 


Savé LLY 


SAVE LLX 


ENTER POLISH AND SAVE REGISTER 


LOAD ERROR VECTOR FOR SUBTRACT 
LLY*URY 

URY@LLY 

SAVE IN FAC 

LLX@URX 

URX@LLX 

RESTORE REGS, AND EXIT POLISH 


SAVE URX@LLX TEMPORARILY 
POINTER m= LLYe2 


GENERATE SCALE IN Y 


STORE FYL = oFY@LLY 


wee 
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4@ 6042 012667 Moy (SP), 1FYe2 y STORE IFY w 1/FY 
600300 
41 86046 016567 MOV FACLCRS) FY 
TITTY) 
000318 
G2 06854 216567 MOV FAC2(RS) FYe2 » STORE Fy 
eeves2 
200304 
43 B6G62 B16765 MOV FX,FACi(RS) 
000306 
eveg4e 
44 86078 016765 MOV FXo2,FAC2(R5) 5 PUT URX@LLX IN FAC 
200302 
Boeade 
4S 86076 O12767 Mov WUSCL,X,SCPTR 9 POINTER = LLXe2 
006362° 
eeo1ed 
46 86104 804767 JSR PC, SCLGEN y GENERATE SCALE IN X 
000134 
47 @6118 212667 MOV (SP), FXL 
e0264 
48 @6114 212667 MOV (SP)o,SCL eX 9 STORE FXL w oFX#LLX 
eoe262 
49 @6120 012667 MoV (SP)o,IFX 
eve23e 
S58 86124 e12667 MOV (SP) o, IF Xe2 s STORE IFX @ 1/FX 
e08226 
Si 86138 016567 MOV FACi(RS),FX » STORE FX 
eaog4e 
000236 
S2 06136 016567 MoV FAC2(RS) ,FX42 
eeoeu2 
ee0232 ; 
53 ge14u4 ee Mov #FX,RO » SET UP SOURCE VARIABLE ADDRESS 
06374 
54 @615@ 204767 JSR PC,OPTSTR p STORE INX = FX IF USER WANTS IT 
eaarue 
SS 86154 016765 MOV FY, FACICRS) 
eeo2a4 
eeee4e 
56 @ol62 O16765 MoV FYo2,FAC2(R5) 9 MOVE FY TO FAC 
8ee200 
eeegue 
S7 060178 012708 | MOV WFY,RO y SET UP SOURCE VARIABLE ADORESS 
206364 
58 06174 904767 JSR PC, OPTSTR y STORE INY # FY IF USER WANTS IT 
000116 
59 06200 010667 SCAL@s MOV SP,SCAL.F 7 SCALING HAS BEEN DONE 
174506 
68 06204 080167 JMP CKRPAR + CK ")" ANO EXIT TO USER 
172106 
61 
62 06210 Be0000 SCPTR: ,wWORD @ 9 PTR FOR A POLISH ROUTINE < + 
63 sIFOF = SDISK \ Gr 
64 +E0T Meds 
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OEC = 11 © LBPGB e A= LA BASIC KERNEL VO2901 
GTB,MAC TAPE 4 OF 4 


THE INFORMATION IN THIS LISTING IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING, 


ee OOM eEWN 
-2 


12 THIS SOFTWARE IS FURNISHED TO THE PURCHASER UNDER A LICENSE 
13 FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 
4 INCLUSION OF OIGITAL’S COPYRIGHT NOTICE) ONLY FOR USE IN 
15 SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY 
16 DIGITAL, 
17 
18 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
19 USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
20 SUPPLIED BY DIGITAL, 
ral e 
22 COPYRIGHT (C) 1973,1974, BY DIGITAL EQUIPMENT CORPORATION, 
23 
24 AUTHORS OR, STEPHEN R, ALPERT AUGUST 1973 
25 eSBTTL ROUTINES AUXILIARY TO *"SCAL" 
26 2 ENOC 
27 , RAREAARRAEREREAERAEARRERER EERE NERA 
28 
29 » SOME NECESSARY ROUTINES TO ACCOMPLISH SCALING 
38 
31 86212 PSHPTRe 
32 @6212 16700 MOV SCPTR,RO 1 R@ HAS ADDRESS OF LO@ORDER WORD 
177772 
33 G6216 B11046 MOV £R8),°(SP) + MOVE TO STK 
34 g6220 a14046 MOV =(RB), 9 (SP) 
35 G6222 200134 POLRET 
36 
37 6224 TENGE 
38 26224 ge5Q46 CLR (SP) 
39 06226 O12746 MOV #42600,=(SP) y PuT 1824, ON STK 
042608 
4@ @6232 200134 POLRET 
4a. 
42 86234 MULVECS 
43 86234 012767 MOV #ERSTAR,SERVEC 3 MULT, ERROR VECTOR 
oeuuzue 
8OeeoRG 
44 G6242 200134 POLRET 
45 
46 , AERA RARARAAERERART RARER REED 7 v7. 
a7 
48 y SCALE GENERATOR ROUTINE 
4g 1 ON EXITs 
58 ' FX IN FAC 
St ’ FXL aT (SP), 2(8P) 
Se ’ IFK AT G(SP), 6(SP) ea - 
53 : ps 


54 @eaua SCLGENS 
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5S @6244 012667 MOV CSP) e,SCLSAV » SAVE RETURN ADDRESS OFF STK 
oeepu4 

5@ @625@ 984467 JSR RG, FPPSAV » SAVE REGS ANO ENTER POLISH 
172142 

57 @6254 aag2ue* oPUSHE » PUT 1,8 ON STK 

58 @62S56 ag6224° *TEN2G y PUT 1820, ON STK 

59 G626@ eeusau? +OIVVEC 4 OIVIOE ERROR VECTOR 

68 G6262 200234° *PUSH 1 PUT FAC ON STK 

61 06264 2000006 #SOVR 9 1020,/DIFF, = FX 

62 26266 000256" POP » PUT FX IN Fac 

63 86278 Be0234° +PUSH » PUT BACK ON STK 

64 B6272 8200006 #SOVR 9 Le/FX w IFX 

6S 86274 980234" oPUSH 9 FX ONTO STK AGAIN 

66 06276 080176" *NEGSTK 1 NOW oFX 

67 06382 a@6212° oPSHPTR 9 PUT LLX ON STK 

68 86382 806234° *MULVEC 5 MULT. ERROR VECTOR 

69 06304 geeeoeG +SMLR 9 FXL © @FXeLLX 

7@ 06306 C0@uu2° oFPPRES 9 EXIT POLISH AND RESTORE REGS 

71 86319 000177 Jue @SCLSAV » RETURN TO CALLER 
oeogae 

T2 

73 06314 B@ege@ SCLSAVs ,WORD @ » RETURN ADORESS 

74 eTFOR =6SDISK 
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: ply OPTIONAL STORE ROUTINE AND DATA LAYOUT FOR SCAL 
EN 
3 ’ sanescenesensansnnenssanceneesnnansnnses 
4 
5 y ROUTINE TO OPTIONALLY STORE (RO),2(R@) IN NEXT PARAM 
6 ’ IF THERE IS ONE, 
7 y RL POINTS TO COMMA BEFORE PARAMETER 
8 5 RO POINTS TO ENTRY TO BE MOVED 
9 
10 06316 OPTSTRs 
11 @6316 004767 JSR PC, QIKPOL 1 ENTER POLISH 
171778 
12 @6322 a0e0606° *SETOPT 9 SET OPTIONAL FLAG 
13 86324 001702° #CKOPCM 9 CK OPTIONAL ",* 
14 06326 006330" ot2 » EXIT POLISH 
15 06338 103404 acs OPTST@ y NOe A RIGHT PAREN 
16 06332 884767 JSR PC,GETAOR 9 GET ADR IN R2 
173598 
17 06336 a12g22 MOV CRO) +, (R2)% 
18 @6348 @12022 MoV (ROI o,(R2)6 » STORE RESULT 
19 06342 880207 OPTSTOs RETURN 
28 
21 ’ AREARRENHERHERNERERNERRRERERREETHEERERKE 
22 
23 y DATA STORAGE FOR SCALING 
24 
25 06344 90000 IFY? eWORD 0,9 a IFY © L/FY 
26346 oeeace 
26 06352 eevee LLY: WORD @ yuuY 
27 06352 g@8e08 USCL.Yt ,WORD @ 
26 
29 86354 ge8000 IFX: eWORD 8,8 > IFX 3 S/IFY 
86356 900000 
38 86360 g¥eoae LLXs «WORD O y LLX 
31 @6362 000008 USCL.Xs ,WORD @ 
32 
33 06364 ae0ee0 FYs NORD 8,8 , FY 
06366 200800 
34 96370 eevee FYL: "ORD @ > FYL & SFYRLLY 
35 06372 200008 SCL.Y! ,wORD Q 
36 
37 86374 oeenee Fxs eHORD 8,8 5 FX 
06376 aeogae 
38 06480 eg9008 FXL3 eWORD @ yp FXL 8 IFXaLLX 


39 @6402 aeeade SCL,X! WORD @ 
48 oT FOF SDISK 
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me DONTE Uwe 


ee 
fun 


= 
rw 


WR ee 
-e@ o@n~ 


nnn 
fun 


uw 
NOW 


ue 
oo 


w 
a 


GTB 


me COUNT Swe 


ere ratte 
OrneTNeun —o& 


nw 
-o oo 


uw 
eun 


Ou 
wn 


26 


G64gu 
06404 


86410 
Goaia 


86420 
@ou22 
@64e4 


06430 
86432 


26436 
G6440 
26442 
Geuug 
@6446 
06450 


@64u54 
06456 


AORCHKE 
@Q4767 
1734026 
016500 
ee0ee2 
021027 
177776 
Be1uaG 
003015 
@12700 AORCHIs 
177777 
020134 ADRCH2: 
816008 AORCHG: 
eo0e06 
805208 
802371 
005208 
205400 
006300 
20027 
eeoe04 
003765 
@8@167 AORCH3! 
0800006 


eSBTTL POLISH ROUTINE TO SORT VARIABLE TYPES 
oENOC 


RRARTRERERAARHERERERTERERRAERRERRRERERED 


1 ROUTINE (POLISH) TO RETURN IN RO 

’ o1 IF ARGUMENT IS SCALAR OR REGULAR ARRAY 
’ @ IF XGRA ARRAY 

’ 2 IF YGRA ARRAY 

’ 4 IF FIGR ARRAY 

a #* CRASH IF A STRING ARGUMENT 

» Ri POINTS TO PARAMETER IN TOKEN FORM 


JSR PC,GETAOR » GET THE ADDRESS 

Mov VARSAVCRS),RO 5 GET POINTER TO SYMTAB ENTRY 
CMP (RB), #02 4 ARRAY OR SCALAR? 

BEQ AORCHO 1 BRANCH IF ARRAY 

BGT AORCHS 9 BRANCH IF SCALAR 

Mov #=1,RO 9 FLAG AS #1 

POLRET y AND EXIT 

MOV 6(RB),RO 9 GET SS2MAX 

INC RO 

BGE ADRCH » BRANCH IF SS2MAX >m0t 
INC Ro 

NEG RO 

ast RO 9 R@ cow 2 « (RO % 3) 
CMP RO,8u 3s BETTER NOT BE >4 

BLE ADRCH2 9 IT ISN*T, EXIT 

uMP ERRARG y IT 18, FAIL 


ol FOF SOTSK 
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Bed6e 
Ge462 


Qo466 
86470 
B6472 
@6474 
@6476 
86500 
06582 


26586 


86512 
6514 
B6516 
ae520 
86522 
@eSeu 


06530 
86534 
86540 


86544 
86546 
86550 
06552 


46556 
06560 
@6562 
@6564 


26578 
86572 
6574 
26576 


86622 


26606 
20610 


06614 
Zeole 


APUTS 
084767 
171516 
eausue? 
eac3un? 
080076" 
@0usue’ 
@00234° 
e0e50e" 
B166a! 
ba¢eee 
O04767 
171680 
eGougue 
@80256° 
806522° 
8857280 
Go2002 
@08167 
2000286 
B10266 APUTL: 
avoae2 
@10667 
175100 
616007 
2865uu? 
adesse*Tis 
006564" 
086576" 
@B4767 APUTXS 
171534 
084770" 
Oeus5iu" 
086646" 
@04767 APUTYS 
171522 
easaue? 
eausee? 
006646" 
005067 APUTFs 
175036 
026065 
eaee24 
103012 
804767 
171342 
ee5oue* 
Q00367 


aS8TTL "APUT" ROUTINE 
eENOC 
AHARAR AA AAAR ARENT E NEAR RARER ENR 


s ROUTINE TO HANOLE 

’ CALL "APUT*® ( ACT), 2) 

1 "A" MUST BE XGRA, YGRA OR FIGR ARRAY 
» "2" CANNOT BE ANY OF THE ABOVE 


JSR PC, BUFPOL y ENTER POLISH AND CK "(* 
+SAVERL 1 Ri TO STK CPTR TO ACI) ) 
+SKPARG y SKIP OVER ACI) 

*GETNUM 1 CK ")" AND GET VALUE OF Z 
+SAVERS y SAVE PTR TO ")" ON STK 
*PUSH » SAVE Z ON STK 

t2 1 END POLISH MODE 

MOV 6(SP),RL y POINT AT ACI) AGAIN 

Jsr PC,QIKPOL » IMMED, POLISH 
+AORCHK 1 CHECK ITS TYPE 
+POP » PuT Z BACK IN FAC 

22 } EXIT POLISH 

TST R@ » XGRA, YGRA, OR FIGR? 

BGE APUT] 1 YESe BRANCH 

MP ERRARG y NO= CRASH 

MOV R2,2¢S8P) » SAVE AOR OF ACI) OVER PTR TO A(t) 

MOV SP,ABS,F 9 ABSOLUTE MODE (XGRA,YGRA) 

MOV T3CRA) APC 9 DISPATCH 
aPUTX ) XGRA 
oAPUTY 9 YGRA 
oAPUTF 1 FIGR 

JSR PC, QIKPOL y ENTER POLISH 
*SCALEX y SCALE IT 
+POSX » MAKE SURE >2® 
#APUT2 3 CONTINUE AT APUT2 

JSR PC,QIKPOL y ENTER POLISH 
#SCALEY y SCALE IT 
#POSY 1 MAKE SURE >8@ 
vAPUT2 y CONTINUE AY APUT2 

CLR ABS, F + FLAG RELATIVE MODE 

ROR SSISAV(RS) 1X OR Y ENTRY? 

acc APUTFQ 3 Xe BRANCH 

JSR PC, ENTERP + IMMEO, POLISH 
+SCALEY y SCALE Y 


SwaB YSIGN 


—, 


Gta 


ao 
a7 


48s 
a9 


so 
Si 


se 
53 
$4 


$s 


So 
57 
sé 
s9 


GTs 


me CONE MEUM 


V@teBt BASIC © GT ROOT MOD RT=13 MACRO VuG2~89 16°0CT=74 623061087 PAGE 3ue 


Boo22 
86626 


96632 
26634 


06640 
@6642 


86646 
B6606 
06650 
86654 
866600 


®o662 
86664 


06666 
86666 


86672 
Go674 
86676 
86700 
@o702 
06704 
@o718 
Go744 
26720 


@o720 


86732 
86736 
@60740 
@o742 
Bo744 


86750 
@6752 


86756 
06760 


06764 


06772 
86776 


870802 
87004 


87010 
@7014 


87020 
a7a2e 


173212 
800267 
173206 
856700 
173202 
beeues 
@24767 APUTFas 
171316 
004770° 
056708 
173164 
APUT23 
@126a1 
@17eu6 
eaeene 
e42e716 
137777 
eSee16 
@12636 
200406 


AGETS 
004767 
171312 
B@64ugu° 
801702" 
0067200° 
005700 
e02ee2 
@G8167 AGET3s 
0800206 
010667 AGETOs 
174724 
811265 
e8eg4ue 
e05865 
000040 
O42765 
040800 
eeegue 
@160e7 
006736°% 
O0O7U4°TOs 
ee7ee0" 
206752" 
@12700 AGETXs 
806362" 
aeeui7 
@32712 AGETFs 
e2eeee 
201405 
205465 
ee094u2 
652765 
176000 
eee 
005067 aGET2s 
174oae 
86065 
e00024 
103360 
@12700 AGETYs 
806352" 
004767 AGETI:2 
175304 
004767 
171272 
een23u° 
OBe4Que 


eSBTTL 
eENOC 


YSIGN 
YSIGN,RO 


apuT2 
PC, ENTERP 


#SCALEX 
XSIGN,RO 
CSP) o,R4 
CSP), (SP) 
#137777, (SP) 
RO, (SP) 

(SP) o,@CSP)¢ 


AGETa 
SOIsK 


"AGET® ROUTINE 


MOVE SIGN TO BIT 13_ 
SET SIGN BIT IN ANSWER 


CONTINUE AT APUT2 
IMMED, POLISH 


SCALE Xx 

SET SIGN 6IT 

POINT TO *)* 

GET VALUE 

CLEA ALL BUT VISIBILITY 
SET IN VALUE 


STORE A(t) 
EXIT THRU CKRPAR 
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RARRAARAAAARERERRRAAEREAAEERRRERAAARR EE 


3 ROUTINE TO HANOLE? 
CALL "AGET" ( ACI), Z) 

» "A" MUST BE XGRA, YGRA, OR FIGR ARRAY 
9 "2" MUST NOT BE ANY OF THE ABOVE 


JSR 


Ts? 
BGE 
IMP 
MoV 
mov 
CLR 


BIC 


MOV 


MOV 


BR 
BIT 


BEQ 
NEG 


BIs 


CUR 
ROR 


acc 
MOV 


JSR 
JSR 


PC, BUFPOL 


#AORCHK 
+CKOPCM 
ete 

RO 
AGETO 
ERRARG 


SP,AGS,F 
(R2),FAC2CRS) 
FACICRS) 
#48000,FAC2(RS) 


TOCRO),PC 


+AGETX 
+aGETY 
*aGETP 
BUSCLX,RO 


AGET{ 
#20880, (R2) 


AGET2 
Face(rs) 


ENTER POLISH AND CK "(* 


CK AOR OF a(I) 

ck #," 

EXIT POLISH 

XGRA, YGRA, OR FIGR? 
YES= BRANCH AND CONTINUE 
NO CRASH 


ABSOLUTE MOOE 

GET VALUE FROM ARRAY 
INTO FAC 

CLEAR INTENSITY. BIT 


OISPATCH 


XGRA 
YGRA 
FIGR 
UNSCALE XGRA 


y ANO CONTINUE 
» LONG VECTOR <9? 


NOe BRANCH 
YESe NEGATE IT 


#176008,FAC2(RS) 5» MAKE IT TRUE NEGATIVE 


ABS,F 
SSiSAV(RS) 


AGETX 
#USCL.Y RO 


PC, SC, USC 
PC, QIKPOL 


+PUSH 
*AORCHK 


FIGR IS RELATIVE 
x OR Y ENTRY? 


Xe BRANCH 
UNSCALE YGRA 


00 IT Now 
ENTER POLISH 


PUSH FAC ON STK 
CK AOR OF 2 
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48 07024 807026 et2 y EXIT POLISH 
41 87826 885700 TST Re 1 XGRA, YGRA, OR FIGR? 
42 07038 oe2325 8GE AGETS ) YESe ERROR => CRASH 
43 87032 O12622 MOV (SP) 4, (R26 » STORE UNSCALED RESULT 
44 87834 O12622 MoV CSP) eo, (R20 ’ AND REST OF IT 
4S 87036 800167 AGETU: JMP CKRPAR 1 CK *)*" AND EXIT TO USER 
171254 
46 eIFDF © SOISK 
> 
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1 eSBTTL "FIGR® ROUTINE 

2 eENDOC 

3 , Lala Raiaheheheiahehahhahehehchalchalehelahslsisleiahsialeielsisiehsiaiaishehel 

4 

5 y ROUTINE TO HANOLES 

: ’ CALL "FIGR™ (A [yp by Ie Fp T) ) 

8 oe7a42 FIGRe 

9 887042 804767 JSR PC, BUFPOL y ENTER POLISH AND CK "(* 
171136 

10 07046 aeusue’ +SAVERI ) SAVE PTR TO 4 ON STK 

11 87050 900340° #SKPARG 7 DON’T TRY TO EVALUATE IT 

12 07052 0032¢50° +LIFT 1 GET Le Ip Fe T 

13 07054 gousue? SAVERY 3 SAVE PTR TO ")* 

14 87056 287060" 2 y EXIT POLISH 

15 07368 952700 818 #118800,R0 3 LONG VECTOR MODE 
1120000 

16 07064 004767 JSR PC,» NEWPUT 1 INSERT SGM WORD 
171554 

17 07870 016601 MOV 2¢SP),R4 y POINT AT A 
eeagea2 

18 @7074 B12616 MOV (SP) 4, (SP) y CLEAN STK A BIT 

19 87876 112102 MOVB (Rid osR2 

20 @7100 100512 BMI FIGSYN s ERROR IF TOKEN HERE 

21 87182 282302 Swap R2 

22 87184 152302 e198 CRI) +,R2 

23 87106 g61502 400 (R5),R2 1 OFFSET TO SYMTAB 

24 @7318 822227 CMP (R2)o,#02 1 BETTER BE AN ARRAY 
177776 

25 87114 eariae BNE FIGSYN 1 NO» ERROR 

26 87116 212780 MOV #DJMP,RO 
160080 

27 O7122 004767 JSR PC,PUTWD » INSERT DUMP 
171522 

28 87126 al22ae MOV (R2)4,RO 3 GET ADDRESS OF ARRAY 

29 87138 e22e20 cup CRO) %, (RODe y POINT AT AC) 

38 07132 910003 MOV RO,R3 y PUT IN R3 ALSO 

31 27134 204767 JSR PCyPUTWO y INSERT IN OPY FILE 
171510 

32 07148 a1120% MOV CR2),R4 1 18 881 >@? 

33 @7142 a@3u6e7 @Le FIGARG + NO= ERROR (NOT ENUF ROOM) 

34 @7144 QVS301 DEC Rt 7 TO ROUND CORRECTLY 

35 07146 @52791 BIS BLDRY y MAKE O00 
082001 

36 87152 210208 MOV R2,RQ 

37 87154 004767 JSR PC,PUTWD y AOR OF S81 
171478 

38 7168 10100 MOV R1,RO 

39 A762 ene! JSR PC,PUTWO y SAVE SSi IN OPY FILE 
17146 

48 87166 025822 CLR (R2)¢ y ZERO SS1 IN SYMTAB 

41 87170 Bas52e1 INC Ri 1 ONE MORE SINCE ZERO TOO 

42 87172 021227 CMP (R2), Hot ) CHECK SS2 @ ={? 
177777 

43 97176 201051 BNE FIGARG y NO ERROR 

44 87200 a12712 Mov #=4,(R2) ) STORE #4 IN SS2MAX 


177774 
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4S 07204 010302 MOV R3,R2 y ALSO IN R2 

Go 87286 005067 CLR aBS.F 9 RELATIVE MODE 
174426 

47 7212 eesee! CLR SS2Tmp » SWITCH FOR TOGGLING 
176468 

4B @7216 812365 FIGRLPs MOV CR3)e,FACK(RS) 9 GET ARRAY ELEMENT 
060048 

49 @7222 012365 MOV CR3)o,FaC2(RS) 3 GET SECONO HALF 
002042 

S@ 87226 005767 TST ssetmp y X OR Y ENTRY? 
176446 

Si 87232 081010 BNE FIGRY » Ye BRANCH 

S2 87234 005267 INC SS2TMP » MAKE Y NEXT TIME 
1764836 

S3 07248 004767 JSR PC, ENTERP y IMMED, POLISH 
178712 

$4 87244 004770° *SCALEX y SCALE X RELATIVE 

55 07246 eeeiee ers XSIGN,RO 9 PUT IN SIGN 
172560 

Se 87252 eeeais BR FIGR2 9 INSERT IT ANO CONTINUE 

57 87254 985067 FIGRit CLR SS2TMP 9 MAKE X NEXT TIME 
176016 

56 07268 oeere JSR PC, ENTERP 9 IMMED, POLISH 
17067 

59 072604 e05eue* +SCALEY 5 SCALE Y RELATIVE 

6@ 87266 oreaet Swab YSIGN » SET SIGN BIT IN BIT 13 
17254 

61 87272 886267 ase YSIGN y ALL SET 
172536 

62 87276 056700 ers YSIGN,RO » SET IN RO 
172532 

63 87302 8560700 FIGR2: 818 INVIS,RO "9 LAG VISIBLE OR NOT 
173730 

64 87306 a1e¢22 MOV RO, (R2)o y INSERT SCALED WORD 

65 07310 005301 oEC RY 

66 07312 203341 8GT FIGRLP 9 LOOP IF NOT DONE 

67 87314 Bi2ee1 MOV (SP) o,R1 y POINT Ri AT &)* 

68 87316 200167 JMP SOXITS s INSERT/ CK ")"/ EXIT TO USER 
176336 

69 87322 800167 FIGARGs JMP ERRARG ) ARGUMENT ERROR 
8000006 

70 87326 O00167 FIGSYNs JMP ERRSYN 9 SYNTAX ERROR 
2000806 

11 sIPOF §=6SOISK 
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1 eSBTTL «"FPUT® ROUTINE 

2 eo ENOC 

3 , ARARARRARAAAAAARAARAAARAERRARENAAERERE 

4 

5 y ROUTINE TO HANOLES 

6 ’ CALL "FPUT"® (ACT) 22) 

7 » "A" MUST BE A FIGR ARRAY 

8 ) "Z" MUST NOT BE ANY OF FIGR,XGRA,YGRA 

9 

18 07332 FPUTS 

11 07332 004767 JSR PC, BUFPOL y ENTER POLISH AND CK *"(* 
170646 

12 87336 ge4usue* +SAVERS 9 SAVE PTR To ACT) 

13 07340 9020340" oSKPARG » SKIP OVER A(T) 

14 07342 804076° @GETNUM 9 GET Z INTO FAC 

15 @734u eg4su2’ oSAVERL 1 SAVE PTR TO *)* 

16 87346 g00234° *PUSH y SAVE Z ON STK 

17 0735@ 067352° eee » EXIT POLISH 

18 7352 166a1 MOV 6(SP),R4 y POINT RY AT ACT) 
a80006 

19 07356 ore JSR PC, QIKPOL » IMMED, POLISH 
178730 ~ 

20 87362 e@oucd? +#AORCHK » CK ADR OF A(T) 

21 07368 000256° +POP y PUT Z INTO FAC 

22 07366 007370" v2 » EXIT POLISH 

23 07370 a20027 CMP RO,#4 y R@ SHOULD BE 4 
eeeges 

24 07374 getuae BEQ FPUT@ + YES= BRANCH 

25 07376 000167 JMP ERRARG » NOe ERROR 
92000006 : 

26 27402 wie266 FPUTBS MOV R2,2¢8P) » REPLACE PTR TO ACI) BY ITS ADR 
eecede 

27 07406 805067 cLR aBS,F y RELATIVE MODE 
174226 

28 e7412 206065 ROR SSISAVCRS) y X OR Y ENTRY? 
eove24 

29 O7416 1203013 acc FPUTL 1 Xe BRANCH 

3@ 87428 804767 JSA PC, ENTERP 9 IMMED, POLISH 
170532 

31 074246 ge5Que* *SCALEY » SCALE Y TO RO 

32 87026 000367 Swas YSIGN 9 MOVE SIGN BIT 
172402 

3307432 906267 ASR YSIGN » T0413 
172376 

34 87436 16767 Mov YSIGN,XY8IG 9 SAVE SIGN 
172372 
172364 

35 @74u44 aseuee BR FPUT2 y AND CONTINUE 

36 @7446 BAGTET FPUT{: JSR PC,ENTERP y IMMED, POLISH 
170504 

37 07452 684772" +SCALEX y SCALE X TO RO 

38 @74S4 816767 MOV XSIGN,XYBIG 1 SAVE SIGN 
172352 
172346 

39 87462 816603 FPUT2s MOV 2¢SP),R3 » ADR OF ACT) 
eeease 


4@ 7466 O12616 MoV (SP) 4, (SP) y CLEAN STACK 


$4 
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41 07070 


42 a7474 
43 87476 


4&4 87502 
45 875040 


46 
a7 
4s 


ag 
50 
5i 
Se 
53 


O7510 
e7Si2 
O7Si4 


97520 
a7S522 
7524 
87526 
07530 


54 97534 
55 07536 


Se a7S54a2 
S7 @7S544 


sé 
s9 
68 
61 


62 
63 
64 


6s 
66 
67 
68 


69 
78 
71 
72 
73 
14 
75 
76 
7 
78 


79 


8a 
61 


82 


83 
64 


GT8 


OOBINTMNEWN 


97550 
07552 
@75540 
87556 


87562 
07562 
87564 


07578 
7572 
O7S574 
Q7576 


87602 
87604 


87619 


O7614 
O7616 


87622 
a762u 
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87626 
@7626 


87632 


87636 
07648 


@7644 
07658 


@7650 
27656 


87662 
87664 


Q7670 
a7e72 


O7676 
67780 
7782 


87706 
@7718 


O7714 
Q7716 
@772¢ 
O7722 


@7726 
87730 


O7734 
67736 


a7742 


87746 


064767 
000106 
e108e2 
056708 
172326 
@11346 
eu2716 
437777 
e5eate 
@12613 
005767 
172310 
O01401 
eesuge 


160402 FPUT3s 


905723 
022327 
168000 
OO1417 
021327 
162000 
ea1ui4 
204767 
e80e3e 
1ee2e4 
@02003 
2e5uou 
952704 
220000 


B11346 
@42716 
137777 
eSeulo 
B12613 
812601 
800167 
170514 


FPUTS3 


FPUTUS 


@1138G UNDOS 


e42e704 
240000 
e32704 
020880 
001403 
042704 
820080 
ee5ueu 


@80207 UNDOR! 


0850607 
888326 
204767 
170346 
007640" 
012700 
102000 
@O0767 
172074 
o12702 
@10162° 
000410 


122127 TEXTOs 


080000G 
081485 
124127 
A08000G 
ee15ei 
800167 
8008006 


@1e0G6 TEXTIs 


@1e246 
204767 
@oeaoeG 
103427 
Q04767 
1702402 
880006" 
812602 
B12o00e 
a1esas 
600e4e 
062003 
610667 
eoe224 
080752 
012704 
280015 
004767 
080216 
o12704 
eeeeie 


TEXT? 


TEXT3s 


gsr PC, UNDO ’ 
MOV RO,R2 U 
brs XYBIG,RO ' 
MOV (R3),0CSP) ’ 
BIC #137777, (SP) ’ 
BIS RO, (SP) ’ 
MOV CSP) 4, (R3) ’ 
rst xYBIG 1, 
BEG PPUTS ’ 
NEG Re ’ 
SUB Ru,yR2 ’ 
TST (R300 ’ 
cmp (R3) 4, #0JMP ’ 
BEQ FRUTG ’ 
CMP (R3),#0NMP , 
BEG FPUTY ’ 
JsRr PC, UNDO ry 
sub R2,Ra ’ 
8GE FRUTS ’ 
NEG RG ’ 
BIS #20080,/R4 ' 
MoV (R3),"(SP) ’ 
erc #137777, (SP) ’ 
BIS RG, (SP) ' 
MoV (SP) o-(R3) , 
MOV (SP) o,R1 ’ 
IMP CKRPAR ’ 


RARAAKERAARAAREERERREREEHE 


s ROUTINE UNDO 

y TAKE LONG VECTOR WORD PO 
y ANO PUT IT INTO RY 

a CALLED VIAg JSR PC,UNDO 


MOV (R3),RG ’ 
arc #48088,R4 , 
SIT #20008,R4 ’ 
8EQ UNDOe ’ 
Bic #22000,R4 ’ 
NEG Ra ’ 
RETURN ' 


a TFOF SOTSK 


eSBTTL * TEXT" ROUTINE 
ENDC 


GET ARG ACI) TO RU 


SAVE Z 
SET SIGN 


GET VALUE 
CLEAR ALL BUT VISIBILITY 


SET IN VALUE 
STORE IN ACI) 
Z POS OR NEG? 


POS@ BRANCH 

MAKE CORRECT REPRESENTATION 
ZeACT) IN RZ 

LOOK AT NEXT WORD 

END OF ARRAY? 


YES 
ENO OF ARRAY HERE? 


YES 
GET ACIe#2) INTO RQ 


RUcwsa(lo2)e(ZeA(1)) 
BRANCH IF POSITIVE 
ABS, VAL OF RY 

SET SIGN NEG, 


GET VALUE 

CLEAR ALL BUT VISIBILITY 
SET NEW VALUE 

STORE NEW A(Io2) 


POINT AT ")* 
CK ")" ANDO EXIT TO USER 


aeeeaeeaeeenee 


INTEO TO BY R3 


GET ARGUMENT 
CLEAR VISIBILITY 


POS, OR NEG, ? 


POS,* BRANCH 
CLEAR SIGN BIT 


MAKE CORRECT 
AND EXIT 


ERRRERER HERE RRERRERARERREAEHEEREREE EERE 


y ROUTINE TO HANOLES 

, CALL "TEXT"( <ARG, LIST>) 

1 WHERES 

! 4#Nt <CR> AND N <LPD> 

' @t <CR> AND NO <LF> 

’ eNt SHIFT@OUT STRING FOLLOWS 

! RS OR "STRING": STRING DATA 

y IF SHIFT@OUT, ONLY RIGHTMOST S BITS 

9 IF SHIFT@IN, IGNORE ALL NON@PRINTABLES 

CLR SHIFT ) DEFAULT TO SHIFT IN 

JSR PC,BUFPOL y ENTER POLISH, CKM(® 
22 y EXIT POLISH 

MoV #100088,R0 1 SET CHARACTER MODE 

JSR PC,PUTSGM y INSERT IT 

MOV wCBUFF,R2 y R2 POINTS TO RO 


BR TEXTL U 
CMPB CR1) 6,4, COMMA ’ 


Bea TEXTS ’ 
CMPB (RL), RPAR ’ 
Bea TEXTAl ’ 
sme ERRSYN ’ 
MOV RO," (SP) s 
MOV R2,9(SP) ’ 
JSR PC,EVAL , 
acs TEXT? , 
JSR PC, ENTERP ’ 

+INTEGR ’ 
MOV (SP)o,R2 ’ 
MOV (SP) 4,RO ' 
MOV FAC2(R5)0R3 ’ 
BGE TEXTS ’ 
MOV SP, SHIFT ’ 
BR TEXT@ ’ 
MOV BLS,RG ' 
JSR PC +LOCHAR ’ 
MOV #L2]ARG ’ 


GET FIRST ARG, 
OO WE HAVE A COMMA? 


YES@ GET ARG, 
NO@ NO MORE ARGS? 


YES~ EXIT 
NOe ERROR 


SAVE CHAR, BUFFER 
AND PTR 
GET ARG, 


BRANCH IF STRING 
IMMEO, POLISH 


INTEGERIZE IT 
RESTORE PTR 

RESTORE BUFFER 
COUNT INTO R3 


BRANCH IF CARRIAGE 
FLAG FOR SHIFTSOUT 


GET NEXT ARG, 
INSERT <CR> 


INSERT IT 
INSERT <LF> 
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a3 
aa 
4s 


a6 
a7 
48 
uo 
se 
Si 


s2 
53 
sa 
5s 


56 


S7 
se 


59 
68 


ot 
62 


63 
64 
os 
66 


67 
08 
69 
78 


1 
72 


73 
74 
75 
76 
17 


78 
79 


8a 
81 
62 


GTB 


83 


64 
as 
86 


87 
88 


69 
98 
1 
92 
93 
94 
95 
9 
97 


98 
99 


100 


101 
102 
103 
104 


07752 @057083 
@7754 083740 
87756 804767 

eee2d2 
87762 085303 
87768 080773 
87766 212603 
87778 Bi2ed2 
07772 812608 
87774 B20327 

U77777 
18000 001437 
10002 B10146 
10004 111303 
18006 062703 

800003 
10812 005767 

eoed2 
10016 @@1434 
10620 812706 

000016 
18826 e42708 

177748 
18030 20427 

00017 
10834 081019 
10036 004767 

oee12e 
10842 012706 

eeegue 
10046 004767 

eee112 
10052 812706 

20016 
10056 004767 

000302 
10862 112384 
18064 905301 
10066 002356 
18078 e1e704 

800017 
10074 004767 

200Ge4 
18108 0050607 

200054 
10104 @12601 
18126 280663 
19118 112300 
18112 881403 
10114 120027 

290040 
19120 Be2ue2 
10122 084767 

080036 
10126 005303 
10138 001367 
10132 000764 


TEXTSs B&Q 


TEXT2: MOV 


TEXT7s Bre 


TEXTL34 JSR 


TEXT6s CLR 
TEXTi@s MOV 
TEXT6s MOVE 


TEXT9OAS JSR 


TEXT9s DEC 
BNE 
BR 
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10134 032702 
800001 
10140 @d14ues 
18142 @65004 
18144 @04767 
oeea1G 
18158 004767 
178578 
10154 900167 
17¢136 


18162 802000 
10162 800000 


10164 110422 
189166 @32782 

@200e1 
10172 201005 
10174 816788 

177762 
8208 884767 

170044 
@204 B85742 
@206 Bee207 


TEXTits BIT 
BEQ 
CLR 
JSR 
TEXTI2s JSR 
JMP 


SHIFTS ORD 
CBUFF; WORD 


R3 

TEXTS 
PCeLOCHAR 
R3 

TEXTS 
(SP) o,R3 
CSP) ¢,R2 
(SP)o,RO 
R3, Hal 
TEXTS 
Ri,e(SP) 
CR3),R4 
#3,R3 
SHIFT 


TEXT6 
#L6,RG 


#177748,RQ 
RG,817 


TEXT43 
PC,LOCHAR 


#48,RG 
PC, LOCHAR 
#16,R4 
PC, LOCHAR 
CR3)o,RU 
Rt 


TEXT? 
WIT, RG 


PC,» LOCHAR 
SHIFT 


(SP) o,R4 
TEXT@ 
CR3)0,RG 
TEXT9A 
RG, #48 


TEXTS 
PCeLDCHAR 


RY 
TEXT6 
TEXTI@ 


ANY TO 00? 
NO@ EXIT 
YESe INSERT IT 


DECREMENT COUNTER 
CONTINUE IN LOOP 
GET PTR 70 STRING 


RESTORE BUFFER AND PTR 
NULL STRING? 


YES* CLEAR SHIFT IF SET 
SAVE RI 

GET LENGTH OF STRING 
POINT AT STRING 

SHIFT OUT? 


NO= BRANCH 
SHIFT@OUT 


CLEAR ALL BUT 5 LOORDER BITS 
BETTER NOT BE SHIFT#IN 


NO@ CONTINUE 
PUT IN SHIFT IN 


AND SPACE 

PUT IT IN 

AND SHIFT our 

INSERT IT 

LOAO UP NEXT BYTE 
DECREMENT LENGTHeL 
STORE BYTE IF NOT AT END 
INSERT SHIPT©IN 

INSERT IT 

CLEAR SHIFTSOUT FLAG 
RESTORE Ri 

GET NEXT ARG, 

GET CHAR, 

LET NULLS SLIP THROUGH 
PRINTABLE 


NOe DON?T PRINT IT 
YESe INSERT IT 


DECREMENT BYTE COUNT 
CONTINUE IF MORE LEFT 
RESTORE Ri AND GET NEXT ARG 
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#1,R2 
TEXT12 

Ra 
PC,+LOCHAR 
PC, INSERT 
CKRPAR 


FILLED EVEN NO, OF BYTES? 

YES= BRANCH 

MAKE LAST BYTE = @ 

LOAD UP OPY FILE WITH LAST WORD 
INSERT INTO FILE 

AND EXIT 


SHIFT=OUT FLAG 
CHARACTER BUFFER 


’ RAARARREAERRAER EN ENEN ER REER RARER RANE 
y LOAD CHARACTER ROUTINE 


LOCHAR: MOVB 
> Bit 


BNE 
MOV 


JSR 


ts? 

LOCH@! RETURN 
vIFOF 
eIFOF 


RU, (R2)¢ 
B1,R2 


LOCHS 
CBUFF,R@ 


PC, PUTWO 
=(R2) 


SCLOCK 
SOTSK 


PUT BYTE INTO RO 
OOD OR EVEN BYTE NEXT? 


OD0° DON’T INSERT YET 
LOAD UP DPY WORD 


EVEN@ CAN INSERT NOW 


POINT BACK AT CBUFF 
RETURN TO CALLER 
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@1s210 
18210 


Se ek Ue 


11 16234 
12 10216 
13 10220 
14 16222 


15 18226 
16 18230 


17 18234 


18 18242 
19 18246 
28 19252 


21 10256 
22 10260 


23 10264 
24 18266 


25 10272 
26 10276 
27 16302 
28 10306 


29 10312 
30 10314 


31 10320 
32 18322 


33 10326 
34 10330 
35 16332 


36 18336 


37 10344 


TIMES 
O04767 
170054 
000136" 
000006" 
910222" 
085767 
000152 
001055 
813746 
200004 
012737 
018366° 
2og8e4 
005737 
177546 
012637 TIMMs 
200004 
065767 
080122 
001041 
816588 
eeeeue 
8e3eae 
800167 
0800006 
012067 
200156 
205067 
@00156 
812708 
000100 
030067 
177546? 
OG1u1G 
021027 
@10402" 
021804 
805767 
200130 
081406 
aoeue2 
O11067 TIMES 
800128 ‘ 
@12767 
060006 
000114 
012760 TIMEG! 
080300 


eSBTTL "TIME" AND *"TIMR® ROUTINES 
oENOC 
ARHRREHRREAARARERERAAEERRRONRNADRAAREE 


y ROUTINE TO HANOLES 
, CALL "TIME" (A) 
y WHERE A IS THE NUMBER OF TICKS WANTED 


JSR PC,POLENT y ENTER POLISH, CK *(* 
+GETONE » GET A 
wINTEGR + INTEGERIZE IT 
2t2 y EXIT FROM POLISH 
TST OSPTCH 9 GOT A CLOCK? 
BNE TIMES ) NO@ EXIT 
MOV O#4,0(SP) » SAVE LOC 4 
MOV #HERE, O44 y MAY AOR 
TST O8177546 9 GOT ONE 
MOV (SP)o,004 9 RESTORE Loc 4 
TST OSPTCH y» WELL 
BNE TIME2 9 NO CLOCKE EXIT 
MOV FAC2(R5),RO 1 GET COUNT IN TICKS 
BGT 26 y CONTINUE IF POSITIVE 
JMP ERRARG 9 NO@ ERROR IF <s@ 
MOV RO,TIMEC y SAVE TIME COUNT 
CLR TMSW } ASSUME NO ONE ELSE USING CLOCK 
MOV #188,RO y USE FOR LKV AND BIT 6 
BIT ROrLKS 9 CLOCK INTERRUPT ENABLED? 
BEQ TIMES 1 NO# BRANCH 
cme CRO), #TMR s MY OLD REQUEST? 
BNE TIMES 9 NO@= BRANCH 
TST TMRAOR y ANY AOR FROM LAST TIME? 
BEQ TIMES 9 NO» BRANCH 
BR 2e6 » YES@ BRANCH 
MOV (RO), TMRADR 1 YES@ GET LKv 
MoV #6, TMSW y SEY UP PROPER EXIT 
MOV #380,2¢R8) 9 PUT IN BRO 
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38 18352 
39 18356 
4@ 18362 
41 10366 
42 10372 


43 18376 
44 18480 


46 10402 


47 10406 
48 10018 


49 1o414 
5@ 10420 
St 10422 
S2 16424 
53 10430 
54 10434 
S5 10449 
56 10442 
57 10458 


59 19454 
6@ 10456 
61 10460 


78 {e462 


71 18466 
72 10478 


73 10474 
74 $@U76 


75 1052 


o00gde 
012710 
@1euae’ 
012067 
177546" 
@00167 TIME2: 
1607736 

O12716 HERE? 
810246" 
010667 

8ecede 

eeaoee 

@00000 OSPTCHs 


@@5767 TMRe - 
@b0046 
OO341e 
305367 
200048 
905767 
e80e4e 
201001 
aeeeoe 
080177 
280026 
866797 TMROS 
b0082e4 
005067 
177546° 
aeeeee 
816767 
@00a1e 
208120" 
000177 
000100" 


@20008 TIMEC! 
@880800 TMRADRY 
@68008 TMSWy 


204767 TIMRS 
167602 
B12470° 
OO4767 
171342 
ee5e2e 
@16722 
177752 
800167 
167618 


MOV #TMR, (RO) 7 PUT ADR AT LKV 

MOV ROeLKS y ENABLE CLOCK 

JMP CKRPAR 7 CK ")" AND EXIT TO USER 
MOV #TIMM, (SP) 9 RET AOR 

MOV SP,DSPTCH 9 SIGNAL NO CLOCK 

RTI 

«WORD @  NON@ZERO TF NO CLOCK 
TST TIMEC 9 TIME ELAPSED YET? 

BLE TMRO » ENO OF .00P? BRANCH 
DEC TIMEC y DECREMENT THE COUNT 
rst TMSW y ANYBOOY ELSE? 

BNE aed 1 YES 

RTI 1 NO= CONTINUE 

JMP @TMRAOR + GO TO HIM 

a00 TMSW,PC y AND OISPATCH TO EXIT 
cLR LKs » CLEAR CLOCK STATUS REGISTER 
RTI 

MOV TMRAOR,LKV 9 GIVE BACK VECTOR 

vMP OLKV y AND CONTINUE THERE 
"ORD 8 » NUMBER OF TICKS 

WORD ® 9 OLO CONTENTS OF LKV 
WORD 8 y ENOING TYPE ( @ OR 6) 


HARE RRERAAAE RARER A EAR REREE ARERR 


y ROUTINE TO HANOLE? 
’ CALL "TIMR"C(E) 
y RETURNS THE CURRENT VALUE OF TIMER IN E 


JSR PC,POLENT y ENTER POLISH, CKM(® 
ate 9 EXIT POLISH 
JSR PC,GETAOR » GET AOR OF E IN R2 
CLR CR2)4 9 ZERO HI@ORDER WORD 
MOV TIMEC, (R2)o » SAVE CURRENT # OF TICKS 
JMP CKRPAR 9 CK *)" AND EXIT TO USER 
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Cer ee eed 


9 819506 
18 10506 
11 10510 
12 10512 
1310514 
14 10516 
15 10520 
16 18522 
17 19824 
18 19526 
19 10530 
2@ 10532 
21 10534 
22 10536 
23 105490 
24 10542 
25 10544 
26 10546 
27 18550 
28 10552 
29 10554 
38 10556 
31 10568 
32 10562 
33 10564 
34 19566 
35 1857a 
36 18572 
37 18574 
38 10576 
39 18680 

18602 
48 10604 
41 10606 
42 10610 


44 19612 


oSBTTL 


BEGs 
160000 
10576" 
018520° 
177777 TaAGis 
288800 
178208 TAG2:. 
117126 
208008 XTr 
eeeeea YTs 
104,49 
057600 
077677 
@40177 
@40177 
877677 
057600 
040077 
077777 
057777 
@57677 
074900 
e4ee17 
007400 
O4Q136 
0474808 
O4oe17 
173400 
oeoaae 
137124 RSTFILS 
000000 
808008 
170240 
160080 
@L1BSG6°DSTOPs 


@0088@ OCRASH: 
800001" 


eENOC 
eIFOF SOISK 


OISPLAY FILE BEGINING 
eENOC 
AAAAONAAAAAO RNAP HHEREERARERERER RNA EEE 


) THIS PORTION MUST BE LINKED BOTH TO THE RT#11 
» SCROLL BUFFER (IF THERE IS ONE) AND THE REST OF THE 
» USER*S DISPLAY FILE. 


Dump THE START 
ORSTFIL REST OF FILE IF TRAK OFF 
+TaGa ADR FOR TRAK SUBP 
“1 TAG FOR TRAK ROUTINE 
»WORD @ NEXT TAG POINTER 


e WORD 179200 
WORD 117128 
oe WORD r) X POSITION 

eo WORD e Y POSITION OF TRAK 
WORD 1804148 4 SHORT VECTOR LP ENABLE 
eWORD 576000 

eo WORD 776077 

2 ¥ORO 40177 

«WORD 4Q177 

WORD 776077 

«WORD 57608 

oWORO 40877 

WORD 77777 

«WORD S7777 

e WORD S76077 

WORD 74008 

e WORD 40017 

WORD 67480 

«WORD 68136 

@ WORD a7aee 

2 WORO 40017 

WORD SDINT 1 END OF TRAK SUBPICTURE 
eWOROD t] 


LO, STATUS REG, A 
APNT, Iau, Tag 


Se 


2WORO 117126 5 APNT L3OFF, Ima, FROFF, Tee 

«WORD 6.8 ' AT €8,0) 

2 WORD 178248 1 LO STAT REG A, NORMAL FONT, LP INT 
OJMP 3 DJMP TO START OF FILE 

eWORO §=BEG s INITIALLY TO TRAK OBJ 

ne g » LAST WORD IN OPY FILE (EXCLUDING TEXT) 
. 
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SYMBOL TABLE 


ABS,F 20364aRG 
ADBAS  901334R 
ADRCHG ge6432R 
ADRCHS B06456R 
AGET B06666RG 
aGETY @07204GR 
AGET2 986772R 
APNT G04 20RG 
APUTFA @26634R 
APUTS 806539R 
ARRAYSw 000010 
BITNEG @83230R 
BUFTST @00218RG 
CKEOL 820324RG 
CKOPCM 01702aR 
CKRPAR O00316R 
CONTA @@2US54RG 
ODFOERR agd664uR 
OISX #2 eaeene G 
OIVVEC @eusauR 
OSPTCH 810400R 
OSsTP 8G2360RG 
ENTERP a00156R 
ERAS} @0152aR 
ERASG 601576R 
ERRARGS sanene G 
ERSS$ =92226R 
ESXIT B9B1338R 
FaAC2 8 000042 
FIGRLP 67216R 
FIGSYN @87326R 
FIXS 8 aneane G 
FPPSAV @60416R 
FPUTI OB7446R 
FPUTG @07574R 
FX 8964g0R 
GETAOR B02U36R 
GETAD2 802332aR 
GETAD6 802310R 
GETNUM 800076R 
GETSAV 902026R 
GRAARG @85372R 
GRASYN @25366R 
GRA.3 = BBS2uaR 
GRAIB = =BBS5QUR 
GRAY @85630R 
GRAT Gessi4R 
GTVECTS weenee G 
FX @6354R 
INITA oa25euRG 
INIT3 = 8@2670R 
INSXIT @81804R 
INTEGO gevs2aR 
LOCHAR 619164R 
LIFT@ @63126R 
LKS 8 177546 
LLY @06350R 


ACTENO 
ADRARG 
AORCHI 
ADRSYN 
AGETF 
AGETO 
AGETS 
APUT 
APUTX 
APUT2 
BEG 
BITZER 
BUFTS 
CKLPAR 
cKOPca 
CKRPAQ 
CONTO 
OISEND 
OISsy s 
OJMP os 
DSR 2 
€,00P 
ERAS 
ERaS2 
ERASS 
ERROIV 
ERSTAR 
EVAL 8 
FIGARG 
FIGRI 
FIX 
FLOAT 8 
FRUT 
FPUT2 
FRUTS 
FY 
GETADS 
GETAOS 
GETAOT 
GETONE 
GETSYN 
GRALP 
GRAB 
GRAQ 
GRa2 
GRAS 
GRATA 
HERE 
Try 
INITS 
INSERT 


“INT a 


InvIS 
LOCHe 
LIFTS 
LKV 2 
LOCNo2 
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SYMBOL TABLE 


LOOPCT geaesuR 
LPENT 2@1666R 
LPENF @O1700R 
LPINTO 083272R 
LPINT3 883524R 
LPNINT 903240R 
MSG SZ suvene G 
M2 @e4ougaR 
NEWPUT @@0044R 
NSTERR O@1146R 


OFF @2302URG 
ONO 6@2750R 
ONS 203012R 


OPTST® seesueR 
POLENT @08270R 
PoSsx Ge4514R 
POS1 @B4532R 
PSHPTR gB6212R 
PUSH @00234R 
PUTSGM 901744UR 
Putt 608724R 
PUTS @@865aR 
QIKPOL 2800312 
ROOT! @o4e2uR 
RESTR 8@2472R 
REVRSE @@4S546R 
R@ =X%200000 
R2 =x%ee0002 
RS =%800005 
SAVINT @00000R 
SCALEY @25042R 
SCLGEN @@62u4R 
SCL.Y 006372RG 
SCUSC1 @84432aR 
SOXIT ¢84200R 
SETNEC 080860R 
SKPARG @800340R 
SKPA2 @00400R 
sp 8%000006 
SS2TMP @8S676R 
STOPB @62436R 
STOVARS weeene G 
SUBPY @810340R 
SUBG @88552R 
TABLE = swrawe G 
TAGSRH @61414RG 
TaG2 @10520R 
TEXTO 287656R 
TEXTL1 @10134R 
TEXT? @87766R 
TEXT6 O1B110R 
TEXTS O18126R 
TIME 81821 0RG 
TIMEL 810332R 
TIMR @10462RG 
TMR@ @1043aR 
TRAKX @24764R 


Q806GORG 
8G224uaR 
@8642uR 
Be2244R 
086752R 
O8671aR 
@867Q4R 
BB64S2RG 
og65s2r 
BB6646R 
@t@SQ6RG 
883234R 
B0@226R 
@08276R 
O01734R 
900334R 
882470R 
808636RG 
warene 6 
160008 
wannen G 
80G04OR 
OGL 45ORG 
881S260R 
901554R 
@@44g2R 
OBG434R 
warnen G 
@8732aR 
007254R 
@0303eRG 
aeatee 
907332RG 
887462aR 
887562R 
886364uR 
882234R 
802336R 
@02310R 
8@81360R 
080146R 
085576R 
@8S156R 
285300R 
@@53,4R 
8056a2R 
@@5532R 
818366R 
@86344R 
@82616R 
880744R 
ananan G 
883236R 
@18206R 
O83174R 
0ad1ae 
@e2210R 
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LPADR 8888S6R 
LPENX 801670R 
LPEN@ 801622R 
LPINT1 @83310R 
LPINTG 883554R 
LPS,F OO5574R 
MULVEC 886234R 
NARRAYS satnan G 
NOSC 88271 4RG 
NSTSK BO1412RG 
OLOMOD § B81764RG 
Ont 002730R 
OPARGF 2@0@74R 
PC 2%800007 
POLRETs 800134 
POSsY 904522R 
PRY = 000200 
PSHXIT @@464uOR 
PUSHF @e4S74uR 
PUTS@ 881762R 
PuT2 @00732R 
PUTS @80700R 
RooT 683732RG 
RELABS 9804456R 
RETURN® 080207 
RSTFIL @18576R 
ROSAVEa G8da4uu 
R3 84000003 
SAVER® @01452R 
SCAL 8OS7OORG 
SCAL,F @@27142R 
SCLSAV O@6314R 
SCPTR @06210R 
SC,USC 984320RG 
SDXIT@ o@42eQuR 
SETOPT @29066R 
SKPAQ oee4iaRr 
SKPAS @83344R 
$SiSavs ogea24 
STAT 8836G2RG 
STOPC o82420R 
susp G81 0Q6RG 
SUBP2 @B1154R 
suBt @oe5uuR 
TAGEND @891436RG 
TAGXIT @8143aR 
TEN24 egee2uR 
TEXTL 887676R 
TEXT12 @4815OR 
TEXT3 @877360R 
TEXT? 010024R 
TEXTOA B10122R 
TIMES @18454R 
TIME2 010362R 
THR @12482R 
TMSW @10460R 
TRAKY BB8766R 


ACTST 
AORCHK 
AORCH2 
ADSTK 
AGETX 
AGETS 
AGETU 
APUTF 
APUTY 
ARGGET 
BITGET 
BUFPOL 
CBUFF 
CKLSYN 
CKOSYN 
CONT 
OCRASH 
DISINT 
O1se 
opc os 
osToP 
ELOOPe 
ERASO 
ERAS3 
ERRAOR 
ERRSYNe 
Esus 
Fact s 
FIGR 
FIGR2 
FIXSP = 
FPPRES 
FPUTO 
FPUTS 
Fx 

FYL 
GETAD) 
GETAOS 
GETARG 
GETOUT 
GETVARS 
GRALPI 
GRA, 
GRAY 
GRAS 
GRA6 
GRAQ 
HIFREES 
INIT 
INIT2 
INSRTF 
INTEGR 
LcLooP 
LIFT 
LIFt2 
ULx 
LOFREES 


LPEN 
LPENY 
LPEX! 
LPINT2 
LPINTS 
MODE 

Mt 
NEGSTK 
NSBAS 
NUMOUTS 
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O0ee42RG 
@0eueaR 
@06430R 
@81362RG 
086744R 
@87018R 
@B7836R 
@26576R 
@06564uR 
8B1766R 
083214R 
@ad204R 
O1d162R 
@803G6R 
@O174aR 
oe245eRG 
186% 2RG 
G88466R 
8805a6R 
kennan & 
@10610RG 
eoeaseR 
9815e2R 
@81572R 
O@US3aR 
aenane G 
O01 250RG 
800040 
O87B42RG 
08730eR 
aakeee G 
eeo4uer 
ea74ug2R 
807S2uR 
886374R 
806370R 
ee225aR 
@2344R 
880152R 
888332R 
aennen G 
8OS5606R 
@0523aR 
005302R 
@O5376R 
@e5472R 
@e555eR 
8eee12 
@B258eRG 
O02606R 
BOG634RG 
@ecadeR 
882162eR 
88385eR 
8O3152R 
806360R 
eoge14 
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881 682RG 
8O1674R 
@O3620R 
8a3442R 
803570R 
@@5674R 
@84eueR 
880176R 
O813604R 
aaawan G 
Q82724RG 
BB3016R 
@86316R 
888d26R 
B@G256R 
884526R" 
Oed3sue 
177776 
@aa24eR 
@ee650R 
860714R 
088672R 
824066R 
@04466R 
O80166R 
@82446R 


Ri 8%000001 
Ra 82000004 


SS2Sava 
STOPA 
STOP .F 
SUBPO 
SuBP3 
S$uBb2 
TAGHED 
TAGS 
TEXT 
TEXTi® 
TEXTS3 
TEXTS 
TEXTS 
TGLOOP 
TIMES 
TIMM 
TMRAOR 
TRAK 
T8764 


eeusuar 
@24770R 
eae20aR 
@864g2RG 
@84360R 
173408 
885660R 
@1G169R 
@803660R 
808356R 
800026 
B02364RG 
@d24ugR 
@81a4aR 
BO1174R 
oees7ark 
OO1G34UR 
OLOSLGRG 
807626RG 
@101040R 
81 8056R 
007754R 
@18190R 
@a1420R 
@1a3g4R 
@182460R 
G1 e456R 
BO464ORG 
8O14G0R 


GTB Valea! BAST 
SYMBOL TABLE 


a) Q06736R 
UNDO@ 887624R 
USRARES aannen G 
VECT@ ge4252R 
XGRA @e5124RG 
XSCL2  885016R 
XYBIG O8203aR 
YSCLi @e511eR 
YT @18526R 
SADR 8 tanner G 
SOEPTHs 000012 
SOVR 8 naeeee G 
SLPS) = ga0080 
SSTRNGS Q9080e 
eEOL & tannne G 


« 468, 800000 
010014 

ERRORS OETECTEDs 

FREE CORE: 17006 


oLPtsPERPAR,GTL, 


PERPAR ee PERIPH 


OOVOME We 


33 202800 


37 200800 


46 880000 
47 880000 
48 008000 
ug 880000 


$3 poeoern 
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Tt @865qgR UNDO @070g2R 
USCL,X 086362R USCL.Y @96352R 
VARSAVS 900022 VECT OB4214RG 
wot @Q7G0RG woe @O87G2RG 
xSCLO =. gase22R XSCL1 =. @aS@geR 
XSIGN =@82832R xT @1052GR 
YGRA @O5142RG YSCLO @ose72Rr 
YSCL2 085122R YSIGN @82034R 
ZERNUM 980124R Sa0C == B0008e 
SCLK 8 988008 SCLOCKs ge8e00 
3010 = 8082800 SOIS s goge00 
SERVECS eanane G SIR B aneeee G 
SMLR 8 weeene G SSBR 6 
SVT11 = Geg0ee COMMAS 6 
aL PAR = aannee G eRPAR & axenae G 
206 
Oo1 

8 

« WORDS 

GTB1,G782,67T83,67B4 
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TITLE PERPAR ©= PERIPHERAL SUPPORT PACKAGE PARAMETER MODULE, 
DEC@119L BPAAwArLA BASIC KERNEL V@2=01 
COPYRIGHT (C) 1974 


OIGITAL EQUIPMENT CORPORATION 
MAYNARO, MASSACHUSETTS 81754 


’ 
’ 
’ 
’ 
U 
i] 
’ 
’ 
) THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

} CHANGE WITHOUT NOTICE ANO SHOULD NOT BE CONSTRUED 
p AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
s DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
7 MAY APPEAR IN THIS DOCUMENT, 

' 

’ 

’ 

5 

, 

’ 

' 

’ 

U 

U 


THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO 
CAN BE COPIED (WITH INCLUSION OF DEC*’S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DEC, 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
WHICH IS NOT SUPPLIED BY DEC, 


3 THE CONDITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEMBLY 
y OF THE FUNCTION TABLE MODULE "FT8L,MAC", 

3 TO OBTAIN THE DESIRED CONDITIONAL DEFINITION(S), © 

s REMOVE CUSING AN EDITOR) THE 

s SEMIT@COLON APPEARING BEFORE THE CONDITIONAL, 


 SOISKa@ HOEFINE FOR RT@41 
elFNOF SOISK 
SSTRNGSO 900 NOT DEFINE FOR PTS BASIC WITHOUT 
WSTRINGS,@ DEFINED FOR PTS VO1 WITH STRINGS 
eENOC t 
SLPSsO sOEFINE FOR LPS 
eIFOF SLPS 
$V80 sDEFINE FOR LPS WITH VECTORS STARTING 
’ ’ AT 308, OEFAULT SETTING IS VECTORS AT 
’ ’ 348, SET SV 3 ANY OTHER DISPLACEMENT IF 
’ ’ VECTORS START AT DISPLACEMENTS 
’ 1 OTHER THAN @ OR 4@ FROM 
, ’ VECTOR 308 
SAOCEG VINCLUDE A/D ROUTINES, 
SCLKsQ VINCLUOE CLOCK ROUTINES, 
SOlOse sINCLUDE OLGITAL 10 ROUTINES 
SOISsO PVINCLUDE DISPLAY ROUTINES, 
eENOC SLPS 
VT1t8@ sFOR GT4@ (GTu4) ‘ 


~~ wane 
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a TFOF 


@80G80 SCLOCKad 


600000 
oovee! 
ea00ee 
200803 
200004 
eeoees 
208006 
080007 


oENDC 
.€0T 


SVTI 
HPOR SYSTEM CLOCK (KWIEL) 


eTITLE GTC V@lea1 BASIC = GT DISK OVERLAY MODULE 


U 
t 
' 
' 
, 
’ 
, 
' 
' 
U 
' 
U 
U 
U 
’ 
U 
, 
, 
' 
’ 
' 


DEC@1 LL BPGCwAoLA BASIC KERNEL V@2001 


THE INFORMATION IN THIS LISTING I$ SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING, 


THIS SOFTWARE 


IS FURNISHED TO THE PURCHASER UNDER A LICENSE 


FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 
INCLUSION OF DIGITAL’S COPYRIGHT NOTICE) ONLY FOR USE IN 
SUCH SYSTEM, EXCEPY AS MAY OTHERWISE BE PROVIDED IN WRITING BY 


DIGITAL, 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL, 


COPYRIGHT (C) 


AUTHORS 
a TFOF 
eSBTTL 
oENDC 


1973,1974, BY DIGITAL EQUIPMENT CORPORATION, 


DR, STEPHEN R, ALPERT AUGUST 1973 
SOI8K 
GLOBALS, EQUATES 


REGISTER ASSIGNMENTS 


ROBB 
Risxi 
Resxe 
R3ex3 
RusKg 
RSsxs 
SPaxo 
PCBA7 


GLOBALS 
oGLOBL 
a IFOF 

eMCALL 
eMCALL 
2GLOBL 
»GLOBL 
oENOC 

o TFNOF 
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200207 
177776 
160008 
173400 


eeea4e 
eeoede 
080018 
aovete 
eoea14 
800074 
eoee7e 
goers 
288076 


sGLOBL 
»GLOBL 
GLOBL 
eGLOBL 
2GLOBL 
GLOBL 


EQUATES 
RETURN 
PSw 
OJMP 
SOINT 


EQUATES 
FACia 
FaC2s 
ARRAYSS 
HIFREES 
LOFREES® 
HISTRs 
LOSTRs 
POLa 
BUFCHNS® 
elPOF 


TO COMMUNICATE WITH ROOT SECTION 

SAVE, FIXSP,FIXO,FREE,BUFTST 

SOISK 

sDSTATUS, LOCK, »UNLOCK, «CLOSE, «LOOKUP, ,SRESET 
eENTER, -READW, gWRITW, FETCH, CSISPC 


RSTR, FREEGET, FREES 
SAV2a,SAVERT 

SVTONLY 

RTSON, NARRAY, TABLE 

SOISK 

IGNORE y FROM BASICR 
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MSG,,LPAR, RPAR, -EOL,ERRSYN 

NUMOUT, ERRARG, CKEOL 

NSTSK,ESUB, INSRTF,STOPA,TAGL,ACTST 
ACTEND, BEG, WO1,WO2,DSTOP,OLDMOD 

DISEND, CONTA, TAGEND, AOSTK,OCRASH,WO1,WD2 
CONT 


a 207 5 RTS PC 

zed 9 PROCESSOR STATUS WORD 

3 169080 yA DISPLAY JUMP 

8 173400 9 4 STOP OISPLAY AND INTERRUPT 


FROM BASIC 
4a 

42 

18 

12 

14 

74 

72 

4 

To 
SOISK 
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1 eSBTTL "SAVE® ROUTINE 
2 sENDC 
3 3 REARERAAERAERARARADRAERERARAERNERREN EEE 
4 
5 ) ROUTINE TO HANOLES 
6 ' CALL "SAVE" (( <PILE DESCRIPTOR> )) . 
? 
8 ) MUST HAVE EXTRA WORD BEFORE START OF EACH SUBPICTURE 
q ) REGISTER USAGES 
18 ’ R@ © "GET" WORD POINTER 
il ’ Ri = AOR STACK POINTER CINITIALLY #ADSTK) 
12 ’ R2,R3 © FAST STORAGE 
13 ’ RG © "PUT" WORD POINTER 
1a ’ RS © BACKWARD POILTER FOR TAG LINKED LIST 
15 
16 eeaee SAVE 
17 @@000 010146 MoV Rip@(SP) » SAVE Ri 
18 g@0e2 B1e5u6 HOV RS,0(SP) » SAVE RS 
19 88006 995777 SAVEBs TST ONSTSK » CURRENTLY BUILDING A SUBPICTURE? 
0800006 
20 o@010 ee14e3 Bea Save } NO BRANCH 
ai eIFDF «= SCRASH 
22 TRAP r) 
23 eASCIZ /STILL IN SUBPICTURE/ 
26 BYTE @ 
2s oEVEN 
26 oENOC 9 SCRASH 
27 eIFNOF = SCRASH 
28 88012 006767 Isr PC,ESUB y PUT IN AN EXIT 
ee00eeG 
29 88016 000772 BR SAVE@ » TEST IF ENOUGH 
30 »ENDC 
31 @@@20 085767 SAVOs §=TST INSRTF » INSERT PENDING? 
eeecees 
32 08026 001375 BNE Save 9 YES= LOOP UNTIL FREE 
33 y INITIALIZE 
34 89026 904767 JSR PC,STOPA y STOP THE DISPLAY 
0e0eees 
35 90032 e12700 MOV ATAGLO2,RO » GET PTR TO 18ST SuBP 
eeesees 
36 20036 e10005 MOV RO,RS » SAVE FOR LATER USE 
37 00248 011000 SAVis = MOV (RO), RO } GET POINTER 
38 a9042 g01495 Be@ save ) BRANCH IF ALL SUBP DONE 
39 90040 B1 4002 MOV =(RO),R2 9 GET AOR OF sSuBP 
4@ 20046 210203 MOV R2,R3 » PUT AOR IN R3 ALSO 
41 00052 g10243 Mov R2,0(R3) » PUT AOR OF SUBP BEFORE suaP 
42 00052 822020 CMP CRO) 6, (RODS y MOVE R@ TO NEXT TAG 
43 09054 200771 BR Savi 9 AND LOOP 
4a y SET UP FOR COMPRESSION OF OPY FILE 
GS @@056 085015 SAV2s CLR CRS) + ZERO WORD FOR TAG SEARCH 
46 08060 016700 MoV ACTST,RO y "GET" PTR 
eeenees : 
47 20004 10000 MOV RO,Ra 9 *PUT® PTR \ 
48 88006 210546 MoV R5,(SP) » WRITE ENABLE \ 
49 90078 012701 MOV #AOSTK,RI 1 REST OF FILE AOR STACK Zz 
0000006 A 
5@ 80074 20067 SAV3: CMP R@,OISEND » DONE YET? 
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0009006 
51 e@1a@ 103154 BHIS = SAVS 1) YES= BRANCH 
S52 00102 e12003 MOV (RO) o,R3 » GET WORD 
53 80124 100407 BMI Sava 1 OPU INST,* BRANCH 
54 82106 012746 SAVCON: MOV #SAV3,@(SP) } FAKE A JSR PC 
eovo7u" 
55 80112 o85766 SAVSETs TST 2¢8P) ) WRITE ENABLED? 
eeogee 
56 Q0116 agi1ual 8€0 +4 1) NO» BRANCH 
57 g@128 a10324 MOV R3,(R4)+ 1 YES= PUT WORD 
58 90122 000207 RETURN » EXIT 
59 } PROCESS OPU INSTRUCTION (SOME OF THEM) 
6@ 88124 g20327 Sava: CMP R3,a0JMP 1 A DISPLAY sump? 
168000 
61 20130 Beiuae BEQ SAV6 ) YES@ BRANCH 
62 80132 e202? cue R3,MDUMP os 1 A JUMP FROM SUaP (OFF)? 
16000 
63 00136 gates BEG SAV ) YES* CONTINUE 
64 @814@ @20327 cme R3,#SDINT + & STOP DISPLAY? 
1734008 
65 80144 a81977 BNE SAV? ) NO» BRANCH 
66 1 HERE IF SDINT OR DUMP 
67 @0146 o@572@ Saver TST (RO) } NEXT WORD ZERO? 
68 G015¢ 201467 EQ Save 1 YES= (SOINT/@ CASE)= BRANCH 
69 08152 e21060 cup (RO), 60RQ) 1 ACTIVE SUBP FOLLOWS? 
eeoga6 
78 00156 o@1e23 BNE save 1 NOw BRANCH 
71 80168 085716 TST (8P) } WRITE ENABLED? 
72 80162 ee1ee2 BNE Savio 1 YES BRANCH 
73 8164 o12703 MOV AOIMP,R3 1 CHANGE SOINT TO DUMP 
160008 
74 @817@ 810546 Savigs MOV RS, (SP) ) WRITE ENABLE 
75 ge172 210324 Mov R3,(RG)6 ) INSERT SOINT OR DUMP 
76 @0174 aieuat MOV Ru,=(Rt) ) SAVE PTR TO-"REST OF FILE ADR® 
77 88176 a22024 cup (RB), (RODS 1 R@ TO TAG, R4 TO SUBP AOR 
78 + INSERT ADR OF SUBP IF FOLLOWING 
79 90200 a1d4u14 MOV Ru, (RU) ) OFFSET FOR NEW ADDRESS 
88 ae2d2 eelee 400 #18, (RO)> y ADO TO POINT TO CORRECT WORD 
eevee! 
81 80286 @i1a14 SAVI8: MOV (RQ), (Ra) ) MOVE TAG 
82 92210 e22e20 cup CRO o, (RODS 1 POINT "GET" AT SuBP=2 
83 a@212 B10415 SAVIit MOV RU, (RS) 1 SET NEW LINK IN TAG CHAIN 
84 aG214 aas724 18T (R4)e } POINT TO "NEXT TAG PTRE 
85 a@216 aiaues MOV R4,RS } SAVE NEW BACK PTR 
86 40220 aose2u CLR (R46 ) ZERO PTR TO STOP SEARCH 
87 a0222 ai2e2u MOV (RO) 6, (ROS 5 MOVE ADDRESS BEFORE SUBP 
88 @e224 900723 ar $Av3 1 AND CONTINUE 
89 } HERE IF AN ACTIVE SUBPICTURE DOESN°T FOLLOW SDINT OR DUMP . 
98 @@226 205716 SAVOs = TST (SP) } WRITE ENABLE? \A. 
91 @0230 201003 BNE = SAVL2 1 YE8e BRANCH \ \e 
92 00232 a62790 SAVid: A00 #6,RO ) MOVE RO Po 
200006 
93 20236 oae716 BR SAv3 1 AND CONTINUE 
94 80240 020327 SAVi2: CMP R3,eONMP ) A DISPLAY JUMP? = 
1eeeee wh 
95 o@244 woi1g08d BNE SAVA3 ) NOe BRANCH : 
96 @8246 o21¢0~8 cup (RO), RO ) SUBP FOLLOWS? oe 
SY 


GTC 


VOl-o1 84S 


97 8250 
98 ee252 
99 ee254 


100 
104 
102 
183 


104 
1205 


186 


107 
106 
189 


118 
iii 
12 
413 
14 
115 
116 
417 
118 
119 
128 
tat 
lee 
123 
124 
125 
126 
127 
128 
129 
130 


i3t 


132 
133 


134 
135 


136 
137 
136 
139 
148 
tat 
142 
143 
144 
145 


GTC 


146 
147 
148 


149 
158 
151 


152 
153 
154 
155 
156 


157 
158 


159 
16@ 
161 
162 


163 
164 


165 
166 
167 


168 
169 
170 
171 


172 
173 


174 
175 
176 
177 
178 
179 


188 
161 
182 
183 
164 
185 
186 


187 
188 
189 
190 
194 


8256 
8260 
@262 


@266 
8270 


e274 


0300 
e302 
0304 


0310 
e312 
e344 


8316 
0320 
e322 


e324 
8326 


0330 
0332 
0334 
e336 
e340 
O3u2 


e344 
9346 


352 


8356 
8360 


@364 
8366 


0372 


O374 
9376 
2400 
04g2 


e404 
8486 
8410 


183770 
aeseue 
080766 


010326 
O1euya 
@oe724 
200818 
@12e14 
012782 
0000006 
16202 
eeceee 
@e1ues 
14203 
26314 
177776 
081405 
@0S722 
800767 


e240aau 
005726 
@B0743 


910324 
880727 


805726 
881060 
010324 
@e5eeu 
21043) 
@0065u 


010302 
@42702 
083777 
20227 
110800 
e814e1 
020227 
120000 
183650 
620227 
1249a@ 
181245 


005720 
e22020 
12003 
@t2e23 


302003 
8eS343 
@e5a13 


VO1e@1 6AS 


e4te 
eure 
2420 
Bu22 


@426 
O43 


aa32 
au3u 


ou4ug 
e442 


3446 
045@ 
e452 
a4usa 


8460 
b4o2e 


466 
e470 
au72 


6476 
9500 
e502 
e504 


2a510 
osi2 


O516 
52a 
e522 
aseu 
8526 
0530 


8534 
a536 
a540 
e542 
e5aa 
0546 
8558 


e550 
@556 
8560 


¥@6223 


a12713 
177777 
000625 


21027 
166000 
@01227 
800762 


005726 
812467 
@8B0006 
12024 
@12467 
8000006 
@1ee24 
812605 
812601 
@16782 
2000006 
1208 
9167283 
@000826 
@1034e 
001425 
@04767 
@e0e36 
010302 
OB1uel 
@e4aue 
804767 
g00824 
e112ee 
005860 
177776 
16@408 
e1ee2e 
205722 
011203 
201486 
012746 
808476" 
811208 
109400 
010822 
O06207 
210400 
205748 
0167408 
2000006 
1604108 
@062108 
6852190 


IC © GT 


9 HERE 
SAVi3s 


Savist 


7 WERE 
SAVi6s 


pair 
1 HERE 
SAVi73 


) HERE 
Savas 


» HERE 


Sav2zar 
Sav2ass 


Ic = GT 


y HERE 
SAVi94s 


y HERE 
SAVSt 


SAV204 


AORSETS 


Savets 
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810 SAVia ! 
CLR =(SP) ! 
BR Savig ’ 
IF SOINT/ SUBP BACK 

MOV R3, (RUS ’ 
MoV RU, (RU) ’ 
400 #10, (RO)% ’ 
MOV CRO) +, (RA) ’ 
MOV #TAGL,R2 ’ 
MOV 2¢R2),R2 ’ 
BEG SAVi6 ' 
Moy o(R2),R3 ’ 
CMP 2(R3), (RQ) ' 
BEG SAVL7 ’ 
TST CR2)¢ ’ 
8R SAVIS , 
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NOe BRANCH 
YESe DISABLE WRITE 
AND CONTINUE 


SET SDINT 
PUT IN CURRENT POSITION 
OFFSET FOR ADDRESS 


MOVE OLD SUBP AOR 
GET ADR OF j{eST POINTER 


GET AOR 


BRANCH IF NOT ACTIVE 
GET NEW SUBP AOR 
A MATCH? 


YES= FOUND SUBPe BRANCH 
POINT R2 AT NEXT PTR 
NO= LOOP 


IF SDINT/ WENABL/ SUBP NOT ACTIVE 


CHP (RU) = (RG) ’ 
TST (SP) , 
BR SAVia 


POINT TO SOINT 
CLEAN STK AND ADR#STK 


9 ANO CONTINUE 


OON’T THINK THAT SAV16 WILL SE REACHED 


TF FOUND SUBP 


MOV > R3,C(RE)O ’ 
BR SAVi8 ' 
IF SOINT/@ CASE 

TST (SP )¢ ’ 
BEQ SAV3 ’ 
MOV R3,(RO)e 1 
CLR (R4a)¢ ’ 
MOV RO,O(RI)> ’ 
BR SAV3 ' 
IF OPU INST, NOT SDINT OR 
MoV R3,R2 ’ 
BIC #3777,R2 ' 
CMP R2e#112088 s 
BEQ Saviga , 
CMP R2,#1 20000 , 
BLO SAVCON ’ 
CMP R2,4124800 ' 
BHI SAVCON ’ 
IF XGRA OR YGRA 

TST (ROIe ’ 
CMP CRO) o, (RO)> ' 
MOV CRO) o,R3 ' 
MOV (RB), (RE) % ’ 
eIPNOF = S$VTONLY 

BGE rat) 

DEC o(R3) 

NEG ¢R3) 
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ASR (R3)+ 

eENOC 

MOV #=1,(R3) ’ 
BR SAV3 ’ 


SET NEW AOR 
SET TAG AND CONTINUE 


WRITE ENABLED? 

NOe CONTINUE 

INSERT SOINT 

FOLLOWED BY ZERO 

FIX AOR OF REST OF FILE 
AND CONTINUE 

DUMP 

GET WORD 

LEAVE BITS 15941 


LONG VECTOR? 


YES= BRANCH 
XGRA? 


NOe BRANCH 
YGRA? 


NO= BRANCH 
AOD TWO TO RO 
AOD & TO RO 


GET AOR OF S84 
STORE $81 IN SYMTAB 
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RESTORE S82 
AND CONTINUE 


IF LONG VECTOR (MAYBE FIGR) 


CMP (RO), #0NMP ’ 
BNE SAVCON ’ 
BR SAV23A ’ 
IF ALL DONE$ 
TST (SP)¢ ' 
MOV R4,OISENOD ’ 
MOV CRO), CRU) + 
MOV RG, ACTEND ’ 
MOV CRO), (RO) > ’ 
+ MOV (SP) o,R5 ’ 
MOV (SP)4,R1 ’ 
MOV ACTST,R2 ’ 
MOV R2,Ru ' 
MOV TAG o2,R3 ' 
MOV R3,"(R2) , 
BEQ Saveay ! 
JSR PC,ADRSET , 
MOV R3,R2 ’ 
Bea Saver ’ 
CMP =(R2),4(R2) ’ 
JSR PC, ADRSET ’ 
MOV (R2),RO ' 
cLR =2(RQ) ' 
sus R4,RO , 
MOV RO, (R2)¢ ' 
rst (Rede ' 
MOV CR2),R3 , 
BEQ Savai , 
“OV #SAV20,~(SP) 4 
MOV (R2),RO , 
SUB R4,RO 1 
MOV RO, (R24 , 
RETURN 
MoV R4,RO ’ 
TST (RB) ’ 
MOV ACTEND, = (RQ) ’ 
SUB RU, (RB) ‘ 
ase (RO) ' 
INC (R@) ' 


, HERRRAAREAERRARARARAERED 


eo TFOF SOISK 


NEXT WORD DJMP FOR FIGR 


NO= SAVE WORD AND CONTINUE 
AND CONTINUE 


CLEAN OFF OLO WRITE FLAG 
SET NEW DISEND 


y PUT IN OLD OJMP 


SET NEW ACTEND 


PUT IN RETURN ADORESS 
RESTORE RS 
RESTORE Rt 
GET START OF DPY FILE 


SAVE IN R4 ALSO 
GET ADR OF FIRST SUBP TAG 


PUT BEFORE DPY FILE 
NO SUBPe BRANCH 
OFFSET AOR 


GET NEXT POINTER 

NO MORE@ BRANCH 

POINT AT REST OF FILE AOR 
OFFSET ADR 


GET AOR OF SUBP 
CLEAR WORD BEFORE SUBP 


MAKE OFFSET AOR 
STORE AOR 

BUMP BY TAG 

GET AOR OF NEXT TAG 
NO MOREe BRANCH 
FAKE JSR PC 


GET ADR 
SUBTRACT ACTST 
SAVE OFFSET AOR 


ACTST IN RO 
MOVE ONE WORD BACK 
PUT END IN PRECEDING WORD 


MINUS LO ENO 
CONVERT TO WORDS 
GET CORRECT NO OF WORDS 


qe 


GTC V@19e3 


192 
193 
194 
195 
1% 
197 
198 
199 
200 
201 
202 
203 
200 
205 
206 
207 
208 
209 
218 
au 
ate 
2t3 
r3¥) 
21s 
216 
217 
218 
219 
220 
eat 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
202 
203 
24a 
24s 
246 
207 
248 


GTc 


249 
258 
esi 
2s2 
253 
esa 
ess 
256 
257 
258 
259 
268 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
262 


263 


284 
265 
266 
287 
288 
289 
290 
eat 
292 
293 
294 
295 
2%6 
297 
298 
299 


300 
30) 
302 
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cuPa (RID, 8 LPAR » LEFT PAREN? 
bEa@ Save2 9 YES= 00 FILE 1/70 
EC Rt s POINT AT TOKEN 
MOV Ri, RiSve p SAVE RY 
ume saveo » YES FINISH UP 
Sav22s MOV RO,wOL 9 SAVE START AOR OF BUFFER ‘ 
MOV (RO) ,RO 9 GET WORD COUNT MINUS 2 
400 #2,RO 1 MAKE # ON 
MoV RO,WO2 9 SAVE WORO COUNT 
CLR =(SP) ; SIGNIFY WRITE OPERATION 
JMP SAVERT IN ROOT SECTION 
bane er TS IN ROOT $0 overtay WORKS 
SAV24 MOV (SP) o,RO POINTER TO STRING 
MOV RI, RISVE ; SAVE Ri FOR EXIT 
CLR Ri 
8Ise (RODo,RE » GET LENGTH 
advo #2,R0 y START OF ASCII STRING 
apo Ri,RO 9 POINT AT END of 
CLRB (RO) y) FOLLOWED BY @ BYTE 
MoV RQ,@(SP) 9 SAVE PTR TO ENO 
sus R1,RO » POINT AT BEGINNING 
eCSISPC SFILE, WOEFEXT,RO 
ace 2t6 » NOe ERROR 
JmMep ERRARG » ELSE ERROR 
TS? (SP)¢ » BETTER NOT HAVE SWTICHES 
BNE 276 » YES# ERROR 
MOVE RL, e(SP)> 1 RESTORE BYTE COUNT 
Mov #FILES30,,RO 9 AOR OF RAO SQ NAME 
MOV RO,R2 y SAVE IN R2 
sOSTATUS WOSTAT 7 RO om> DEVE 
ecs DOERR § INVALID DEVICE 
MOV #OSTAT#2,RE y POINT AT DEVBLKet woRD 
Mov (RODO,R3 » GET HANOLER LENGTH 
TST (RB) 9 HANDLER LOADED? 
ONE SAV2ga » YESe BRANCH 
“OV R3,RB 9 GET ITS LENGTH 
JSR PC, FREEGET y ASK FOR ROOM 
acs SAVay + NOT ENOUGH AVAILABLE 
MoV RO,=(8P) » SAVE R@ AOR OF HANDLER 
MoV R2,RO 9 RO wer DEVE 
EMT saz ) FETCH HANOLER 
Bcs DOERR y BAO FETCH 
SavV2uas YST (SP)¢ 9 READ OR WRITE? 
BEO Savag § WRITE® BRANCH 
sup RSTRI » READ] BRANCH 
SAVGis JSR Ri, MSG 
BYTE 15,12 
eASCII /2NER@C/ 
BYTE 15,12,8 
eEVEN 
SMP saves 9 FINISH UP 
SAvV4Gs LOCK 9 LOCK USR IN CORE 
TST ostar s FILE DEVICE? 
BPL OERRG 3 NO# BRANCH 
eCLOSE 7 9 YESe CLOSE CHANNEL 7 
sLOOKUP 7,R2 » LOOKUP THE FILE 
acs Saves 9 NOT FOUND® BRANCH 
VOle01 BASIC © GT OISK O RT#11 MACRO VM@2=89 LoHOCTH74U 82114336 PAGE 2% 
UNLOCK s RELEASE THE USR 
JSR R1,48G y ASK IF REPLACE 
ASCII /FILE ALREADY EXISTS/ 
BYTE @ 
sEVEN 
eCLOSE 7 ys NO@ CLOSE CHANNEL 7 
»UNLOCK y UNLOCK USR 
SAV3ir BR saves } RESTORE FILE AFTER CKING ")* 
Savas: BIT #40000,0STAT y READ ONLY DEVICE? 
Bea SAV26 y NOe BRANCH 
DERR@s JSR PC,DERR » TELL NEWS 
aR SAV34 y AND FINISH 
DERR: «CLOSE 7 9 CLOSE CHANNEL 7 
UNLOCK 3 UNLOCK USR 
Jsr Ri,MSG 9 TELL USER NEWS 
BYTE 15,12 » CReLF 
sASCII /2DEV ERR © C/ 
BYTE 15,12,8 
eEVEN 
RETURN s RETURN TO CALLER 
SaV2e: ENTER 7,R2 y ENTER THE FILE 
CLR Re 9 BLOCK ZERO 
eWRITW 7,W0L,WO2 9 WRITE OUT DATA 
acs OERRO y ERRORe EXIT THRU MESSAGE 
Sav271 ,CLOSE 7 9 RELEASE CHANNEL 7 
e UNLOCK » RELEASE USR 
JSR Ri, MSG 
eASCIIT /waSavE COMPLETEDs8/ 
eBYTE 15,1268 
eEVEN 
BR Sav3t y FIX STACK 
Sav2es ,ENOC 
RRAARERAAHHAKERERRAEHERD 
@562 016704 SAV293 MOV ACTST,Ra 9 GET START ADR 
8000006 
@566 012700 MOV #TAGIO2,RO y AOR OF PTR TO FIRST TAG 
adeoeec 
@S72 o11002 SAV3Gn MOV CRO) RZ 1 GET AOR OF TAG 
@S74 a01415 8EQ Sav32 1 NO MORE SUBP© BRANCH 
@576 a2uau2 cmp =(R2),e(R2) y POINT AT AOR OF REST OF FILE 
6608 Geeou2ee a00 RU, (R2)¢ y UPOATE AOR 
8602 eeau22 400 R4,(R2)¢ y) UPOATE AOR OF SUBP 
0604 B12246 MOV (R2)4,°(SP) y PUT TAG ON STK ZERO? 
0606 ea5712 TST (R2) 1 AOR OF NEXT TAG ZERO? 
@610 201401 BEQ oe » YES BRANCH 
Gol2 eoeui2 400 Rd, (R2) y UPDATE TAG PTR 
@614 005726 TST (SP)¢ 1 WAS TAG ZERO? 
G616 Ba1e02 BNE et6 1 NO# BRANCH 
@620 B11210 MOY CRE)» (RB) y YES ELIMINATE LINK 
8622 081763 BEQ SAV36 1 LOOP OY 
0624 010200 MOV R2,RO ) UPOATE PTR RO 
@626 200761 8R SAV30 9 LOOP 
0630 010067 SAV32s MOV R@,TAGENO y STORE AOR TO LAST TaGe2 
2000906 
eIFOrF SOISK 
MoV RISVE,RI s RESTORE RY 
eENOC 


GTC 


383 


304g 
385 
386 
387 
308 
309 
318 


GTC 


eK ear eMeUnNe 


et ee 
eueUN 
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SOXIT 


eTFOP = =6$DISK 


Pye 


WORD 0,0,8 


JMP 
RiSVEs ,WORD a 
OSTAT: , 
DEFEXTs 
FILEs oot, 


o TFOF SDISK 


y EXIT 


» SAVE Ri HERE 
9 DEVBLK 


1 39 WORD BLOCK 
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RSTRe 


RSTROe 


RSTRis 


RSTRUE 
RSTR2es 
ROERRY 


RSTR3: 


SBT 
2ENO 


TL "RESTORE" ROUTINE 


c 


RARAAAAHRRRERAARERRRARERRRERARE RARE 


1 RO! 
, 


JSR 
JSR 
cMPB 
BEG 
sme 
MOV 
TST 
BNE 
JMP 
»L00 
Bcc 
CLO 
UNL 
JSR 
aBYT 
ASC 
+BYT 
EVE 
MOV 
gmp 
BIT 
BEQ 
JSR 
ar 
sREA 
MOV 
MOV 
MOV 
$uB 
ASR 
INC 
CMP 
BLE 
+CLO 
2UNL 
JSR 
.BYT 
eASC 
2BYT 
sEVE 
TST 
BR 


1 GET REST 


RSTRSt 


MOV 
CLR 
CLR 
MOV 
400 
“OV 


UTINE TO HANDLES 


CALL "RSTR"( <FILE DESCRIPTOR» ) 


PC,BUFTST y ANY BUFFER? 
PC,STOPA 5 STOP THE DISPLAY 
(Ri) +, eLPAR pA "(" 2? 
RSTRE ) YESe BRANCH 
ERRSYN 9 NO= ERROR 
R1,°(SP) 9 SIGNAL READ OPERATION 
INSRTF 1 INSERT PENDING? 
ond » YES= LOOP TIL FREE 
SAVERT » GET NAME IN ROOT 
KUP 7,R2 } LOOKUP THE FILE ON CHANNEL 7 
RSTR2 9 BRANCH IF FOUND 
se 7 1 CLOSE CHANNEL 7 
OcK s UNLOCK THE USR 
R1,MSG 
€ 15,12 
TI /SAVE FILE NOT FOUND/ 
E 15,12,8 
N 
RISVE,R1 y RESTORE Rt 
SOXIT 
#20000,0STAT y WRITE ONLY DEVICE? 
RSTRI 9 NO» CONTINUE 
PC, DOERR ) DEVICE ERROR 
RSTRY y AND EXIT 
OW 7,#WOD1, 82,40 9 READ ON 7= 2 WORDS 
@ACTEND, = (SP) y SAVE END AOR 
OISEND,RG 7 GET CURRENT LO 
DCRASH,RO y HI END 
RU,RO » GET SIZE 
RO y CONVERT TO WORDS 
RO 1 SIZE IN WORDS AVAILABLE 
WOD1,R@ y ENOUGH ROOM? 
RSTRS 9 YES= BRANCH 
SE 7 9 CLOSE CHANNEL 7 
ocK y RELEASE THE USR 
Ri MSG 
€ 15,12 
II /NOT ENOUGH DISPLAY BUFFER FOR RESTORE/ 
. 15,12,8 
(SP)4 y CLEAN STK 
RSTRY y AND EXIT 
OF DATA 
(SP)4,R5 y SAVE END ADORESS 
Re » BLOCK @ 
(SP) 9 CLEAR STK FOR REAOW 
WOO1, (SP) » REST OF DATA 
#2,(8P) 9 ACTUAL ENO 
#(RG),RS » SAVE IN RS 


95 


GTC 


sé 
59 
68 
ot 
62 
63 
64 
os 
66 
67 
68 
69 
78 
1A! 


GTC V@leeL 


Srveuewne 


VO) 


e040 


80644 
80646 
00650 
98650 


epe54 


20660 
20662 


08666 


ee672 
00674 


88700 


e0704 
00706 


@8710 
ee712 


e714 


ae722 
ae724 
80726 
00730 
00732 
80734 


80740 
ee7uu 
@9750 
00752 
0u754 
20756 


88762 
O8764 


MoV =(RO),R2 
MOV RG,@(SP) 
EMT 20867 
acc aL) 
BR ROERR 
mov R2,(RG)> 
Mov R3, (RO 
eCLOSE 7 
a UNLOCK 

y STRAIGHTEN OUT FILE 
MOV WOD1,R3 
aSt R3 
ado R4,R3 
“OV RS,o(R3) 
TST ONSTSK 
BNE 46 
MOV R3,ACTEND 
MOV #OJMP,@(R3) 
MOV R3,01SEND 
TST W002 
8EQ RSTRG 
“ov wOO2,RO 
400 RG,RO 
“OV RO, OTAGEND 
MOV TAGEND, RO 
ome SAV30 
eENOC 


eIFOF =6SOISK 


010667 
981964 
oeSace 
oe042e 


085067 
bv1854 
422127 
0800006 
eetuae 
000167 
0800086 
0165008 
eeeade 
003002 
800167 
0000006 
065767 
2009086 
eoLael 
es200 


086300 
103770 


926565 
ee0e072 
000074 
801476 
O1e146 
@102d6 
O10346 
005046 
816502 
eave7e 
016521 
eeoe14 
010165 
600072 
@85016 
152216 
aerate 
020265 
oeve74 
103772 
@10165 
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SAVE IN R2 
AOR TO PUT DATA 
READ IT IN 
ALL OKAYe BRANCH 
NOT OKAY BRANCH 
RESTORE IT 
RESTORE IT 
CLOSE CHANNEL 7 
UNLOCK USR 


GET WORD COUNT 

CONVERT TO BYTES 

POINT AT ENO 

SAVE AOR OF RETURN 

IN A SUBP NOW? 

YES= DON’T UPDATE ACTEND 


SHOULON*T BE NECESSARY 
NEW DISEND 

ANY SUBP IN NEW FILE? 
NO@ EXIT 

GET OFFSET OF FIRST TAG « 
MAKE AN ADORESS 

LINK UP TAG CHAIN 

FIX RO PTR 

AND FINISH UP 


1OeOCT=74 B2210336 PAGE 4 


eSBTTL "FIX" AND "FREE" ROUTINES 


eENOC 


, RARHARARERARRARRERERRAHEREAREREREERE ERE 


+ ROUTINE TO HANOLES 


, CALL "FIX*"(N), OR 
U IMPLICITLY ASK FOR HALF FREE SPACE 
FIXes y IMPLICIT ENTRY POINT 
MOV SP,IMP.F 9 SIGNAL IMPLICIT ENTRY 
CLR RO 3 SIGNAL WANT HALF 
BR FIX y BRANCH 
FIXSPs y ENTRY FROM FIX IN ROOT SECTION 
CLR IMP,F 9 CLEAR IMPLICIT ENTRY FLAG 
cMPS CRI)e,M,RPAR pA MYR? 
BEG 6 » YESe BRANCH 
JMP ERRSYN y NOw SYNTAX ERROR 
MoV FAC2(RS) RO ) GET N 
BGT a) » POSITIVE BRANCH 
FIXARGS JMP ERRARG y ERROR N <a @ 
TST OCRASH 3 SPACE ALREADY ALLOCATED? 
BNE FIX2 » YESe BRANCH 
TNC RO » NO ASK FOR 
oITFOF SOISK 9 1 OR 2 MORE WORDS 
INC RO 
eENOC 
FIX2: = ASL Re » CONVERT TO BYTES 
ecs FIXARG » TOO MANY= ERROR 


1 FIND AVAILABLE SPACE 


FIXis CMP LOSTR(RS),HISTR(RS) 
BEQ FIX3 9 STRINGS ARE LOW 
MOV Ri,e(SP) 
MOV R2,°(SP) » DO ONPACK HERE 
MOV R3,2(SP) 
cur #(SP) 9 MAKE ROOM 
MOV LOSTR(R5),R2 
Mov LOFREE(RS) »RY 
Ov Ris LOSTRCRS) 
ONPLOOP? CLR (SP) 
BISsB (R2) 4, (SP) 
BNE ONPZRO 
ONPBAD: CMP R2,HISTR(RS) 
BLO ONPLOOP 
MOV Ri HISTR(RS) ’ 


SAVE HI STRING ADORESS 
. 


GTC 


GTC 


106 


107 
108 
109 
1198 
ai 


tie 
113 
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000074 
@8778 285726 TsTt 
00772 012603 MOV 
@877G Bi12602 MOV 
90776 B12601 MOV 
91088 900447 BR 
81082 85003 ONPZROs CLR 
01004 152203 8188 
@1906 880303 Swab 
@1018 152203 BIs6 
@1812 ee16ede A400 
81814 e05202 INC 
01016 830327 BIT 
288001 
81822 ed14ee BEQ 
01024 905303 bec 
81926 861503 a00 
01030 220365 CMP 
200004 
01934 183358 BHIS 
81936 220306 CMP 
81048 103013 BHIS 
01042 020365 CMP 
880010 
@1046 181343 BHI 
@1052 020365 CMP 
eeeeie 
@1A5S4 181605 BHT 
@1056 026365 CMP 
200018 
@1062 103335 BHIS 
@1064 020315 CMP 
@1866 103733 BLO 
@1078 262716 DNPGOOD: AOD 
280004 
@1074 161682 $u8 
81076 820213 CMP 
61100 e01005 BNE 
@1102 810113 MOV 
@1104 112221 MOVE 
@1186 885316 EC 
@1418 083375 GT 
@1112 e8e721 BR 
81114 G61602 DNPIGNO? 
@1116 900717 BR 
@112@ @16504 FIX3: MOV 
eseate 
B1124 10446 MOV 
81126 166516 sus 
086074 
81132 B6e716 400 
eeegae 
@1136 016767 “OV 
@800R0G 
800570 
@1144 901465 BEQ 
81146 166567 sua 
VO1le01 BASIC = GT OISK O 
600018 
048560 
@1154 466716 ado 
200554 
@1168 985708 FIX3As TST 
B1162 381934 BNE 
Br1t64 311608 MOV 
@iloe a26200 ASR 
@1178 86280 asR 
@1172 d10046 MOV 
@1174 2865300 OEC 
oIFOF 
bec 
2ENOC 
1176 810665 MOV 
eaeeadve 
1282 625465 CLR 
anegaa 
1286 684767 JSR 
8890806 
1212 604167 JSR 
2800886 
1216 840 eASCIT 
1217 127 
1228 117 
leat 122 
1222 104 
1223 123 
1224 O48 
1225 106 
1226 117 
1227 122 
1238 e490 
1231 184 
1232 iit 
1233 123 
1234 120 
1235 114 
1236 101 
1237 isi 
1240 e4e 
leat 106 
1242 SS) 
1243 riq 
1eqa 105 
1245 eis BYTE 
1246 e12 
1247 aoe 
EVEN 
1254 012688 MOV 
1252 986300 ASL 
s SHIFT ARRAYS 
1254 004767 FIXS: JSR 
0800006 
1268 016783 MOV 
28000006 
1264 010367 Mov 
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(SP)o 
(SP) o9R3 
(SP)o,R2 
(SP)o,R1 
FIX3 

R3 
(R2)4,R3 
R3 


(R2)o,R3 


CRS),R3 
R3ePDLCRS) » 4 = POL 


ONPBAD 

R3,SP 
ONPGOOD 
R3,ARRAYS(RS) 


ONPBAD 
R3,HIFREECRS) 


ONPGOOD 
R3,LOFREE(RS) 


ONPBAD 
R3,(RS) 
ONPBAD 
#4, (SP) 


(SP),R2 

Re, (R3) 

ONPIGNO 

R1,¢R3) 

CR2)o, (R16 
(SP) 

aed 

ONPBAD 

A0D (SP) ,R2 
ONPBAD 
HIFREECRS),RG 9 GET HIFREE PTR 


RU, =(SP) y SAVE IT 
HISTR(RS),(SP) 3 FREE BYTES 


#2,(3P) y ACTUAL 
OCRASH, WOD2 4 SAVE DCRASH 


FIX3A + NO BUFFER BRANCH 
ARRAYS(RS),WOD2 ¢ SUBTRACT BOTTOM END 
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WOD2, (SP) y GET TOTAL FREE 

Ra 9 HAVE WO COUNT? 

FIXS y YES= BRANCH 

(SP),R8 7 GET MAX SPACE FREE 

RO y DIVIDE. BY 2 

RO. y CONVERT TO WORDS 
RO,=(SP) 9 SAVE RO 

RO 

SOISK 

RO 9 TWO WORDS FOR DISK VERSION 
RO,FAC2(RS) » PUT INTO OUTPUT BUFFER 
Faci(RS) 

PC,NUMOUT » TELL USER 

Ri, MSG 


7 WORDS FOR DISPLAY FILE/ 


15,12,8 

(SP) 4,RO y RESTORE RO 

RO » BACK TO BYTES 
PC,STOPA y STOP DISPLAY 
OCRASH,RS » GET HI END 
R3,W001 9 SAVE OLD OCRASH 


GTC 


114 
115 


136 
137 


VOleos 


1278 
1272 


1306 
1302 


1386 
1338 


1314 


1316 
1328 
1322 


1326 


1332 
1334 
1336 
1340 
i342 


1346 
13528 
1352 


1360 
1362 
1363 
1364 
1365 
1366 
1307 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1400 
1401 
14@2 
1083 
1aa4 
1495 
1406 
1407 
1410 
1ant 
1442 


Oeeug2e 
081006 
016567 
0000108 
8000086 
eeeui2 
016702 
0000886 
160283 
062723 
oeoed2 
166300 


001003 
005726 
000167 
280364 
O16503 Fixes 
edee10 
085700 
882002 
005726 
eeeaue 
166716 
800366 
820026 
191421 
@160767 FIXERRS 
000354 
0800006 
104400 
116 
105 
122 
48 
es5 
eee 
106 
417 
122 
a4e 
104 
iit 
123 
120 
114 
101 
134 
oue 
102 
125 
106 
186 
105 
122 
ry) 


GTc 
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1a1e 


1429 
1422 
1426 
1426 
{430 
1432 
1434 
1436 
1449 
1462 
1444 


14d6 


1452 
144 
1456 
1468 
1462 
14oa 
1466 
1470 
1472 


1476 
1508 


1504 
1506 


S12 
1514 
1516 
1520 


Seq 
1526 
1530 


1534 
1536 


1542 
1544 
1546 
1550 
1552 
1554 
1556 
1568 
1562 
1564 
1566 
1570 


BNE 
Mov 


BYTE 
EVEN 


eot2 ’ 
ARRAYS(RS),OCRASH 
FIXe ’ 
acTsT,R2 ’ 
R2,R3 ’ 
B2,R3 ’ 
R3,RO ’ 
i] 
FIX6 ’ 
(SP)¢ ’ 
PIXXTT ' 
ARRAYS(RS),R3 
Re 
at ’ 
(SP)o ’ 
FIX? ' 
WOD2, (SP) U 
RO, (SP)¢ : 
FIX25 ’ 
WOO1,O0CRASH ’ 
8 
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BRANCH IF CALLED BEFORE 
» NEW DCRASH 


CONTINUE 
GET LO ENO 


GET LENGTH OF CURRENT BUFFER 
IN BYTES 


SHIFT FACTOR 

>08 NEED MORE// <1 FREE UP 
MUST CHANGE= BRANCH 

NO CHANGEe CLEAN STK 

ANO EXIT 


GET TOP ENO 


CONTINUE IF >a g 

CLEAN STK 

BRANCH 

BACK TO FREE BELOW HIFREE 


9 ENOUGH ROOM? 


YESe BRANCH 
RESTORE OLD OCRASH 


NER = FOR DISPLAY BUFFER/ 
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804767 FIX253 JSR 
eeaude 
O194e2 MOV 
160002 Sus 
818240 MOV 
22224 CMP 
020403 CMP 
101002 BHI 
@12422 MOV 
e@0774 8R 
0e5742 TST 
818246 “OV 
O60414 BR 

y SHIFT UP 
@O4767 FIX73 JSR 
200352 
@10302 MOV 
Leegee sus 
285046 CLR 
ALB2u6 MOV 
22223 CMP 
@14302 MOV 
820304 cme 
101375 BHI 
10266 MOV 
eavave 

y FIX SYMTAB 
@11503 FIX8: MOV 
220365 FIXSRH, CMP 
e@ea14 
183078 BHIS 
021327 CMP 
177775 
103011 BHIS 
@22323 FIXi71 CMP 
020770 BR 
@22327 FIXias CMP 
177776 
eo1eet BNE 
160013 sus 
@62703 FIXii# add 
eevee 
880761 BR 
821327 FIXi2: CMP 
177777 
81366 BNE 
005723 TST 
818946 MOV 
€12300 MOV 
G1e30e MOV 
1eea4e BMT 
811304 MOV 
100420 BMT 
eeS2e4 TNC 
010246 MOV 
B184U6 MOV 
@12746 MOV 


PC,PRIOR » FIX LEVEL ANO LPS JUNK 
Ru,R2 1 GET ARRAY PTR 

RO,R2 9 NEW ARRAY PTR 
R2,9(SP) y SAVE ON STK 
(R2)o,(RG)4 y POINT AT CORRECT WORDS 
R4,R3 1 DONE? 

oto 1 YESe BRANCH 

(RU) o, (R20 » MOVE WORD 

226 9 LOOP 

=(R2) ) NEW ARRAYS 

R2,=(S8P) 3 SAVE ON STK 

FIX8 » BRANCH 

PC,PRIOR 9 FIX LEVEL ANO LPS JUNK 
R3,R2 1 GET ARRAYS 

RQ,R2 ) NEW ARRAYS 

*(SP) 

R2,°(SP) 1 SAVE ON STK 

(RZ) 4, (R34 1 FOR AUTO= DECREMENT 

2 (R3),9(R2) » MOVE WORD 

R3,Rq y DONE? 

aod s NO» LOOP 

R2,2¢SP) 1 SAVE NEW ARRAY PTR 
(R5),R3 y START OF TABLE 
R3,LOFREECRS) » ENO? 

FIX9 » YES= BRANCH 

(R3), #03 y ENTRY OR LINE NO, ? 
FIXi2 » ENTRY BRANCH 
(R3)¢,(R3)6 9 GO PAST LIN NO, 
FIXSRH + Loop 

CR3)o, 02 1 AN ARRAY? 

FIXGg y NO» BRANCH 

R@,(R3) y NEW AOR OF ARRAY 
#10,R3 » NEXT ENTRY 

FIXSRH » LOOP 

(R3), M04 1 A STRING? 

FIXia 1 NO KEEP GOING 

(R3)6 9 YES= BUMP R3 

RO,=(SP) 9 SAVE OFFSET 

(R3) 0,88 1 AOR OF START OF STRING 
CR3) 69 R2 » GET S31 

FIXG3 y NOe SSe BRANCH 
(R3),R4 » GET ss2 

FIX § 1 DIMENSIONAL® BRANCH 
Ru y MAKE $8264 

R2,0(SP) 

RU, =(8P) » SAVE HERE TOO 
#20,0(SP) + 16 BITS 


GTC 
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TTT TT 

1574 006304 FIXLPs 

1576 006366 
eeeede 

1602 103082 

1604 2666004 
eeoeas 

1618 485316 

1612 0833728 

1614 062706 
280006 

1620 e662 

fo22 885202 FIXids 

1624 906302 

1626 B60802 


3 FIX STRINGS 


1638 820002 FIX15s 
1632 181013 
1634 @22027 
177777 
1648 601773 
1642 614908 
1644 e05204 
1646 890300 
1658 118024 
1652 208308 
1654 110024 
1656 005728 FIXtos 
1668 800763 
1662 012608 FIXt3s 
1664 030713 


y FIX BUFFER CHAIN 


1666 FIX9s 


FIX9Bs 


FIXOAS 


1666 011665 
800010 
1672 812602 
1674 612665 
eoe2ei2 
1788 @22222 


1702 O10267 
0000006 

1706 #12667 
177776° 


VO1l"01 BASIC @= GT 


1712 OL2767 FIXXIT: 
177777 
0080086 

1728 065767 
eoveas 

1724 @01434 

1726 800207 


1732 @0000@ IMP,Ft 
1732 B@veAe WOOL: 
1734 906006 WOD2: 


ast Ra  SS2n2 

asl 2(sP) 

acc td 

a00 4(SP),RU 

oEc (SP) 

8G6T FIXep 9 FORM SS2e8$2 

ad0 #6,SP + TIOY STK 

add RG,R2 1 AOO S84 

INC R2 » SStes 

ASL Re 4 WORDS TO BYTES 

00 RO,R2 § HI AOR OF STRING LIST 
cme RO,R2 9 DONE? 

BHI FIXGS » DONE LOOP 

CMP (RO) o, Mag p A NULL STRING ? 

BEG FIXIS + YES= LOOP 

MOV #(RB),RY 9 ADR OF STR 

INC Ra y POINT AT FIRST BYTE OF PTR 
SWAB RO 

MOVE RO, (RODE 

SWAB RO 9 RESTORE RO 

MOVE RB, (ROS » SET IN SECONO BYTE 

TST (RO)¢ 1 ADD 2 TO ARRAY AOR 

BR FIXiS 

MOV (SP)o,RO » RESTORE OFFSET 

BR FIXI7 

eTFOF SorsK 

a SRESET 1 GIVE BACK ALL DEVICE HANDLERS 
MOV RS,R2 ») GET PTR TO BASE OF USER AREA 
add SBUFCHN,R2 y OFFSET TO BUFFER CHAIN POINTER 
TstT (Re) 1 ANY BUFFERS? 

BEQ PIX9A 9 NOe BRANCH 

suB RO, (R2) § YESe CORRECT POINTER 
MOV (R2),R2 9 POINT R2 AT NEXT BUFFER 
BR FIX9B 9 CHECK IT 

sENOC 

MOV (SP), ARRAYS(RS) » NEW PTR 

MoV (SP)o,R2 y KEEP TO DETERMINE ACTST 
MOV (SP), HIFREEC(RS) 3 NEW PTR 

CMP CR2)o,(R2)¢ » NEW START 

a TFOF SOISK 

TsT (R2)¢ 

2 ENDC 

MOV R2,acTST y START OF FILE 

MOV (SP)¢,PSW y RESTORE PSw 

OISK O RT#14 MACRO VMG2=09 LosOCTa74 B2314336 PAGE de 
MOV #=1,D0ISEND y FOR AUTO INIT 

TST IMP F » CALLED BY INIT? 

BEQ SOXITS 9 NO@ EXIT 

RETURN 9 GO BACK TO INIT 

eM ORO @ 

eWORD 

eWORD @ 


GT 


CeyweNewne 


GT 


-oe 


C V@te@l BASIC = GT DISK O RT@i1 MACRO VNG2009 


001736 


O1736 804767 
0880006 
@1742 O12767 
477777 
8808006 
@17S@ 912767 
880000G 
6v0000G 
81756 016708 
e000neG 
1762 881415 
01764 805067 
8866006 
@1778 @165e83 
80010 
@1774 {60308 
@1776 0854606 
92800 216504 
ee0ote 
82004 885067 
177720 
@2018 B00616 
@2012 B80167 
0000886 
O2816 000167 
0080086 


C V@leo1 BAS 


e02d22 


O82022 185767 
e8e00eG 
002026 081375 


02030 O116046 
@2832 016766 
177776° 
ebeeee 
@20468 252767 
000340 
177776° 


@2046 810146 
82080 B1274e 
@80000G 
@2054 001415 
82656 91278} 
@80000G 
B2862 405771 
200000 
Q@2066 B61410 
@20728 2600313 
@2072 060031 
02874 960031 
®2076 G60031 
@2108 B62e701 
e6e0o4 
@2104 885316 
82106 0863365 
@2110 685726 
@2112 812601 


@2114 000207 


080001" 


FREES 


FREES? 


SOXITs 
SOXITI: 


Ic © GT 


U 
PRIOR: 


PRIORI? 


PRIOR: 


ARAAAAAARARAAARAEARARARAARTEAARAERREDD 


» ROUTINE TO HANDLE? 


‘ 
e IPNOF 


eENOC 
elFOF 


2 ENOC 
JSR 


MoV 


MOV 


MoV 


sEQ 
CLR 


“ov 
sus 
NEG 
MOV 
CLR 


BR 
JMP 


ame 


o TPOF 


DISK O RT#i1 MACRO VMG2=09 


CALL "FREE® 
SOISK 


SOrsK 


PC, STOPA 
#=1,D018END 


#BEG,0STOP 


OCRASH,RO 


SOXITS 
OCRASH 


ARRAYS(RS) RS 


MIFREECRS) RO 
IMP SF 


FIX? 
CONT 


CKEOL 


SOTSK 


STOP DISPLAY 
FOR AUTO INIT 


LOOP OISPLaY 


GET HI END 


NOTHING THERE® EXIT 
CLEAR OCRASH 


TO GIVE IT ALL BACK 
SET UP REGISTERS 
FOR EXIT 


SHIFT IT 
START OISPLAY AND EXIT 


CHECK EOL AND EXIT 


eSBTTL PRIORITY CHANGE AND LPS CLEAN@UP 


eENOC 


ARARAAAREREAAREAREREREAATAREAHERERARKERE 


a TFNOF 
TST8 


BNE 
ENO 
MOV 
mov 


BIS 


o TFNOF 
MOV 
“OV 


BEQ 
“OV 


TST 


BEQ 
abd 
400 
ado 
Aa00 
400 


OEC 
BGT 
TST 
MOV 
sENOC 
RETURN 


2END 


SVTONLY 
RTSON 


aod 


(SP), =(SP) 
PSW,2(SP) 


#340,PSw 


SVTONLY 
Ri,9(SP) 
#NARRAY, 9 (SP) 


PRIOR® 
MTABLESRI 


@CR1) 


PRIORG 
RO,O(RID 
RO,OCRIDe 
RO,OCRI)S 
RO,OCRIDe 
BO RY 


(SP) 
PRIORI 
(SP)+ 
(SP) o,R1 


LOOP *TIL NO OMA IN PROGRESS 


MOVE DOWN RETURN AOR 
SAVE CURRENT PSW 


SET SELF AT LEVEL 7 


» SAVE Rt 


THERE 18 NO LPSI) 
GET START OF LPS ARRAY TABLE 


ANY ENTRIES? 


NONE® EXIT 

ADJUST BEG PTR 

ADJUST ENO PTR 

AOJUST PUT PTR 

AOJUST GET PTR 

POINT AT NEXT TABLE ENTRY 


MORE LPS ARRAYS? 
YESe LOOP 
NO@ CLEAN STK 


1eOCTo7G 82314836 PAGE S 


Lo~OCTe74 G2s14836 PAGE 6 


GTC V@ie@i BASIC = GT OISK O RT#=1t MACRO VMG2"09 16°0CT@74 B2114336 PAGE bo 
SYMBOL TABLE 


ACTEND® taeene G ACTST © aennnn G AORSET 980534R 
AOSTK w uneene & ARRAYSS 030019 BEG B reeeen G 
BUFCHN® 200076 BUFTSTS aentan G CKEOL = sennee G 
CONT 2 sennee G CONTA & senene G OCRASHS® aexeee G 
DISENDs seeene G OJMP 8 160800 ONPBAD § 880756R 
ONPGOO 22@1072R ONPIGN @@1114R ONPLOO 88075eR 
DNPZRO go1a89eR OSTOP = aunmee G ERRARGS eennae G 
ERRSYNS weeeen G ESUB 8 seenee G Fact 2 300040 
Fac2 = 900042 FIXARG @80674R FIXERR @81352R 
FIXUP @@1574R FIXSP @80658RG FIXSRH @81500R 
FIXXIT @01712R FIXO @OB64GRG FIX, OGO714R 
FIX1@ @01520R FIX 9@153aR FIX12 @@1536R 
FIX13  @81662R FIXIG = =8B1622R FIX{S @881630R 
FIXt6 8816056R FIX17 @@1S514R FIX2 880719R 
FIX25 @01414R FIX3 801120R FIX3A =B1L16OR 
FIXS @81254R FIX6 @013260R FIX7 @B14G6R 
FIX8 OGL476R FIXO @81666R FREE QOL 736RG 
HIFREE® 900012 HISTR 8 800074 IMP,F 881738R 
INSRTFs saewan G LOFREEs 300014 LOSTR = 800072 
MSG a otaenee G NARRAYS eeanne G NSTSK = seeewe G 
NUMOUTS saenee G OLOMODS setae G PC 8%000007 
POL 8 800004 PRIOR g02822R PRIORG aB211aR 
PRIOR! @0206eR PSH 8 177776 RETURN® 000207 
RTSON & watene G RO BX008000 Ri BxXO00001 
R2 8%300002 R3 8%000003 RG 5X000004 
RS 3%000005 SAVCON @88106R SAVE BBGCBORG 
SAVE@ @eaa04R SAVSET @80112R Sava eoee2aR 
SAVE @8eeuaR SAV1@ 88170R SAVit eoe212R 
SaAVi2 @002uaR SAVI3) BBBVNSOR SAViG = @BB!NS2NR 
SAVIS  @80274R SAV16  800316R SAVi7) = BBBS2GR 
SAV18 880206R SAV19 = @@B422R Sava O88056R 
SAV20 = 8BB476R Savai @eeSuuR Sav23  a@o4GOR 
SAV23A 0803760R saveo @00562R SAV3 OBGG74UR 
SAV3@  880572R SAV32 @00630R SAVG 600124R 
SAVS @ee43ar SAV6 O08146R SAV? O883G4R 
Save @80330R Sava @80226R SDINT = 173400 
SOXIT ee2o1ar SOXIT1 @@2016R sp #%000006 
STOPA = uxtene G TABLE 3 enenee G TAGENDS eannen G 
TAGL 3 seenee G WoO! 881732R wod2 BOI73GR 
wot Z wennee G woe B aeeean G $adc = 800000 
SCLK = 900008 SCLOCKs gog000 $010 = 089000 
SOIS 3 800000 SLPS = 090000 SSTRNGS 000000 
SVT11 2 GeRee0 EOL & eaweee G aL PAR @ teanen G 
eRPAR @ netwee G 
« ABS, g80000 800 

802116 oer 


ERRORS DETECTED: @ 
FREE CORE: 1795@, WORDS 


sLPSsPERPAR,GTL,GTC 


GTNLPS V@l=@1 j;OUMMY LPS ENTRY RT#11 MACRO VMG2909 16e0CT=74 @2s17124 PAGE { 


1 eTITLE GTNLPS V@l~-@1 yOUMMY LPS ENTRY POINTS FOR THE GT PKG, 
2 ' 

3 y COPYRIGHT (C) 1974 

4 ’ 

i) y DIGITAL EQUIPMENT CORPORATION 

6 } MAYNARD, MASSACHUSETTS 81754 

7 ’ 

8 y THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

9 } CHANGE WITHOUT NOTICE ANO SHOULD NOT BE CONSTRUED 
18 1 AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
M1 1 DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
12 7 MAY APPEAR IN THIS DOCUMENT, 

13 , 

14 1 THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
15 y LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO 
16 } CAN BE COPIED (WITH INCLUSION OF DEC*S COPYRIGHT 
17 y NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
18 1 OTHERWISE BE PROVIDED IN WRITING BY DEC, 

19 ’ 

28 } DEC ASSUMES NO RESPONSIBILITY FOR THE USE 

ral } OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 

22 1 WHICH IS NOT SUPPLIED BY DEC, 

23 ’ 

eq sGLOBL TABLE, FLOAT, NARRAY,RTSON 

2s 

26 880088 NARRAYSO 

27 08000 TABLES 

28 88000 FLOAT? 

29 22800 RTSONS 

30 0808820 a00ae0 40RD C) 

31 @6eo01" END 


/l 


GTNLPS V@1941 sDUMMY LPS ENTRY RT@11 MACRO VMO2009 - 
SYMBOL TABLE 1 2: 16eOCT©7G G2817820 PAGE te 


FLoar @8OBCORG NARRAYS 990000 G RTSO aR 
TABLE @000G0RG a) eee 
» 48S, e98vee 008 

gogoge 081 


ERRORS DETECTED: @ 
FREE CORE: 18561, WORDS 


oLPsaGTNLPS 


RTety LINK VO3=@1 LOAD MAP 
BGTLPS,SAV Loe0CT#74 


SECTION ADOR SIZE ENTRY ADOR ENTRY ADOR ENTRY ADOR 


e ABS, 820002 200400 LIMIT eeeede POL @80@04 NARRAY 900085 
POSIZE @800@6 ARRAYS 800010 COLUMN 600034 
Fact 90e04e@ FAC2 eeeea2 Th 208056 
Te 8eeee8 13 @80062 RNOL eoggeu 


RNO2 C@GG66 FILLCO 900112 SSTKSZ ege200 
eELOL @00201 .RPAR 6800237 .COMMA 200243 
eLPAR =888255 GTVECT 900320 LPSIVA oga34e 
LPSIP @@@342 CKLIVA 880344 CKLIP 080346 
ORSIVA 680358 DRSIP 880352 START @8110e 
ARGB 818262 ERRARG 018312 8OMB 810320 
Eval 011492 TABLES @11562 TBLSEN Bi1626 
ERRPDL 811772 OPRATO @12166 ERRSYN 012544 
SOPRAT @12720 ERRMIX 013012 STPRO 813162 


GETVAR 015364 INT 015574 MAKEST 817252 
MSG @17452 NORM @17532 NuUMOUT 817724 
NUMSGN- 817736 SAVCHA 820578 STOVAR @21254 
val 023354 LPSAO 17848@ LPSADB 170402 


LPSCKS 170404 LPSPB 178486 LPSOR 170410 
LPSORS 178410 LPSOIB 178412 LPSOOR 170414 
LPDISS 178416 LPOISX 170420 LPOISY 170422 


LPSOMA 178436 DPC 172000 DSR 172002 
Orsx 172004 OISY 172806 6TKS 177568 
TPB 1775660 


800403 @24190 
@245¢a @04276 IFPMP G245e@ ERRFPU 24582 SSBR @2458e2 
$AOR @24596 ALOG @25242 AINT B25616 


SINTR @25634 sOVR @25734 EXP 826366 
SIR 026736 SMLR @27822 SPOPRS 027374 
SPOPRG 627374 SPOPR3 827406 SRI C27414 
cos 827536 SIN 827572 ATAN O3e112 


SPOLSH @30576 SV20A 038576 SaQRT 830602 
SERR @3074@ SERRA 030750 SERVEC 230770 

030776 e@e472 FTBL 038776 

O31478 @81462 TABLE @31478 RTSON 31564 DRSON 831565 
HISTON 631566 S8COON 831567 ORSBUF 931578 
ORSNPT 031572 USE 031574 ROB B31746 
acc @320¢4 CKCMGN 032030 GETNUM @32042 
SAVER2 032056 SAVFAC 032062 SAVINT 032066 
RESTR2 032074 REGSAV 632100 RESTOR 032116 
INTST @32126 ERNOR 932226 FLOAT 832234 
ENTERP @32319 BUFRES 032332 GETV 832346 
GETBUF @32372 ERBUF 832440 GETDAT 832446 
STODAT 032680 GETADD 032706 POLENT 633014 
CKCOMA 933042 STORXT 033052 CKRPAR 033856 
CONBCD 833066 


033152 e01244 A0C 933222 RTS 033330 LED 033734 , 

O34d16 980716 SETR  a34432 SETC 0834578 HIST 835004 
watt 835060 o-- 

035334 eoesd2 OIR @3534@ OR 835434 ORS 035522 , 
REL 035706 

036076 B01462 CLRO 236164 PUTO 036618 O18 030652 
FSH 036726 OXY O370@4 OLSPLY 937252 


0375600 B@2116 SAVE 837568 FIXe @aguee FIXSP 048430 

° FREE @41516 

@41676 810614 BUFTST 842186 CKEOL 842222 INSRTF 9402532 
OISEND @42534 ACTEND 042536 ACTST Qu2esue 
wot 042636 wo2 @4264e8 SuBP 042704 
ESuUB @43146 ADSTK 043260 NSTSK 043310 
TAGSRH @43312 TAGEND @43334 ERAS @u33Sa 


esesi2 


8O35uu 


TRANSFER ADORESS = 854736 
HIGH LIMIT = 056256 


RTett LINK 
BASGT ,Sav 


SECTION ADOR 
« 46S, @00¢00 


800408 
@245¢0 


930776 
031326 
31310 


033426 


e4deue 


VO3~01 


SIZE 
080400 


824162 
a04276 


aaesie 
e20002 
a@2ilo 


@1a6rd 


08354u 


PON 645500 
STOPA 844262 
INIT Q44376 
ON 844622 
ABS,F 845536 
APNT O46016 
TRAK 046544 
Scar Q47576 
APUT 850360 
FPUT @51230 
TIMR 852360 
OSTOP @52526 
USRARE 852512 
LOAD MAP 
Loe0CTo74 
ENTRY AOOR 
NARRAY 9000000 
POSIZE egeeae 
Fact 000040 
T2 000068 
RNOD2 O80066 
EOL 080201 
abPAR 200255 
ARGB @18262 
EVAL a11492 
ERRPDL 011772 
SOPRAT 812720 
GETVAR 815364 
MSG 817452 
NUMSGN 617736 
VAL 923354 
OSX 1720046 
TPB 177566 
TFPMP 0245e0 
SAOR @24S5a6 
SINTR @25634 
SIR 026736 
SPOPRG 027374 
cos 827536 
SPOLSH 038576 
SERR 838740 
FTBL @30776 
FLOAT 031306 
SAVE 031310 
FREE @3324u6 
BUFTST 033636 
DISEND 834264 
wOL @34366 
esus 834676 
TAGSRH 935042 
LPEN 935230 
STOPA 836012 
INIT O36126 
ON 036352 
468,F 837266 
APNT 837546 
TRAK 040274 
SCAL 841326 
APUT 42110 
FPUT 062760 
TIMR O4ai1e 
OSTOP O44236 
USRARE @4u2u2 


TRANSFER ADDRESS = QU6U66 


HIGH LIMIT = @ 


5aed6 


ULUAUD 
CONT 
INITA 
OFF 
STAT 
VECT 
XGRA 
SCL.Y 
AGET 
TEXT 
BEG 
OCRASH 


ENTRY 


ERRFPU 
ALOG 
SOVR 
SMLR 
SPOPR3 
SIN 
S$V20A 
SERRA 


RTSON 
FIX® 


CKEOL 
ACTENO 
WO2 
AOSTK 
TAGEND 
OLOMOD 
CONT 
INITA 
OFF 
Stat 
vVECcT 
XGRA 
SCL.Y 
AGET 
TEXT 
BEG 
OCRASH 


easood 
44346 
e444ge 
euu722 
eassue 
e4o112 
@47822 
858270 
9S5es5eu 
esis2q 
eSeueu 
es2sia 


AOOR 


aeoee2 
aeeeia 
aeaeu2 
eeaeee 
800110 
200237 
000320 
10312 
11562 
812166 
@13012 
@1SS74 
817532 
820570 
172000 
172006 


24582 
G25242 
@25734 
927022 
@27406 
027572 
838576 
0328758 


831306 
032150 


033752 
834266 
034378 
e35et0 
435064 
835412 
936076 
036132 
036452 
037270 
O37642 
o4esS2 
242020 
e42314 
043254 
044134 
aua2ue 


Daly 
CONTA 
Nose 
FIX 
ROOT 
SC,USC 
YGRA 
SCL.X 
FIGR 
TIME 
TAG! 


ENTRY 


SQRT 
SERVEC 


TABLE 
FIXSP 


INSRTF 
AcTST 
SueP 
NSTSK 
ERAS 
ostP 
CONTA 
NOSC 
FIX 
ROOT 
Sc,USC 
YGRA 
SCL.X 
FIGR 
TIME 
TAGL 


648250 
e443s2e 
auuot2 
844730 
845632 
B4e216 
au7aue 
950300 
asa7ue 
852106 
as2ui2 


ADOR 


‘ ggeea4 


000034 
eoeese 
000064 
200200 
e0a243 
Ge11e2 
810320 
811626 
@12544 
813162 
017252 
@17724 
21254 
172082 
1775608 


824502 
O25616 
826366 
027374 
e27414 
830112 
030682 
830770 


931306 
032168 


834262 
934270 
O34434 
835040 
835104 
036086 
O36182 
836342 
@36468 
837360 
837746 
240570 
042030 
042079 
843636 
e44142 


©) 


© 


RTett LINK 
BASLPS,SAV 


SECTION ADDR 
e ABS, 880000 


8ee4e0 
8246590 


930776 
831162 


O32644 
034110 


@35026 
@35570 
e37252 


VO3e81 


SIZE 
eea4ueo 


024100 
804276 


000164 
001462 


@81204 
080716 


o0esu2 
081462 
683544 


LOAD MAP 
1oe0CTe7 


ENTRY 


ERRARG 
TABLES 
OPRATO 
ERRMIX 
Int 
NORM 
SAVCHA 
LPSad 
LPsPS 
LPSOIB 
LPOISX 
TKS 


IFPMP 
SAOR 
SINTR 
SIR 
SPOPRG 
cos 
SPOLSH 
SERR 
FTOL 
TABLE 
HISTON 
ORSNPT 
acc 
SAVER2 
RESTR2 
INTST 
ENTERP 
GETBUF 
sTooaT 
CKCOMA 
CONBCD 
aoc 
SETR 
WAIT 
DIR 
REL 
CLRO 
FSH 
USRARE 


TRANSFER ADORESS 2 41476 


HIGH LIMIT = 2 


43016 


4 
ADOR 


eeaee2 
880006 
eeeeue 
282860 
880866 
800201 
eeeess 
Ged3u4 
000352 
e10312 
O11562 
O12166 
13812 
@15574 
017532 
628570 
178400 
170406 
170412 
170428 
177560 


2450 
024506 
025634 
@26736 
@27374 
@27536 
030576 
030748 
030776 
031162 
831260 
831268 
@31476 
031558 
031566 
031620 
@32002 
032064 
32272 
032534 
032560 
@32714 
@34126 
834552 
035032 
035400 
035656 
0360420 
637252 


ENTRY 


TBLSEN 
ERRSYN 
STPRO 
MAKEST 
NUMOUT 
STOVAR 
LPSaoB 
LPSOR 
LPSOOR 
LPOISY 
TPB 


ERRFPU 
ALOG 
$OVR 
SMLR 
SPOPR3 
SIN 
SV20A 
SERRA 


RTSON 
BCDON 
USE 
CKCMGN 
SAVFAC 
REGSAV 
ERNOR 
BUFRES 
ERBUF 
GETAOD 
STORXT 


RTS 
SETC 


OOR 


PUTD 
OXY 


aD0R 


oeeeeu 
200010 
oeeade 
080062 
080110 
000237 
900340 
800346 
881102 
10320 
11626 
12544 
O13162 
e17252 
17724 
e21254 
170402 
170610 
170414 
170422 
177566 


024582 
@2S52462 
825734 
@27822 
O27406 
027572 
038576 
03075¢e 


031256 
031261 
831266 
031522 
031554 
631572 
@31720 
@32022 
32132 
032400 
@32544 


833822 
834262 


835126 


036302 
836476 


ENTRY 
NARRAY 


RNDL 
S$STKSZ 
sCOMMA 
LPSIP 
DRSIVA 
ARGB 
EVAL 
ERRPDL 
SOPRAT 
GETVAR 
MSG 
NUMSGN 
VAL 
LPSCks 
Lesors 
Lporss 
Lesoma 


sr 
AINT 
EXP 
SPOPRS 
SRT 
ATAN 
SQRT 
SERVEC 


ORSON 
ORSBUF 
ROB 
GETNUM 
SAVINT 
RESTOR 
FLOAT 
GETV 
GETOaT 
POLENT 
CKRPAR 


LED 
HIST 


ors 
OISPLY 


ADOR 


eooees 
800034 
@eaese 
CITT IY 
eee200 
eee243 
@80342 
000350 
818262 
811402 
@11772 
612720 
015364 
617452 
817736 
023354 
170000 
170010 
170416 
170636 


824582 
25616 
826366 
027374 
B27414 
O3e112 
830602 
930770 


031257 
831262 
031448 
031534 
831560 
631610 
831726 
032040 
32140 
832506 
03255@ 


033426 
O34476 


35214 


O36344 
O36744 


eee eae 


erred 


